[namespace import ::ttk::scrollbar] doesn't work,

since ttk::scrollbar isn't [namespace export]ed.

2 files changed, 12 insertions, 4 deletions

diff --git a/ChangeLog b/ChangeLog
index 5d3057e..1c37726 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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) \