diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-11-13 15:15:46 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-11-13 15:15:46 (GMT) |
| commit | c3149fa0b5bd697ccb9d9afafc37b3aa55739af1 (patch) | |
| tree | 964f3b410f22def2f93d24d94929593baf1847b3 /library/ttk/combobox.tcl | |
| parent | 014b4675af8c2a789caf37365b6ff284c3981006 (diff) | |
| download | tk-c3149fa0b5bd697ccb9d9afafc37b3aa55739af1.zip tk-c3149fa0b5bd697ccb9d9afafc37b3aa55739af1.tar.gz tk-c3149fa0b5bd697ccb9d9afafc37b3aa55739af1.tar.bz2 | |
Fix for [f60c54bec6] Combobox does not retrieve -postoffset value from correct style. Thanks to Daniele Panza.
Diffstat (limited to 'library/ttk/combobox.tcl')
| -rw-r--r-- | library/ttk/combobox.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index 03821a2..6ceccef 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -368,7 +368,8 @@ proc ttk::combobox::PlacePopdown {cb popdown} { set y [winfo rooty $cb] set w [winfo width $cb] set h [winfo height $cb] - set postoffset [ttk::style lookup TCombobox -postoffset {} {0 0 0 0}] + set style [$cb cget -style] + set postoffset [ttk::style lookup $style -postoffset {} {0 0 0 0}] foreach var {x y w h} delta $postoffset { incr $var $delta } |