choose...fromList... : show a scrollBar if required
authorClaus Gittinger <cg@exept.de>
Fri, 13 Oct 2000 14:43:16 +0200
changeset 2299 5470ae201605
parent 2298 d3d6649ceb86
child 2300 68fc714627e8
choose...fromList... : show a scrollBar if required
DialogBox.st
--- a/DialogBox.st	Thu Oct 12 18:52:20 2000 +0200
+++ b/DialogBox.st	Fri Oct 13 14:43:16 2000 +0200
@@ -3113,7 +3113,7 @@
     (box addTextLabel:aString) adjust:#left.
 
     list notNil ifTrue:[
-        maxLines > list size ifTrue:[
+        maxLines <= list size ifTrue:[
             listView := ScrollableView for:SelectionInListView.
         ] ifFalse:[
             listView := SelectionInListView new.
@@ -6621,6 +6621,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.155 2000-10-12 16:52:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.156 2000-10-13 12:43:16 cg Exp $'
 ! !
 DialogBox initialize!