FileBrowser.st
changeset 1956 dae4a93b835b
parent 1955 e10babdbf077
child 1961 f81295571da7
--- a/FileBrowser.st	Sat Nov 07 16:00:43 1998 +0100
+++ b/FileBrowser.st	Sat Nov 07 16:29:56 1998 +0100
@@ -4541,12 +4541,13 @@
                 self fileTypeSpecificActions.
 
                 subView acceptAction:[:theCode |
-                    (fileName asFilename modificationTime <= timeOfFileRead
+                    (f modificationTime <= timeOfFileRead
                     or:[
                         (self 
                             ask:(resources at:'FileBrowser:\\file has changed somehow in the meanwhile.\(Hint: use the file-difference menu function to see what has changed)\\Do you really want to save ?')
                             yesButton:'save'
                             noButton:'don''t save')]) ifTrue:[
+
                         self withCursor:(Cursor write) do:[
                             self writeFile:fileName text:theCode encoding:fileEncoding.
                             timeOfFileRead := f modificationTime.
@@ -4568,7 +4569,7 @@
 
     "Created: / 19.6.1996 / 09:39:07 / cg"
     "Modified: / 18.9.1997 / 17:35:31 / stefan"
-    "Modified: / 7.11.1998 / 15:57:51 / cg"
+    "Modified: / 7.11.1998 / 16:27:39 / cg"
 !
 
 doFindFileNamed:namePattern ignoreCase:ignCaseInName containingString:contentsString ignoreCaseInContents:ignCaseInString in:aDirectory
@@ -5894,5 +5895,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.271 1998-11-07 15:00:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.272 1998-11-07 15:29:56 cg Exp $'
 ! !