--- a/AbstractFileBrowser.st Thu Oct 24 11:43:54 2002 +0200
+++ b/AbstractFileBrowser.st Thu Oct 24 11:54:17 2002 +0200
@@ -1456,14 +1456,11 @@
|item files|
- item:= self firstCurrentSelectedItem.
- item isNil ifTrue:[
- files := self currentFileNameHolder value.
- files notEmpty ifTrue:[
- item := DirectoryContentsBrowser itemClass fileName:(files first).
- ] ifFalse:[
- item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
- ].
+ files := self currentFileNameHolder value.
+ files notEmpty ifTrue:[
+ item := DirectoryContentsBrowser itemClass fileName:(files first).
+ ] ifFalse:[
+ item := DirectoryContentsBrowser itemClass fileName:(Filename homeDirectory asAbsoluteFilename).
].
self openSearchFileOn:item.
!
@@ -4348,11 +4345,6 @@
^ (files select:[: file | file isDirectory not]).
!
-firstCurrentSelectedItem
-
- ^ self application:#DirectoryContentsBrowser do:#firstSelectedItem.
-!
-
firstSelectedFile
| files |
@@ -4878,5 +4870,5 @@
!AbstractFileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.27 2002-10-24 09:33:01 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.28 2002-10-24 09:54:17 penk Exp $'
! !