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"
