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