diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-05-01 18:30:30 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-05-01 18:30:30 (GMT) |
| commit | de3209189e8860aa1a88ed83e190dd8b7e4c9847 (patch) | |
| tree | b0a2fc0bcf9a5e2ae84b64c406f93b7855fd9918 /library | |
| parent | 43d7f5fb0f3b37902bb0628d71254bf281fe241d (diff) | |
| download | tk-de3209189e8860aa1a88ed83e190dd8b7e4c9847.zip tk-de3209189e8860aa1a88ed83e190dd8b7e4c9847.tar.gz tk-de3209189e8860aa1a88ed83e190dd8b7e4c9847.tar.bz2 | |
Fix [51b4b18394]: mac os x: combobox.tcl has old scrollbar for its listbox
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/combobox.tcl | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index c1b6da6..1355a04 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -251,30 +251,16 @@ proc ttk::combobox::UnmapPopdown {w} { ttk::releaseGrab $w } -### -# - -namespace eval ::ttk::combobox { - # @@@ Until we have a proper native scrollbar on Aqua, use - # @@@ the regular Tk one. Use ttk::scrollbar on other platforms. - variable scrollbar ttk::scrollbar - if {[tk windowingsystem] eq "aqua"} { - set scrollbar ::scrollbar - } -} - ## PopdownWindow -- # Returns the popdown widget associated with a combobox, # creating it if necessary. # proc ttk::combobox::PopdownWindow {cb} { - variable scrollbar - if {![winfo exists $cb.popdown]} { set poplevel [PopdownToplevel $cb.popdown] set popdown [ttk::frame $poplevel.f -style ComboboxPopdownFrame] - $scrollbar $popdown.sb \ + ttk::scrollbar $popdown.sb \ -orient vertical -command [list $popdown.l yview] listbox $popdown.l \ -listvariable ttk::combobox::Values($cb) \ |