# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 886682771 -3600
# Node ID daead6079de73aa594c208f4793a56e09c4b81e1
# Parent  dd545d089d958db688fd1075797dc65305746ca2
Set builders applicationClass (for retrieving subSpecifications)
when setting a spec.

diff -r dd545d089d95 -r daead6079de7 UIPainterView.st
--- 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