DialogBox.st
changeset 4137 4b259f245421
parent 4132 783ba5afbcf0
child 4139 ed1fc3ee4a4b
--- a/DialogBox.st	Mon Feb 22 09:32:25 2010 +0100
+++ b/DialogBox.st	Wed Feb 24 14:07:45 2010 +0100
@@ -4652,12 +4652,14 @@
     (box addTextLabel:aString) adjust:#left.
 
     list notNil ifTrue:[
-        maxLines <= list size ifTrue:[
-            listView := ScrollableView for:SelectionInListView.
-        ] ifFalse:[
-            listView := SelectionInListView new.
-            listView level:-1.
-        ].
+        listView := HVScrollableView for:SelectionInListView.
+        listView autoHideScrollBars:true.
+"/        maxLines <= list size ifTrue:[
+"/            listView := HVScrollableView for:SelectionInListView.
+"/        ] ifFalse:[
+"/            listView := SelectionInListView new.
+"/            listView level:-1.
+"/        ].
         listView list:list.
         listView doubleClickAction:[:selectionIndex | 
             |val|
@@ -9000,11 +9002,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.294 2010-01-20 21:50:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.295 2010-02-24 13:07:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.294 2010-01-20 21:50:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.295 2010-02-24 13:07:45 cg Exp $'
 ! !
 
 DialogBox initialize!