--- a/UIPainterView.st Wed Jan 09 20:29:20 2008 +0100
+++ b/UIPainterView.st Wed Jan 09 21:07:57 2008 +0100
@@ -2012,9 +2012,8 @@
aBuilder applicationClass:cls.
].
- "/ 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|
+ "/ remember view<->spec associations to tree
+ aBuilder componentCreationHook:[:aView :aSpec :builder|
|sv p s n|
p := ViewProperty new.
@@ -2022,6 +2021,8 @@
p spec:s.
p view:aView.
+ "/ break refs to child-specs
+ "/ (not needed, as we keep the child info in the view hierarchy)
s class supportsSubComponents ifTrue:[
s component:nil
].