--- a/UISpecificationTool.st Fri Mar 19 13:24:33 1999 +0100
+++ b/UISpecificationTool.st Fri Mar 19 15:12:25 1999 +0100
@@ -15,7 +15,7 @@
ApplicationModel subclass:#UISpecificationTool
instanceVariableNames:'modifiedHolder aspects specification selection specChannel
- scrolledView windowFrame'
+ scrolledView windowFrame acceptChannel'
classVariableNames:''
poolDictionaries:''
category:'Interface-UIPainter'
@@ -546,6 +546,12 @@
!UISpecificationTool methodsFor:'accessing'!
+acceptChannel
+ "return the value of the instance variable 'acceptChannel' (automatically generated)"
+
+ ^ masterApplication acceptChannel
+!
+
specification
"gets current edit specification
"
@@ -587,6 +593,8 @@
aspects := UISpecification newBindingsDictionary.
aspects builder:builder.
+ aspects at:#modifiedChannel put:modifiedHolder.
+ aspects at:#acceptChannel put:self acceptChannel.
specChannel := specification asValue.
specification class addBindingsTo:aspects for:specification channel:specChannel.