Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Avoid errors when a menu is destroyed before its postcommand is run. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | bug-70e531918e |
Files: | files | file ages | folders |
SHA3-256: |
877bea7a983db2fae83b011b67f5231e |
User & Date: | culler 2019-01-13 16:43:19.733 |
References
2022-04-02
| ||
20:44 | • Ticket [dc4c5573] tk_popup entry index not working on unix status still Open with 4 other changes artifact: 583222ce user: fvogel | |
Context
2019-01-13
| ||
18:02 | Add TkpPostTearoffMenu, called by TkPostTearoffMenu and used in the menu post command; eliminates #ifdef in the generic code. check-in: 0f8ee94e user: culler tags: bug-70e531918e | |
16:43 | Avoid errors when a menu is destroyed before its postcommand is run. check-in: 877bea7a user: culler tags: bug-70e531918e | |
2019-01-11
| ||
21:47 | Fix related menubutton issues on linux and Windows. check-in: 63fef3c5 user: culler tags: bug-70e531918e | |
Changes
Changes to library/menu.tcl.
︙ | ︙ | |||
489 490 491 492 493 494 495 496 | if {[info exists Priv(menuActivated)] \ && $index ne "none" \ && $index ne $activeindex} { set mode [option get $menu clickToFocus ClickToFocus] if {[string is false $mode]} { set delay [expr {[$menu cget -type] eq "menubar" ? 0 : 50}] if {[$menu type $index] eq "cascade"} { set Priv(menuActivatedTimer) \ | > > | | | 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 | if {[info exists Priv(menuActivated)] \ && $index ne "none" \ && $index ne $activeindex} { set mode [option get $menu clickToFocus ClickToFocus] if {[string is false $mode]} { set delay [expr {[$menu cget -type] eq "menubar" ? 0 : 50}] if {[$menu type $index] eq "cascade"} { # Catch these postcascade commands since the menu could be # destroyed before they run. set Priv(menuActivatedTimer) \ [after $delay "catch {$menu postcascade active}"] } else { set Priv(menuDeactivatedTimer) \ [after $delay "catch {$menu postcascade none}"] } } } } } # ::tk::MenuButtonDown -- |
︙ | ︙ |