--- a/DialogBox.st	Thu Nov 07 20:40:19 1996 +0100
+++ b/DialogBox.st	Fri Nov 08 15:31:38 1996 +0100
@@ -4398,7 +4398,7 @@
     l := aListViewClass new.
     l model:aModel.
 
-    vs ifTrue:[
+    (vs or:[hs]) ifTrue:[
         hs ifTrue:[
             scr := HVScrollableView forView:l miniScrollerH:true .
         ] ifFalse:[
@@ -4441,8 +4441,8 @@
      dialog accepted ifTrue:[Transcript show:'selection is:'; showCR:listView contents].
     "
 
-    "Modified: 27.4.1996 / 18:26:15 / cg"
     "Created: 14.6.1996 / 23:33:47 / stefan"
+    "Modified: 8.11.1996 / 15:31:15 / cg"
 ! !
 
 !DialogBox methodsFor:'construction-rows & columns'!
@@ -5244,6 +5244,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.91 1996-10-18 13:52:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.92 1996-11-08 14:31:38 cg Exp $'
 ! !
 DialogBox initialize!