Index: mainframe.tcl
===================================================================
RCS file: e:\cvsroot\tcllib/bwidget/mainframe.tcl,v
retrieving revision 1.7
retrieving revision 1.8
diff -c -r1.7 -r1.8
*** mainframe.tcl 2000/09/07 16:20:42 1.7
--- mainframe.tcl 2001/02/23 10:19:17 1.8
***************
*** 300,305 ****
--- 300,309 ----
# First see if this is a real tag
if { [info exists _widget($path,tagstate,$tag)] } {
+ switch -exact -- $state {
+ disabled { set state 0 }
+ normal { set state 1 }
+ }
set _widget($path,tagstate,$tag) $state
foreach {menu entry} $_widget($path,tags,$tag) {
set expression "1"
