diff options
| author | sbron <sbron@tclcode.com> | 2023-02-28 20:47:36 (GMT) |
|---|---|---|
| committer | sbron <sbron@tclcode.com> | 2023-02-28 20:47:36 (GMT) |
| commit | 087cbb4cd350c40857ffcfe79fe9527449aad18e (patch) | |
| tree | 7d14f5ca715b1c537e880c733cbe8ea2dc423b7d /library/ttk | |
| parent | 8af022c5f09ff96ed29b9c981dd1da123038bbe1 (diff) | |
| download | tk-087cbb4cd350c40857ffcfe79fe9527449aad18e.zip tk-087cbb4cd350c40857ffcfe79fe9527449aad18e.tar.gz tk-087cbb4cd350c40857ffcfe79fe9527449aad18e.tar.bz2 | |
Fix calculation when menu doesn't fit below a ttk::menubutton.
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/menubutton.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/ttk/menubutton.tcl b/library/ttk/menubutton.tcl index cd34690..8ef8937 100644 --- a/library/ttk/menubutton.tcl +++ b/library/ttk/menubutton.tcl @@ -146,8 +146,7 @@ if {[tk windowingsystem] eq "aqua"} { incr y $bh # if we go offscreen to the bottom, show as 'above' if {($y + $mh) > ([winfo vrooty $mb] + [winfo vrootheight $mb])} { - set y [expr {[winfo vrooty $mb] + [winfo vrootheight $mb] \ - + [winfo rooty $mb] - $mh}] + set y [expr {[winfo vrooty $mb] + [winfo rooty $mb] - $mh}] } } left { |