# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1045836439 -3600
# Node ID f196e6667c23944ec017729827c54715f86b6c4d
# Parent  0512e160a112fc73ad2978898e1e0eff8eab1bad
Add #notify (similar to #information:)

diff -r 0512e160a112 -r f196e6667c23 ApplicationModel.st
--- a/ApplicationModel.st	Thu Feb 20 22:15:30 2003 +0100
+++ b/ApplicationModel.st	Fri Feb 21 15:07:19 2003 +0100
@@ -1572,11 +1572,37 @@
     "like Objects information, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
-    super information:(resources string:aString) withCRs
+    |s|
+
+    resources isNil ifTrue:[
+        "/ mhmh an early warning ...
+        s := aString
+    ] ifFalse:[
+        s := resources string:aString
+    ].
+    super information:s withCRs
 
     "Created: / 20.5.1998 / 03:48:43 / cg"
 !
 
+notify:aString
+    "like Objects notify, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    |s|
+
+    resources isNil ifTrue:[
+        "/ mhmh an early warning ...
+        s := aString
+    ] ifFalse:[
+        s := resources string:aString
+    ].
+    super notify:s withCRs
+
+    "Created: / 20.5.1998 / 01:14:52 / cg"
+    "Modified: / 13.11.2001 / 20:10:12 / cg"
+!
+
 restoreCursors
     "restore the original cursors in all of my views"
 
@@ -2694,7 +2720,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.178 2002-12-06 10:10:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.179 2003-02-21 14:07:19 stefan Exp $'
 ! !
 
 ApplicationModel initialize!