--- a/AppModel.st	Sat Oct 11 16:32:02 1997 +0200
+++ b/AppModel.st	Wed Oct 15 12:51:24 1997 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 29-aug-1997 at 1:17:14 pm'                  !
-
 Model subclass:#ApplicationModel
 	instanceVariableNames:'builder resources device masterApplication'
 	classVariableNames:'DefaultLabels DefaultVisuals'
@@ -1177,6 +1175,32 @@
     "return a name to be shown for me in the process monitor"
 
     ^ 'Application'
+!
+
+resolveClassNamed:something inClass:aClass
+    "return the class from something, a class, symbol, string or nil.
+     first we are looking in the namespace of the application, than of the
+     current namespace and than in Smalltalk
+    "
+
+    ^ Smalltalk resolveName:something inClass:aClass.
+!
+
+resolveName:something
+    "return the class from something, a class, symbol, string or nil.
+     first we are looking in the namespace of the application, than of the
+     current namespace and than in Smalltalk
+    "
+    ^ self resolveName:something inClass:self class
+!
+
+resolveName:something inClass:aClass
+    "return the class from something, a class, symbol, string or nil.
+     first we are looking in the namespace of the application, than of the
+     current namespace and than in Smalltalk
+    "
+
+    ^ Smalltalk resolveName:something inClass:aClass.
 ! !
 
 !ApplicationModel methodsFor:'startup / release'!
@@ -1452,6 +1476,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.58 1997-09-02 21:03:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.59 1997-10-15 10:51:24 ca Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Sat Oct 11 16:32:02 1997 +0200
+++ b/ApplicationModel.st	Wed Oct 15 12:51:24 1997 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 29-aug-1997 at 1:17:14 pm'                  !
-
 Model subclass:#ApplicationModel
 	instanceVariableNames:'builder resources device masterApplication'
 	classVariableNames:'DefaultLabels DefaultVisuals'
@@ -1177,6 +1175,32 @@
     "return a name to be shown for me in the process monitor"
 
     ^ 'Application'
+!
+
+resolveClassNamed:something inClass:aClass
+    "return the class from something, a class, symbol, string or nil.
+     first we are looking in the namespace of the application, than of the
+     current namespace and than in Smalltalk
+    "
+
+    ^ Smalltalk resolveName:something inClass:aClass.
+!
+
+resolveName:something
+    "return the class from something, a class, symbol, string or nil.
+     first we are looking in the namespace of the application, than of the
+     current namespace and than in Smalltalk
+    "
+    ^ self resolveName:something inClass:self class
+!
+
+resolveName:something inClass:aClass
+    "return the class from something, a class, symbol, string or nil.
+     first we are looking in the namespace of the application, than of the
+     current namespace and than in Smalltalk
+    "
+
+    ^ Smalltalk resolveName:something inClass:aClass.
 ! !
 
 !ApplicationModel methodsFor:'startup / release'!
@@ -1452,6 +1476,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.58 1997-09-02 21:03:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.59 1997-10-15 10:51:24 ca Exp $'
 ! !
 ApplicationModel initialize!