--- a/DialogBox.st	Tue Feb 01 12:21:28 2000 +0100
+++ b/DialogBox.st	Tue Feb 01 12:23:14 2000 +0100
@@ -3027,7 +3027,7 @@
         box makeTabable:listView.
     ].
 
-    buttonLabels notNil ifTrue:[
+    buttonLabels size > 0 ifTrue:[
         panel := HorizontalPanelView new.
         panel horizontalLayout:#fitSpace.
         buttonLabels keysAndValuesDo:[:index :label |
@@ -3257,7 +3257,7 @@
 
          Transcript showCR:(
              Dialog 
-                chooseMultiple:'choose any' 
+                chooseMultiple:'choose selected' 
                 fromList:#('one' 'two' 'three' 'four') 
                 values:#(1 2 3 4) 
                 buttons:nil
@@ -3265,6 +3265,17 @@
                 lines:10 
                 cancel:nil
          )
+
+         Transcript showCR:(
+             Dialog 
+                chooseMultiple:'choose selected' 
+                fromList:#('one' 'two' 'three' 'four') 
+                values:#(1 2 3 4) 
+                buttons:#()
+                values:#()
+                lines:10 
+                cancel:nil
+         )
     "
 
     "Modified: 29.5.1996 / 15:27:22 / cg"
@@ -6334,6 +6345,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.142 2000-02-01 11:21:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.143 2000-02-01 11:23:14 cg Exp $'
 ! !
 DialogBox initialize!