--- a/UISpecificationTool.st Fri Jan 30 15:05:54 1998 +0100
+++ b/UISpecificationTool.st Fri Jan 30 15:19:38 1998 +0100
@@ -419,7 +419,15 @@
aspects notNil ifTrue:[ aspects release ].
specification := aSpec.
- aspects := IdentityDictionary new.
+
+ "/ some tricky specs need the builder
+ "/ during the addBindings phase.
+ "/ This is passed down in a special UIBindingsDictionary
+ "/ (remain backward compatible)
+
+ aspects := UISpecification newBindingsDictionary.
+ aspects builder:builder.
+
specChannel := specification asValue.
specification class addBindingsTo:aspects for:specification channel:specChannel.
aspects do:[:el| el addDependent:self ].
@@ -429,6 +437,8 @@
(builder componentAt:#Frame) destroySubViews.
selection := nil.
].
+
+ "Modified: / 30.1.1998 / 13:50:51 / cg"
! !
!UISpecificationTool methodsFor:'accessing channels'!