diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-07-25 17:20:32 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-07-25 17:20:32 (GMT) |
| commit | cc316de186f7131a592471bd28745bb55f1a8be5 (patch) | |
| tree | 397b0c27a542bd24854588090238a75ea5fd48ab /library | |
| parent | 2b85256e9ae65f649a83caf818f6c0fbb75cd7e0 (diff) | |
| download | tk-cc316de186f7131a592471bd28745bb55f1a8be5.zip tk-cc316de186f7131a592471bd28745bb55f1a8be5.tar.gz tk-cc316de186f7131a592471bd28745bb55f1a8be5.tar.bz2 | |
Commit last suggestion from Koen Danckaert (ttk menubutton, cas -direction flush, for Win and Linux.
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/menubutton.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/library/ttk/menubutton.tcl b/library/ttk/menubutton.tcl index 0f79c65..fc0ea02 100644 --- a/library/ttk/menubutton.tcl +++ b/library/ttk/menubutton.tcl @@ -153,6 +153,7 @@ if {[tk windowingsystem] eq "aqua"} { incr x $bw } default { # flush + incr x [expr {([winfo width $mb] - [winfo reqwidth $menu])/ 2}] } } return [list $x $y $entry] |