DirectoryContentsBrowser.st
changeset 4353 fe7b65eee458
parent 4349 4a6287f26d3b
child 4370 777181a805ec
--- a/DirectoryContentsBrowser.st	Fri Dec 06 11:50:24 2002 +0100
+++ b/DirectoryContentsBrowser.st	Fri Dec 06 12:48:59 2002 +0100
@@ -1388,14 +1388,14 @@
                 self pasteFiles.
                 ^ true.
             ].
-            (key == #CursorLeft) ifTrue:[
-                self doGoDirectoryUp.
-                ^ true
-            ].
-            (key == #CursorRight) ifTrue:[
-                self doBack.
-                ^ true
-            ].
+"/            (key == #CursorLeft) ifTrue:[
+"/                self doGoDirectoryUp.
+"/                ^ true
+"/            ].
+"/            (key == #CursorRight) ifTrue:[
+"/                self doBack.
+"/                ^ true
+"/            ].
             browserItemList size == 0 ifTrue:[
                 ^ false
             ].
@@ -2710,5 +2710,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.63 2002-12-04 17:11:57 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.64 2002-12-06 11:48:59 cg Exp $'
 ! !