dialog messages
authorClaus Gittinger <cg@exept.de>
Thu, 13 Feb 2003 12:30:09 +0100
changeset 4553 85a4a591abc6
parent 4552 a8df4916183a
child 4554 467311f7345a
dialog messages
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Thu Feb 13 12:20:36 2003 +0100
+++ b/FileApplicationNoteBook.st	Thu Feb 13 12:30:09 2003 +0100
@@ -3820,26 +3820,27 @@
     "ask for save changes
     "
 
-    |answer string|
+    |answer string arg|
 
     answer := false.
     self modifiedChannel value ifTrue:[
         self itemChanged value ifTrue:[
-            string := self fileName asString allBold , ' was changed by someone else' 
-                        , Character cr , 'Save your changes anyway ?'
+            arg := self fileName baseName allBold.
+            string := '%1 was changed by someone else.\Save your changes anyway ?' 
         ].
         self itemRemoved value ifTrue:[
-            string := self fileName asString allBold , ' was removed by someone else' 
-                        , Character cr , 'Save your changes anyway ?'
+            arg := self fileName baseName allBold.
+            string := '%1 was removed by someone else.\Save your changes anyway ?' 
         ].
         string isNil ifTrue:[
-            string := 'Save changed file ' , self fileName asString , ' ?'
-        ]
+            arg := self fileName baseName allBold.
+            string := 'Save changed file %1 ?'.
+        ].
     ].
     string notNil ifTrue:[
-        answer := (Dialog confirmWithCancel:string).
+        answer := (Dialog confirmWithCancel:(resources string:string with:arg) withCRs).
         answer isNil ifTrue:[^ answer].
-        answer == true ifTrue:[
+        answer ifTrue:[
             self accept
         ] ifFalse:[
             self setContents.
@@ -4256,7 +4257,7 @@
             ((textEditorChangeModificationTime = time) not) ifTrue:[
                 "/ contents changed by someone else
                 textEditorChangeModificationTime := time.
-                self notify:item fileName asString, ' was changed by someone else'.
+                self notify:(resources string:'%1 was changed by someone else.' with:item fileName baseName allBold).
                 self itemChanged value:true.
             ].
         ]
@@ -4928,5 +4929,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.59 2003-02-13 09:34:06 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.60 2003-02-13 11:30:09 cg Exp $'
 ! !