--- a/AbstractFileBrowser.st	Thu May 02 21:27:01 2019 +0200
+++ b/AbstractFileBrowser.st	Thu May 02 21:28:04 2019 +0200
@@ -9334,6 +9334,16 @@
     dirs := self currentSelectedFiles.
     dirs size ~= 1 ifTrue:[ ^ nil].
     ^ dirs anElement.
+!
+
+theSingleSelectedItemOrNil
+    |items|
+
+    items := self selectedItems.
+    items size ~= 1 ifTrue:[ ^ nil].
+    ^ items anElement.
+
+    "Created: / 02-05-2019 / 18:53:06 / Claus Gittinger"
 ! !
 
 !AbstractFileBrowser methodsFor:'queries'!
@@ -9758,6 +9768,12 @@
     "Modified: / 04-12-2006 / 13:15:04 / cg"
 !
 
+selectFiles:aCollectionOfFiles
+    self subclassResponsibility
+
+    "Created: / 02-05-2019 / 18:40:04 / Claus Gittinger"
+!
+
 selectNextFile
     self 
         applicationNamed:#DirectoryContentsBrowser 
@@ -9768,6 +9784,12 @@
     self 
         applicationNamed:#DirectoryContentsBrowser 
         ifPresentDo:[:appl | appl ~~ self ifTrue:[ appl selectPreviousFile ]].
+!
+
+selectedItems
+    self subclassResponsibility
+
+    "Created: / 02-05-2019 / 21:27:38 / Claus Gittinger"
 ! !
 
 !AbstractFileBrowser methodsFor:'sorting'!