--- 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 $'
! !