diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/ttk/combobox.tcl | 11 |
2 files changed, 12 insertions, 4 deletions
@@ -1,3 +1,8 @@ +2007-10-23 Joe English <jenglish@users.sourceforge.net> + + * library/ttk/combobox.tcl: [namespace import ::ttk::scrollbar] + doesn't work, since ttk::scrollbar isn't [namespace export]ed. + 2007-10-23 Don Porter <dgp@users.sourceforge.net> * tests/cursor.test: Make tests robust against changes in Tcl's 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) \ |