Posted to tcl by patthoyts at Sat Apr 30 22:13:00 GMT 2011view raw

  1. --- a/library/menu.tcl
  2. +++ b/library/menu.tcl
  3. @@ -567,15 +567,14 @@ proc ::tk::MenuMotion {menu x y state} {
  4. && $index ne "none" \
  5. && $index ne $activeindex} {
  6. set mode [option get $menu clickToFocus ClickToFocus]
  7. - if {$mode eq "" || ([string is boolean $mode] && !$mode)} {
  8. + if {[string is false $mode]} {
  9. set delay [expr {[$menu cget -type] eq "menubar" ? 0 : 50}]
  10. - if {[$menu type $activeindex] eq "cascade"} {
  11. - set Priv(menuDeactivatedTimer) \
  12. - [after $delay [list $menu postcascade none]]
  13. - }
  14. if {[$menu type $index] eq "cascade"} {
  15. set Priv(menuActivatedTimer) \
  16. [after $delay [list $menu postcascade active]]
  17. + } else {
  18. + set Priv(menuDeactivatedTimer) \
  19. + [after $delay [list $menu postcascade none]]
  20. }
  21. }
  22. }
  23. ~