FileBrowser.st
changeset 1303 410aa68caf1e
parent 1298 4ce2a9cd693a
child 1307 67a0a7849514
--- a/FileBrowser.st	Tue Sep 02 23:24:34 1997 +0200
+++ b/FileBrowser.st	Tue Sep 02 23:27:05 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.9 on 31-aug-1997 at 8:09:58 pm'                  !
+
 StandardSystemView subclass:#FileBrowser
 	instanceVariableNames:'labelView filterField fileListView subView currentDirectory
 		fileList checkBlock checkDelta timeOfLastCheck showLongList
@@ -1316,7 +1318,7 @@
 
 
     commandView := EditField origin:0.0@1.0 corner:1.0@1.0 in:frame.
-    commandView allInset:ViewSpacing.
+    commandView allInset:ViewSpacing//2.
     commandView topInset:(commandView preferredExtent y negated - ViewSpacing).
 
 "/    commandView contents:'** no commands which require input here **'.
@@ -1385,7 +1387,7 @@
     ].
 
     "Modified: 7.9.1995 / 15:48:45 / claus"
-    "Modified: 14.11.1996 / 14:58:38 / cg"
+    "Modified: 30.8.1997 / 19:22:52 / cg"
 !
 
 initializeFilterPattern
@@ -3750,5 +3752,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.184 1997-08-20 17:14:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.185 1997-09-02 21:27:05 cg Exp $'
 ! !