--- a/DialogBox.st	Tue Jun 06 06:16:07 1995 +0200
+++ b/DialogBox.st	Tue Jun 27 04:24:41 1995 +0200
@@ -25,7 +25,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.15 1995-06-06 04:12:46 claus Exp $
+$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.16 1995-06-27 02:22:28 claus Exp $
 "
 !
 
@@ -376,6 +376,7 @@
 	l := FileSelectionList on:fileName.
 	l useIndex:false.
 	l doubleClickAction:[:name | top okPressed].
+	l action:[:name | fileName value:name].
 	scr := ScrollableView forView:l.
 	scr extent:(1.0 @ 300).
 
@@ -399,6 +400,7 @@
 	l := FileSelectionList on:fileName.
 	l useIndex:false.
 	l doubleClickAction:[:name | top okPressed].
+	l action:[:name | fileName value:name].
 	scr := ScrollableView forView:l.
 
 	top addComponent:scr withExtent:300@300.
@@ -426,6 +428,7 @@
 	l := FileSelectionList on:fileName.
 	l useIndex:false.
 	l doubleClickAction:[:name | top okPressed].
+	l action:[:name | fileName value:name].
 	scr := ScrollableView forView:l.
 	fixFrame add:scr in:(0.0@0.0 corner:1.0@1.0).
 
@@ -1127,7 +1130,7 @@
 	       width:1.0; 
 	       leftInset:leftIndent;
 	       rightInset:rightIndent.
-    yPosition := yPosition + aComponent height.
+    yPosition := yPosition + "aComponent" height + ViewSpacing.
     ^ aComponent
 !
 
@@ -1140,7 +1143,7 @@
     aComponent origin:0.0@yPosition; 
 	       leftInset:leftIndent; 
 	       rightInset:rightIndent.
-    yPosition := yPosition + aComponent height.
+    yPosition := yPosition + aComponent height + ViewSpacing.
     ^ aComponent
 !