Artifact
d81913e81a9f616684525c67b8ca13eb1cf1c533:
Attachment "diff_to_mainframe_11.patch" to
ticket [501210ffff]
added by
bach
2002-01-09 15:12:08.
*** 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
