--- a/FileBrowser.st	Mon May 22 13:12:32 2000 +0200
+++ b/FileBrowser.st	Tue May 23 09:50:54 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libtool' }"
+
 StandardSystemView subclass:#FileBrowser
 	instanceVariableNames:'labelView filterField fileListView subView currentDirectory
 		fileList checkBlock checkDelta timeOfLastCheck myName killButton
@@ -1602,7 +1604,8 @@
         or:[key == #Replace
         or:[key == #InspectIt
         or:[key == #GotoLine
-        or:[key == #DoIt]]]]]]]]]]]]) ifTrue:[^ true].
+        or:[key == #CursorLeft
+        or:[key == #DoIt]]]]]]]]]]]]]) ifTrue:[^ true].
     ].
     ^ false
 
@@ -1660,6 +1663,10 @@
         self fileRename.
         ^ self
     ].
+    (key == #CursorLeft) ifTrue:[
+        self changeToParentDirectory.
+        ^ self
+    ].
     fileListView keyPress:key x:x y:y
 
     "Created: / 28.1.1997 / 14:03:56 / stefan"
@@ -7072,5 +7079,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.368 2000-03-21 11:06:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.369 2000-05-23 07:50:54 cg Exp $'
 ! !