FileBrowser.st
changeset 11689 e6586cca74dd
parent 9763 e3a1fc41f6f8
child 12401 4714b9640528
child 12427 74750a877f46
--- a/FileBrowser.st	Fri Jul 27 11:06:47 2012 +0200
+++ b/FileBrowser.st	Fri Jul 27 11:07:58 2012 +0200
@@ -6496,7 +6496,7 @@
                         yesButton:(resources string:'Save')
                         noButton:(resources string:'Cancel'))]]) 
                 ifTrue:[
-                    self withCursor:(Cursor write) do:[
+                    self withWriteCursorDo:[
                         self writeFile:fileName text:theCode encoding:fileEncoding.
                         timeOfFileRead := f modificationTime.
                         self label:myName , ': ' , currentFileName
@@ -6514,9 +6514,9 @@
         self iconLabel:iconLbl.
     ]
 
-    "Created: / 4.2.1999 / 17:43:26 / cg"
-    "Modified: / 3.5.1999 / 20:32:27 / ps"
-    "Modified: / 10.12.2001 / 14:33:38 / cg"
+    "Created: / 04-02-1999 / 17:43:26 / cg"
+    "Modified: / 03-05-1999 / 20:32:27 / ps"
+    "Modified: / 27-07-2012 / 09:45:56 / cg"
 !
 
 doRemove:filesToRemove
@@ -7502,9 +7502,9 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.642 2011-02-14 16:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.642 2011-02-14 16:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
 ! !