--- a/FileSelectionBox.st	Mon Mar 20 12:52:08 1995 +0100
+++ b/FileSelectionBox.st	Sat Mar 25 23:21:46 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.13 1995-03-09 02:11:31 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.14 1995-03-25 22:20:09 claus Exp $
 '!
 
 !FileSelectionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.13 1995-03-09 02:11:31 claus Exp $
+$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.14 1995-03-25 22:20:09 claus Exp $
 "
 !
 
@@ -163,7 +163,7 @@
 	corner := [(width - ViewSpacing - (patternField borderWidth * 2)) @ (labelField origin y+patternField height"IncludingBorder")].
     ].
     patternField origin:(0.7 @ labelField origin y) corner:corner.
-    patternField rightInset:(ViewSpacing // 2).
+    patternField rightInset:ViewSpacing.
     patternField initialText:'*'.
     patternField leaveAction:[:reason | 
 	selectionList pattern:patternField contents. 
@@ -353,17 +353,9 @@
 matchBlock:aBlock
     "set the matchBlock (in the selectionList). Only files
      for which the block returns true are shown.
-     The matching is actually done in the fileSelectionList,
-     but we trick a bit to pass the full pathname instead of the
-     selection-name to the block."
+     The matching is actually done in the fileSelectionList."
 
-    selectionList matchBlock:[:name | 
-	|dir fullPath|
-
-	dir := selectionList directory pathName asFilename.
-	fullPath := dir construct:name. 
-	aBlock value:fullPath asString
-    ]
+    selectionList matchBlock:aBlock 
 !
 
 contents