diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-04 15:17:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-04 15:17:03 (GMT) |
| commit | d7593d400af18cb2324c012a674e2bac709e768c (patch) | |
| tree | 7b047ab0fb5e2364b13cc8d3d5a208ad669f5ec8 /library | |
| parent | febcba8fc330403fb595f58acc3570f3d29fe1ed (diff) | |
| download | tk-d7593d400af18cb2324c012a674e2bac709e768c.zip tk-d7593d400af18cb2324c012a674e2bac709e768c.tar.gz tk-d7593d400af18cb2324c012a674e2bac709e768c.tar.bz2 | |
(Cherry-pick) Fix for bug [29b5c28ea]
Diffstat (limited to 'library')
| -rw-r--r-- | library/menu.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/menu.tcl b/library/menu.tcl index 823fd69..03b1032 100644 --- a/library/menu.tcl +++ b/library/menu.tcl @@ -1242,7 +1242,8 @@ if {[tk windowingsystem] ne "win32"} { proc ::tk::PostOverPoint {menu x y {entry {}}} { if {$entry ne ""} { $menu post $x $y $entry - if {[$menu entrycget $entry -state] ne "disabled"} { + if {[$menu type $entry] ni {separator tearoff} && + [$menu entrycget $entry -state] ne "disabled"} { $menu activate $entry GenerateMenuSelect $menu } |