# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 971440996 -7200
# Node ID 5470ae201605e5124449e6bb9eed99d952e26f83
# Parent  d3d6649ceb86a4de504453b56763b678248cec55
choose...fromList... : show a scrollBar if required

diff -r d3d6649ceb86 -r 5470ae201605 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!