diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-05-08 08:48:52 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-05-08 08:48:52 (GMT) |
| commit | d618cd4a9d9fc73586c882e5ab59eb62bfe2f7db (patch) | |
| tree | 9d3d71674c01e2ee0cfb935c54a8af024f830275 | |
| parent | d843a7eadb157bca482e150f7298e9cf3007c85c (diff) | |
| parent | de3209189e8860aa1a88ed83e190dd8b7e4c9847 (diff) | |
| download | tk-d618cd4a9d9fc73586c882e5ab59eb62bfe2f7db.zip tk-d618cd4a9d9fc73586c882e5ab59eb62bfe2f7db.tar.gz tk-d618cd4a9d9fc73586c882e5ab59eb62bfe2f7db.tar.bz2 | |
Fix [51b4b18394]: mac os x: combobox.tcl has old scrollbar for its listbox
| -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) \ |