--- 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 $'
! !