--- a/FileBrowser.st	Wed Dec 19 15:44:08 2001 +0100
+++ b/FileBrowser.st	Thu Dec 20 11:59:25 2001 +0100
@@ -2729,11 +2729,11 @@
                 ^ self warn:(resources string:'%1 is a directory.' with:fileName).
             ].
             f exists ifFalse:[
-                self warn:(resources string:'oops, ''%1'' is gone or unreadable.' with:fileName).
+                Dialog warn:(resources string:'oops, ''%1'' is gone or unreadable.' with:fileName).
                 ^ self
             ].
             f isReadable ifFalse:[
-                self warn:(resources string:'''%1'' is unreadable.' with:fileName).
+                Dialog warn:(resources string:'''%1'' is unreadable.' with:fileName).
                 ^ self
             ].
             f fileSize > (512*1024) ifTrue:[
@@ -5791,9 +5791,8 @@
                     msg := 'FileBrowser:\\directory %1 is no longer readable ?!!?'
                 ].
                 "/ sigh - avoid translating backslashes in WIN-filenames
-                msg := (resources string:msg with:'__xxx__') withCRs.
-                msg := msg replString:'__xxx__' withString:currentDirectory pathName.
-                self warn:msg.
+                msg := (resources string:msg) withCRs.
+                Dialog warn:(msg bindWith:currentDirectory pathName allBold).
 
                 fileListView contents:nil.
                 newLabel := myName , ': directory is gone !!'.
@@ -5885,7 +5884,8 @@
                 msg := '''%1'' is not a directory !!'
             ]
         ].
-        Dialog warn:(resources string:msg withCRs with:fileName).
+        msg := (resources string:msg) withCRs.
+        Dialog warn:(msg bindWith:fileName allBold).
     ]
 
     "Modified: / 18.9.1997 / 18:22:30 / stefan"
@@ -6845,7 +6845,8 @@
         ] ifTrue:[
             msg := '''%1'' is not a regular file !!'.
         ].
-        self warn:(resources string:msg with:fileNameString).
+        msg := (resources string:msg) withCRs.
+        Dialog warn:(msg bindWith:fileNameString allBold).
         ^ self
     ].
 
@@ -7244,7 +7245,9 @@
         ].
 
         files size == 0 ifTrue:[
-            self information:('directory ', currentDirectory pathName, ' vanished').
+            Dialog warn:((resources string:'Directory ''%1'' is gone.') 
+                        withCRs 
+                            bindWith:currentDirectory pathName allBold).
             ^ self
         ].
         (sortByWhat value == #name) ifTrue:[
@@ -7701,5 +7704,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.454 2001-12-19 14:44:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.455 2001-12-20 10:59:25 cg Exp $'
 ! !