--- a/AbstractFileBrowser.st	Fri Jun 13 13:17:46 2003 +0200
+++ b/AbstractFileBrowser.st	Fri Jun 13 13:23:25 2003 +0200
@@ -3454,11 +3454,14 @@
     |selectedFiles singleSelectedFile defaultAnswer directories directory createOp newFile mime|
 
     directories := self currentDirectories value.
-    (directories size ~= 1) ifTrue:[^ self].
+    (directories size ~= 1) ifTrue:[
+        self warn:'Select one directory to create a file'.
+        ^ self
+    ].
     directory := directories first.
 
     "/ clever default if selection is an archive...
-    selectedFiles := self selectedFiles.
+    selectedFiles := self currentSelectedFiles.
     selectedFiles size == 1 ifTrue:[
         singleSelectedFile := selectedFiles first.
 
@@ -3492,7 +3495,10 @@
     | curFile directories directory create file|
 
     directories := self currentDirectories value.
-    (directories size ~= 1) ifTrue:[^ self].
+    (directories size ~= 1) ifTrue:[
+        self warn:'Select one directory to create a file'.
+        ^ self.
+    ].
     directory := directories first.
     curFile := self firstSelectedFile.
     curFile notNil ifTrue:[
@@ -3518,7 +3524,10 @@
     | sel create createdFile|
 
     sel := self currentFileNameHolder value.
-    (sel size ~= 1) ifTrue:[^ self].
+    (sel size ~= 1) ifTrue:[
+        self warn:'Select one directory to link'.
+        ^ self
+    ].
     symbolic ifTrue:[
         create := FileOperation create createSoftLinkIn:(sel first).
     ] ifFalse:[
@@ -6314,5 +6323,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.157 2003-06-13 07:22:10 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.158 2003-06-13 11:23:25 penk Exp $'
 ! !