*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 25 Feb 2004 12:59:55 +0100
changeset 5584 6f7e25365480
parent 5583 2da80c3bc608
child 5585 b902ecb72796
*** empty log message ***
FileApplicationNoteBook.st
--- 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 $'
 ! !