--- 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.