--- a/UIPainterView.st	Wed Jan 09 11:35:39 2008 +0100
+++ b/UIPainterView.st	Wed Jan 09 20:26:44 2008 +0100
@@ -2009,25 +2009,29 @@
     cls := self resolveName:className.
 
     cls notNil ifTrue:[
-	aBuilder applicationClass:cls.
+        aBuilder applicationClass:cls.
     ].
 
-    aBuilder componentCreationHook:[:aView :aSpec :aBdr||sv p s n|
-	p := ViewProperty new.
-	s := aSpec copy.
-	p spec:s.
-	p view:aView.
-
-	s class supportsSubComponents ifTrue:[
-	    s component:nil
-	].
-
-	n := s name.
-
-	(n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[
-	    s name:(self uniqueNameFor:s)
-	].
-	treeView addProperty:p.
+    "/ remember view<->spec associations; break refs to child-specs
+    "/ (not needed, as we keep the child info in the view hierarchy)
+    aBuilder componentCreationHook:[:aView :aSpec :aBdr|
+        |sv p s n|
+
+        p := ViewProperty new.
+        s := aSpec copy.
+        p spec:s.
+        p view:aView.
+
+        s class supportsSubComponents ifTrue:[
+            s component:nil
+        ].
+
+        n := s name.
+
+        (n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[
+            s name:(self uniqueNameFor:s)
+        ].
+        treeView addProperty:p.
     ].
     ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.