--- a/FileApplicationNoteBook.st Tue Feb 24 22:35:17 2004 +0100
+++ b/FileApplicationNoteBook.st Wed Feb 25 12:59:55 2004 +0100
@@ -4801,25 +4801,31 @@
!FileApplicationNoteBook::TextEditor methodsFor:'privat-process'!
checkItemForChanges
- |dir exist myItem time|
-
- dir := self fileName directory.
- myItem := self item.
- exist := myItem exists.
- self itemRemoved value:(exist not).
- exist ifTrue:[
+ |exists time message|
+
+ exists := self item exists.
+ self itemRemoved value:(exists not).
+ exists ifTrue:[
time := self fileName modificationTime.
textEditorModificationTime isNil ifTrue:[
textEditorModificationTime := time.
].
- (textEditorModificationTime ~= time) ifTrue:[
- "/ contents changed by someone else
- self notify:(resources string:'%1 was changed by someone else.' with:item fileName baseName allBold).
- self itemChanged value:true.
- ] ifFalse:[
- (resources string:'%1 was changed by someone else.' with:item fileName baseName allBold) = self notifyChannel value ifTrue:[
- self notify:''.
- ].
+
+ message := '%1 was changed by someone else.'.
+ ] ifFalse:[
+ message := '%1 was removed by someone else.'.
+ ].
+
+ message := (resources string:message with:item fileName baseName allBold)
+ emphasisAllAdd:(UserPreferences current emphasisForModifiedBuffer).
+
+ (textEditorModificationTime ~= time) ifTrue:[
+ "/ contents changed by someone else
+ self notify:message.
+ self itemChanged value:true.
+ ] ifFalse:[
+ message = self notifyChannel value ifTrue:[
+ self notify:''.
].
].
!
@@ -5433,5 +5439,5 @@
!FileApplicationNoteBook class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.153 2004-02-24 18:04:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.154 2004-02-25 11:59:55 cg Exp $'
! !