--- a/AbstractFileBrowser.st	Fri Jul 04 12:22:26 2014 +0200
+++ b/AbstractFileBrowser.st	Fri Jul 04 12:22:42 2014 +0200
@@ -3098,6 +3098,12 @@
     self fileGetInfo:true
 !
 
+enterAction
+    self 
+        applicationNamed:#DirectoryContentsBrowser 
+        ifPresentDo:[:appl | appl ~~ self ifTrue:[ appl enterAction ]].
+!
+
 fileEncodingDialog
     "open a dialog to allow change of the file's character encoding.
      Files are converted to internal encoding when read, and converted back
@@ -8655,6 +8661,14 @@
     dirs := self currentSelectedDirectories.
     dirs size ~= 1 ifTrue:[ ^ nil].
     ^ dirs anElement.
+!
+
+theSingleSelectedFileOrNil
+    |dirs|
+
+    dirs := self currentSelectedFiles.
+    dirs size ~= 1 ifTrue:[ ^ nil].
+    ^ dirs anElement.
 ! !
 
 !AbstractFileBrowser methodsFor:'queries'!
@@ -9060,6 +9074,18 @@
         and:[self hasOnlyFilesSelected]
 
     "Modified: / 04-12-2006 / 13:15:04 / cg"
+!
+
+selectNextFile
+    self 
+        applicationNamed:#DirectoryContentsBrowser 
+        ifPresentDo:[:appl | appl ~~ self ifTrue:[ appl selectNextFile ]].
+!
+
+selectPreviousFile
+    self 
+        applicationNamed:#DirectoryContentsBrowser 
+        ifPresentDo:[:appl | appl ~~ self ifTrue:[ appl selectPreviousFile ]].
 ! !
 
 !AbstractFileBrowser methodsFor:'sorting'!
@@ -9534,10 +9560,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.562 2014-06-25 15:47:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.563 2014-07-04 10:22:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.562 2014-06-25 15:47:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.563 2014-07-04 10:22:42 cg Exp $'
 ! !