translate information
authorClaus Gittinger <cg@exept.de>
Wed, 20 May 1998 03:49:53 +0200
changeset 928 0933dc87a851
parent 927 2e4efdc9bc69
child 929 7dfcaf12d7df
translate information
AppModel.st
ApplicationModel.st
--- a/AppModel.st	Wed May 20 03:32:54 1998 +0200
+++ b/AppModel.st	Wed May 20 03:49:53 1998 +0200
@@ -1123,6 +1123,15 @@
 
 !ApplicationModel methodsFor:'misc'!
 
+information:aString
+    "like Objects information, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super information:(resources string:aString) withCRs
+
+    "Created: / 20.5.1998 / 03:48:43 / cg"
+!
+
 restoreCursors
     "restore the original cursors in all of my views"
 
@@ -1652,6 +1661,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.78 1998-05-19 23:20:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.79 1998-05-20 01:49:53 cg Exp $'
 ! !
 ApplicationModel initialize!
--- a/ApplicationModel.st	Wed May 20 03:32:54 1998 +0200
+++ b/ApplicationModel.st	Wed May 20 03:49:53 1998 +0200
@@ -1123,6 +1123,15 @@
 
 !ApplicationModel methodsFor:'misc'!
 
+information:aString
+    "like Objects information, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super information:(resources string:aString) withCRs
+
+    "Created: / 20.5.1998 / 03:48:43 / cg"
+!
+
 restoreCursors
     "restore the original cursors in all of my views"
 
@@ -1652,6 +1661,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.78 1998-05-19 23:20:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.79 1998-05-20 01:49:53 cg Exp $'
 ! !
 ApplicationModel initialize!