--- a/FileBrowser.st	Sat Sep 20 00:53:14 1997 +0200
+++ b/FileBrowser.st	Sun Sep 21 00:42:12 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 1:19:47 pm'                 !
+
 StandardSystemView subclass:#FileBrowser
 	instanceVariableNames:'labelView filterField fileListView subView currentDirectory
 		fileList checkBlock checkDelta timeOfLastCheck showLongList
@@ -832,6 +834,13 @@
     ]
 !
 
+fileDoubleClick:lineNr
+    "double click on a file - get its contents"
+
+    self fileSelect:lineNr.
+    self fileGet:true
+!
+
 fileSelect:lineNr
     "selected a file - do nothing here"
 
@@ -1273,8 +1282,7 @@
     fileListView := SelectionInListView new.
     scrollView scrolledView:fileListView.
     fileListView action:[:lineNr | self fileSelect:lineNr].
-    fileListView doubleClickAction:[:lineNr | self fileSelect:lineNr.
-                                              self fileGet:true].
+    fileListView doubleClickAction:[:lineNr | self fileDoubleClick:lineNr].
     fileListView multipleSelectOk:true.
     fileListView delegate:self.
     fileListView menuHolder:self; menuPerformer:self; menuMessage:#fileListMenu.
@@ -3445,15 +3453,13 @@
     "
 
     self withReadCursorDo:[
-        |s files matchPattern list passDone f|
+        |files matchPattern list passDone f|
 
         self stopUpdateProcess.
 
         timeOfLastCheck := AbsoluteTime now.
 
-        s := DirectoryStream directoryNamed:(currentDirectory asString).
-        files := s contents.
-        s close.
+        files := currentDirectory asFilename fullDirectoryContents.
 
         "/ show files which are either directories
         "/ or match the current pattern
@@ -3783,8 +3789,8 @@
 
     "Modified: 21.9.1995 / 11:40:23 / claus"
     "Modified: 28.4.1997 / 22:30:30 / dq"
-    "Modified: 30.4.1997 / 12:31:52 / cg"
     "Modified: 18.9.1997 / 18:28:30 / stefan"
+    "Modified: 20.9.1997 / 12:54:29 / cg"
 ! !
 
 !FileBrowser methodsFor:'queries'!
@@ -3799,5 +3805,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.192 1997-09-19 22:53:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.193 1997-09-20 22:42:06 cg Exp $'
 ! !