*** mainframe.tcl.11	Wed Jan  9 08:48:51 2002
--- mainframe.tcl	Wed Jan  9 08:56:24 2002
***************
*** 123,130 ****
      set status   [frame $path.status -relief flat -borderwidth 0 \
                        -takefocus 0 -highlightthickness 0 -background $bg]
      set label    [eval 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 \
--- 123,131 ----
      set status   [frame $path.status -relief flat -borderwidth 0 \
                        -takefocus 0 -highlightthickness 0 -background $bg]
      set label    [eval 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 \
***************
*** 481,490 ****
  
      if { $tcl_platform(platform) == "unix" } {
  	set menubar [eval menu $top.menubar -tearoff 0 \
! 		-background $bg -borderwidth 1 $mbfnt]
      } else {
  	set menubar [eval menu $top.menubar -tearoff 0 \
! 		-background $bg $mbfnt]
      }
      $top configure -menu $menubar
  
--- 482,491 ----
  
      if { $tcl_platform(platform) == "unix" } {
  	set menubar [eval menu $top.menubar -tearoff 0 \
! 		       -background {$bg} -borderwidth 1 $mbfnt]
      } else {
  	set menubar [eval menu $top.menubar -tearoff 0 \
! 		       -background {$bg} $mbfnt]
      }
      $top configure -menu $menubar
  
