--- a/AppModel.st	Wed May 20 00:34:19 1998 +0200
+++ b/AppModel.st	Wed May 20 01:20:56 1998 +0200
@@ -1140,6 +1140,15 @@
     "Created: 1.6.1996 / 17:01:09 / cg"
 !
 
+warn:aString
+    "like Objects warn, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super warn:(resources string:aString) withCRs
+
+    "Created: / 20.5.1998 / 01:14:52 / cg"
+!
+
 withCursor:aCursor do:aBlock
     "evaluate aBlock, showing aCursor in my topView and all of its subviews.
      Return the value of aBlock."
@@ -1643,6 +1652,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.77 1998-05-19 19:26:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.78 1998-05-19 23:20:56 cg Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Wed May 20 00:34:19 1998 +0200
+++ b/ApplicationModel.st	Wed May 20 01:20:56 1998 +0200
@@ -1140,6 +1140,15 @@
     "Created: 1.6.1996 / 17:01:09 / cg"
 !
 
+warn:aString
+    "like Objects warn, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super warn:(resources string:aString) withCRs
+
+    "Created: / 20.5.1998 / 01:14:52 / cg"
+!
+
 withCursor:aCursor do:aBlock
     "evaluate aBlock, showing aCursor in my topView and all of its subviews.
      Return the value of aBlock."
@@ -1643,6 +1652,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.77 1998-05-19 19:26:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.78 1998-05-19 23:20:56 cg Exp $'
 ! !
 ApplicationModel initialize!