diff options
| author | jenglish <jenglish@flightlab.com> | 2007-10-23 17:09:09 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2007-10-23 17:09:09 (GMT) |
| commit | 4080a997da8ef252595ced57e5ed4bc1ecdc13fa (patch) | |
| tree | 50f6d517bfc6c26700e0cd4ce8805b82e19edba3 /library/ttk/combobox.tcl | |
| parent | 8b34cd579320036335e6cc2e53afe6c70c3090fa (diff) | |
| download | tk-4080a997da8ef252595ced57e5ed4bc1ecdc13fa.zip tk-4080a997da8ef252595ced57e5ed4bc1ecdc13fa.tar.gz tk-4080a997da8ef252595ced57e5ed4bc1ecdc13fa.tar.bz2 | |
[namespace import ::ttk::scrollbar] doesn't work,
since ttk::scrollbar isn't [namespace export]ed.
Diffstat (limited to 'library/ttk/combobox.tcl')
| -rw-r--r-- | library/ttk/combobox.tcl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index a5ae8a3..1bcca30 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -1,5 +1,5 @@ # -# $Id: combobox.tcl,v 1.5 2007/10/22 03:35:14 jenglish Exp $ +# $Id: combobox.tcl,v 1.6 2007/10/23 17:09:09 jenglish Exp $ # # Combobox bindings. # @@ -221,8 +221,9 @@ proc ttk::combobox::UnmapPopdown {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. - if {[tk windowingsystem] ne "aqua"} { - namespace import -force ::ttk::scrollbar + variable scrollbar ttk::scrollbar + if {[tk windowingsystem] eq "aqua"} { + set scrollbar ::scrollbar } } @@ -231,10 +232,12 @@ namespace eval ::ttk::combobox { # creating it if necessary. # proc ttk::combobox::PopdownWindow {cb} { + variable scrollbar + if {![winfo exists $cb.popdown]} { set popdown [PopdownToplevel $cb.popdown] - scrollbar $popdown.sb \ + $scrollbar $popdown.sb \ -orient vertical -command [list $popdown.l yview] listbox $popdown.l \ -listvariable ttk::combobox::Values($cb) \ |