choose...fromList... : show a scrollBar if required
--- 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!