*** mainframe.tcl.orig Thu Oct 11 17:29:06 2001
--- mainframe.tcl Thu Oct 11 17:30:41 2001
***************
*** 423,429 ****
lappend _widget($path,tags,$tag) $menubar $count
# ericm@scriptics: Add a tagstate tracker
if { ![info exists _widget($path,tagstate,$tag)] } {
! set _widget($path,tagstate,$tag) 0
}
}
# [email protected]: Add mapping from menu items to tags
--- 423,429 ----
lappend _widget($path,tags,$tag) $menubar $count
# ericm@scriptics: Add a tagstate tracker
if { ![info exists _widget($path,tagstate,$tag)] } {
! set _widget($path,tagstate,$tag) 1
}
}
# [email protected]: Add mapping from menu items to tags
***************
*** 464,470 ****
lappend _widget($path,tags,$tag) $menu $count
# ericm@scriptics: Add a tagstate tracker
if { ![info exists _widget($path,tagstate,$tag)] } {
! set _widget($path,tagstate,$tag) 0
}
}
# [email protected]: Add mapping from menu items to tags
--- 464,470 ----
lappend _widget($path,tags,$tag) $menu $count
# ericm@scriptics: Add a tagstate tracker
if { ![info exists _widget($path,tagstate,$tag)] } {
! set _widget($path,tagstate,$tag) 1
}
}
# [email protected]: Add mapping from menu items to tags
