--- a/ApplicationModel.st	Tue Feb 22 00:34:44 2000 +0100
+++ b/ApplicationModel.st	Wed Feb 23 11:26:42 2000 +0100
@@ -1459,6 +1459,15 @@
 
 !
 
+warn:aString with:arg1 with:arg2 with:arg3 with:arg4
+    "like Objects warn, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super warn:(resources string:aString with:arg1 with:arg2 with:arg3 with:arg4) withCRs
+
+    "Created: / 23.2.2000 / 09:43:04 / cg"
+!
+
 withCursor:aCursor do:aBlock
     "evaluate aBlock, showing aCursor in my topView and all of its subviews.
      Return the value of aBlock."
@@ -2364,6 +2373,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.128 2000-02-16 21:42:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.129 2000-02-23 10:26:42 cg Exp $'
 ! !
 ApplicationModel initialize!