diff options
Diffstat (limited to 'library/ttk/menubutton.tcl')
| -rw-r--r-- | library/ttk/menubutton.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/menubutton.tcl b/library/ttk/menubutton.tcl index 08b4a15..a245df8 100644 --- a/library/ttk/menubutton.tcl +++ b/library/ttk/menubutton.tcl @@ -224,11 +224,11 @@ proc ttk::menubutton::TransferGrab {mb} { # FindMenuEntry -- # Hack to support tk_optionMenus. # Returns the index of the menu entry with a matching -label, -# -1 if not found. +# "" if not found. # proc ttk::menubutton::FindMenuEntry {menu s} { set last [$menu index last] - if {$last eq "none"} { + if {$last eq "none" || $last eq ""} { return "" } for {set i 0} {$i <= $last} {incr i} { |