--- a/AppModel.st	Tue May 19 19:18:32 1998 +0200
+++ b/AppModel.st	Tue May 19 21:26:32 1998 +0200
@@ -433,6 +433,15 @@
     ClassResources := nil.
 !
 
+resources
+    "return the applications resources - thats a ResourcePack containing
+     language strings"
+
+    ^ self classResources
+
+    "Created: / 19.5.1998 / 20:14:00 / cg"
+!
+
 updateClassResources
     "update my classResources"
 
@@ -1634,6 +1643,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.76 1998-04-22 07:42:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.77 1998-05-19 19:26:32 cg Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Tue May 19 19:18:32 1998 +0200
+++ b/ApplicationModel.st	Tue May 19 21:26:32 1998 +0200
@@ -433,6 +433,15 @@
     ClassResources := nil.
 !
 
+resources
+    "return the applications resources - thats a ResourcePack containing
+     language strings"
+
+    ^ self classResources
+
+    "Created: / 19.5.1998 / 20:14:00 / cg"
+!
+
 updateClassResources
     "update my classResources"
 
@@ -1634,6 +1643,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.76 1998-04-22 07:42:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.77 1998-05-19 19:26:32 cg Exp $'
 ! !
 ApplicationModel initialize!