# ----------------------------------------------------------------------------#  mainframe.tcl#  This file is part of Unifix BWidget Toolkit#  $Id: mainframe.tcl 3417 2004-12-03 00:31:24Z tjikkun $# ------------------------------------------------------------------------------#  Index of commands:#     - MainFrame::create#     - MainFrame::configure#     - MainFrame::cget#     - MainFrame::getframe#     - MainFrame::addtoolbar#     - MainFrame::gettoolbar#     - MainFrame::addindicator#     - MainFrame::getindicator#     - MainFrame::getmenu#     - MainFrame::menuonly#     - MainFrame::showtoolbar#     - MainFrame::showstatusbar#     - MainFrame::_create_menubar#     - MainFrame::_create_entries#     - MainFrame::_parse_name#     - MainFrame::_parse_accelerator# ----------------------------------------------------------------------------namespace eval MainFrame {    Widget::define MainFrame mainframe ProgressBar    Widget::bwinclude MainFrame ProgressBar .status.prg \	    remove {	-fg -bg -bd -troughcolor -background -borderwidth	-relief -orient -width -height    } \	    rename {	-maximum    -progressmax	-variable   -progressvar	-type       -progresstype	-foreground -progressfg    }    Widget::declare MainFrame {	{-width        TkResource 0      0 frame}	{-height       TkResource 0      0 frame}	{-background   TkResource ""     0 frame}	{-textvariable String     ""     0}	{-menu         String     {}     1}	{-separator    Enum       both   1 {none top bottom both}}	{-bg           Synonym    -background}	{-menubarfont   String     ""  0}	{-menuentryfont String     ""  0}	{-statusbarfont String     ""  0}    }    Widget::addmap MainFrame "" .frame  {-width {} -height {} -background {}}    Widget::addmap MainFrame "" .topf   {-background {}}    Widget::addmap MainFrame "" .botf   {-background {}}    Widget::addmap MainFrame "" .status {-background {}}    Widget::addmap MainFrame "" .status.label {-background {}}    Widget::addmap MainFrame "" .status.indf  {-background {}}    Widget::addmap MainFrame "" .status.prgf  {-background {}}    Widget::addmap MainFrame ProgressBar .status.prg {-background {} -background -troughcolor}    variable _widget}# ----------------------------------------------------------------------------#  Command MainFrame::create# ----------------------------------------------------------------------------proc MainFrame::create { path args } {    global   tcl_platform    variable _widget    set path [frame $path -takefocus 0 -highlightthickness 0]    set top  [winfo parent $path]    if { ![string equal [winfo toplevel $path] $top] } {        destroy $path        return -code error "parent must be a toplevel"    }    Widget::init MainFrame $path $args    if { $tcl_platform(platform) == "unix" } {        set relief raised        set bd     1    } else {        set relief flat        set bd     0    }    set topframe  [eval frame $path.topf -relief flat -borderwidth 0 \	    [Widget::subcget $path .topf]]    set userframe [eval frame $path.frame [Widget::subcget $path .frame] \                       -relief $relief -borderwidth $bd]    set botframe  [eval frame $path.botf -relief $relief -borderwidth $bd \	    [Widget::subcget $path .botf]]    pack $topframe -fill x    grid columnconfigure $topframe 0 -weight 1    set bg [Widget::cget $path -background]    $path configure -background $bg    if { $tcl_platform(platform) != "unix" } {        set sepopt [Widget::getoption $path -separator]        if { $sepopt == "both" || $sepopt == "top" } {            set sep [Separator::create $path.sep -orient horizontal -background $bg]            pack $sep -fill x        }        if { $sepopt == "both" || $sepopt == "bottom" } {            set sep [Separator::create $botframe.sep -orient horizontal -background $bg]            pack $sep -fill x        }    }    # --- status bar -------------------------------------------------------------------    if {[string length [Widget::getoption $path -statusbarfont]] >0 } {	set sbfnt [list -font [Widget::getoption $path -statusbarfont]]    } else {	set sbfnt ""    }    set status   [frame $path.status -relief flat -borderwidth 0 \                      -takefocus 0 -highlightthickness 0 -background $bg]    set label    [eval [list label $status.label \	    -textvariable [Widget::getoption $path -textvariable] \	    -takefocus 0 -highlightthickness 0 -background $bg] $sbfnt]    set indframe [frame $status.indf -relief flat -borderwidth 0 \                      -takefocus 0 -highlightthickness 0 -background $bg]    set prgframe [frame $status.prgf -relief flat -borderwidth 0 \                      -takefocus 0 -highlightthickness 0 -background $bg]    place $label    -anchor w -x 0 -rely 0.5    place $indframe -anchor ne -relx 1 -y 0 -relheight 1    pack  $prgframe -in $indframe -side left -padx 2    $status configure -height [winfo reqheight $label]    set progress [eval ProgressBar::create $status.prg [Widget::subcget $path .status.prg] \                      -width       50 \                      -height      [expr {[winfo reqheight $label]-2}] \                      -borderwidth 1 \                      -relief      sunken]    pack $status    -in $botframe -fill x -pady 2    pack $botframe  -side bottom -fill x    pack $userframe -fill both -expand yes    set _widget($path,top)      $top    set _widget($path,ntoolbar) 0    set _widget($path,nindic)   0    set menu [Widget::getoption $path -menu]    if { [llength $menu] } {        _create_menubar $path $menu    }    bind $path <Destroy> [list MainFrame::_destroy %W]    return [Widget::create MainFrame $path]}# ----------------------------------------------------------------------------#  Command MainFrame::configure# ----------------------------------------------------------------------------proc MainFrame::configure { path args } {    variable _widget    set res [Widget::configure $path $args]    if { [Widget::hasChanged $path -textvariable newv] } {        uplevel \#0 $path.status.label configure -textvariable [list $newv]    }    if { [Widget::hasChanged $path -background bg] } {        set listmenu [$_widget($path,top) cget -menu]        while { [llength $listmenu] } {            set newlist {}            foreach menu $listmenu {                $menu configure -background $bg                set newlist [concat $newlist [winfo children $menu]]            }            set listmenu $newlist        }        foreach sep {.sep .botf.sep} {            if { [winfo exists $path.$sep] } {                Separator::configure $path.$sep -background $bg            }        }        foreach w [winfo children $path.topf] {            $w configure -background $bg        }    }    if { [Widget::hasChanged $path -menubarfont newmbfnt] } {	if {[string length $newmbfnt]} {	    set mbfnt [list -font $newmbfnt]	} else {	    set mbfnt ""	}	set top     $_widget($path,top)	if {[string equal $top .]} {	    eval [list .menubar configure] $mbfnt	} else {	    eval [list $top.menubar configure] $mbfnt	}    }    if { [Widget::hasChanged $path -menuentryfont newmefnt] } {	if {[string length $newmefnt]} {	    set mefnt [list -font $newmefnt]	} else {	    set mefnt ""	}	set top     $_widget($path,top)	if {[string equal $top .]} {	    set mb .menubar	} else {	    set mb $top.menubar	}	set l [winfo children $mb]	while {[llength $l]} {	    set e [lindex $l 0]	    set l [lrange $l 1 end]	    if {[string length $e] == 0} {continue}	    lappend l [winfo children $e]	    eval [list $e configure] $mefnt	}    }    if { [Widget::hasChanged $path -statusbarfont newsbfnt] } {	if {[string length $newsbfnt]} {	    set sbfnt [list -font $newsbfnt]	} else {	    set sbfnt ""	}	for {set index 0} {$index<$_widget($path,nindic)} {incr index} {	    set indic $path.status.indf.f$index	    eval [list $indic configure] $sbfnt	}	eval [list $path.status.label configure] $sbfnt	$path.status configure -height [winfo reqheight $path.status.label]	$path.status.prg configure \		-height [expr {[winfo reqheight $path.status.label]-2}]    }    return $res}# ----------------------------------------------------------------------------#  Command MainFrame::cget# ----------------------------------------------------------------------------proc MainFrame::cget { path option } {    return [Widget::cget $path $option]}# ----------------------------------------------------------------------------#  Command MainFrame::getframe# ----------------------------------------------------------------------------proc MainFrame::getframe { path } {    return $path.frame}# ----------------------------------------------------------------------------#  Command MainFrame::addtoolbar# ----------------------------------------------------------------------------proc MainFrame::addtoolbar { path } {    global   tcl_platform    variable _widget    set index     $_widget($path,ntoolbar)    set toolframe $path.topf.f$index    set toolbar   $path.topf.tb$index    set bg        [Widget::getoption $path -background]    if { $tcl_platform(platform) == "unix" } {        frame $toolframe -relief raised -borderwidth 1 \            -takefocus 0 -highlightthickness 0 -background $bg    } else {        frame $toolframe -relief flat -borderwidth 0 -takefocus 0 \            -highlightthickness 0 -background $bg        set sep [Separator::create $toolframe.sep -orient horizontal -background $bg]        pack $sep -fill x    }    set toolbar [frame $toolbar -relief flat -borderwidth 2 \                     -takefocus 0 -highlightthickness 0 -background $bg]    pack $toolbar -in $toolframe -anchor w -expand yes -fill x    incr _widget($path,ntoolbar)    grid $toolframe -column 0 -row $index -sticky ew    return $toolbar}# ----------------------------------------------------------------------------#  Command MainFrame::gettoolbar# ----------------------------------------------------------------------------proc MainFrame::gettoolbar { path index } {    return $path.topf.tb$index}# ----------------------------------------------------------------------------#  Command MainFrame::addindicator# ----------------------------------------------------------------------------proc MainFrame::addindicator { path args } {    variable _widget    if {[string length [Widget::getoption $path -statusbarfont]]} {	set sbfnt [list -font [Widget::getoption $path -statusbarfont]]    } else {	set sbfnt ""    }    set index $_widget($path,nindic)    set indic $path.status.indf.f$index    eval [list label $indic] $args -relief sunken -borderwidth 1 \        -takefocus 0 -highlightthickness 0 $sbfnt    pack $indic -side left -anchor w -padx 2 -fill y -expand 1    incr _widget($path,nindic)    return $indic}# ----------------------------------------------------------------------------#  Command MainFrame::getindicator# ----------------------------------------------------------------------------proc MainFrame::getindicator { path index } {    return $path.status.indf.f$index}