care for windows filenames (dont expand \'s in filename)
authorClaus Gittinger <cg@exept.de>
Tue, 27 Apr 1999 18:32:21 +0200
changeset 2128 dfff36f688d2
parent 2127 67083916cc02
child 2129 39126a1fb3d5
care for windows filenames (dont expand \'s in filename)
FBrowser.st
FileBrowser.st
--- a/FBrowser.st	Tue Apr 27 18:31:17 1999 +0200
+++ b/FBrowser.st	Tue Apr 27 18:32:21 1999 +0200
@@ -4805,11 +4805,11 @@
                 msg := '''%1'' is not a directory !!'
             ]
         ].
-        self showAlert:(resources string:msg with:fileName) with:nil
+        Dialog warn:(resources string:msg withCRs with:fileName).
     ]
 
     "Modified: / 18.9.1997 / 18:22:30 / stefan"
-    "Modified: / 4.2.1999 / 17:48:59 / cg"
+    "Modified: / 27.4.1999 / 17:10:14 / cg"
 !
 
 doChangeToDefaultDirectory
@@ -6576,5 +6576,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.310 1999-04-27 07:44:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.311 1999-04-27 16:32:21 cg Exp $'
 ! !
--- a/FileBrowser.st	Tue Apr 27 18:31:17 1999 +0200
+++ b/FileBrowser.st	Tue Apr 27 18:32:21 1999 +0200
@@ -4805,11 +4805,11 @@
                 msg := '''%1'' is not a directory !!'
             ]
         ].
-        self showAlert:(resources string:msg with:fileName) with:nil
+        Dialog warn:(resources string:msg withCRs with:fileName).
     ]
 
     "Modified: / 18.9.1997 / 18:22:30 / stefan"
-    "Modified: / 4.2.1999 / 17:48:59 / cg"
+    "Modified: / 27.4.1999 / 17:10:14 / cg"
 !
 
 doChangeToDefaultDirectory
@@ -6576,5 +6576,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.310 1999-04-27 07:44:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.311 1999-04-27 16:32:21 cg Exp $'
 ! !