Set builders applicationClass (for retrieving subSpecifications)
when setting a spec.
--- a/UIPainterView.st Thu Feb 05 13:43:45 1998 +0100
+++ b/UIPainterView.st Thu Feb 05 13:46:11 1998 +0100
@@ -847,13 +847,18 @@
self removeAll.
spec := UISpecification from:specOrSpecArray.
builder := UIBuilder new isEditing:true.
-
+ "set applicationClass, in order that subspecifications may be resolved"
+ className notNil ifTrue:[
+ builder applicationClass:(self resolveName:className).
+ ].
spec window setupView:self topView for:builder.
self addSpec:(spec component) builder:builder in:self.
self realizeAllSubViews.
inputView raise.
treeView setAttributesFromWindowSpec:(spec window).
]
+
+ "Modified: / 5.2.1998 / 11:42:39 / stefan"
!
treeView:aTreeView