--- a/AbstractFileBrowser.st	Wed Jul 09 15:16:21 2003 +0200
+++ b/AbstractFileBrowser.st	Wed Jul 09 15:17:46 2003 +0200
@@ -3277,19 +3277,18 @@
 
     dropedObjects do:[:aDropObject | 
         |dropFileName dropFileNameString|
-
         dropFileName := aDropObject theObject.
         dropFileNameString := dropFileName asString.
         dropFileName isDirectory ifTrue:[
             (self fileName:filenameDirString startsWith:dropFileNameString) ifTrue:[
-                " can not drop a directory in his parents "
+                self notify:'Cannot drop a directory into one of its parent directories'.
                 ^ false
             ]
         ] ifFalse:[
             (filenameDirString = dropFileName directory asString 
             or:[ aDropObject isFileInArchive not
                  and:[ filenameDirString = dropFileName physicalPathName asFilename directory asString] ]) ifTrue:[
-                " can not drop a file in same directory "
+                self notify:'Cannot drop a file into same directory'.
                 ^ false
             ]
         ]
@@ -6371,5 +6370,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.163 2003-07-09 13:14:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.164 2003-07-09 13:17:46 cg Exp $'
 ! !