# HG changeset patch
# User ca
# Date 876912087 -7200
# Node ID 643ac5544426b8d5c3e168bca4ed34d7b01229c5
# Parent  7661f4d15eada14641097ec3cdbcdfac1dccd2ae
use:
    resolveName:

diff -r 7661f4d15ead -r 643ac5544426 UIPainterView.st
--- a/UIPainterView.st	Wed Oct 15 12:39:54 1997 +0200
+++ b/UIPainterView.st	Wed Oct 15 12:41:27 1997 +0200
@@ -245,7 +245,7 @@
         newSel  := OrderedCollection new.
         builder := UIBuilder new.
         className notNil ifTrue:[
-            builder applicationClass:(Smalltalk classNamed:className).
+            builder applicationClass:(self resolveName:className)
         ].
 
         keepLayout ifFalse:[
@@ -462,7 +462,7 @@
         self warn:'set the class first'.
         ^ code
     ].
-    cls := Smalltalk classNamed:className.
+    cls := self resolveName:className.
 
     treeView propertiesDo:[:aProp|
         protoSpec := aProp spec.
@@ -598,7 +598,9 @@
     "/ if that method already exists, do not overwrite the category
 
     category := 'interface specs'.
-    (cls := Smalltalk classNamed:className) notNil ifTrue:[
+    cls := self resolveName:className.
+
+    cls notNil ifTrue:[
         (mthd := cls class compiledMethodAt:methodName asSymbol) notNil ifTrue:[
             category := mthd category.
         ]
@@ -911,9 +913,12 @@
     "build view and subviews from aSpecification into a frame. The top view
      is returned. The contained components of a spec are set to nil
     "
+    |cls|
 
-    className notNil ifTrue:[
-        aBuilder applicationClass:(Smalltalk classNamed:className).
+    cls := self resolveName:className.
+
+    cls notNil ifTrue:[
+        aBuilder applicationClass:cls.
     ].
 
     aBuilder componentCreationHook:[:aView :aSpec :aBdr||sv p s n|
@@ -1026,7 +1031,7 @@
             self transaction:#specification selectionDo:[:aView|
                 builder := UIBuilder new.
                 className notNil ifTrue:[
-                    builder applicationClass:(Smalltalk classNamed:className).
+                    builder applicationClass:(self resolveName:className).
                 ].
                 props   := self propertyOfView:aView.
                 name    := (aSpec name) withoutSeparators.
@@ -1233,7 +1238,7 @@
         spec    := args at:1.
         builder := UIBuilder new.
         className notNil ifTrue:[
-            builder applicationClass:(Smalltalk classNamed:className).
+            builder applicationClass:(self resolveName:className).
         ].
         props spec:spec.
         self rebuildView:view fromSpec:spec withBuilder:builder.