equal
deleted
inserted
replaced
13 |
13 |
14 |
14 |
15 |
15 |
16 ApplicationModel subclass:#UISpecificationTool |
16 ApplicationModel subclass:#UISpecificationTool |
17 instanceVariableNames:'modifiedHolder aspects specification selection specChannel |
17 instanceVariableNames:'modifiedHolder aspects specification selection specChannel |
18 scrolledView windowFrame' |
18 scrolledView windowFrame acceptChannel' |
19 classVariableNames:'' |
19 classVariableNames:'' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Interface-UIPainter' |
21 category:'Interface-UIPainter' |
22 ! |
22 ! |
23 |
23 |
544 ) |
544 ) |
545 ! ! |
545 ! ! |
546 |
546 |
547 !UISpecificationTool methodsFor:'accessing'! |
547 !UISpecificationTool methodsFor:'accessing'! |
548 |
548 |
|
549 acceptChannel |
|
550 "return the value of the instance variable 'acceptChannel' (automatically generated)" |
|
551 |
|
552 ^ masterApplication acceptChannel |
|
553 ! |
|
554 |
549 specification |
555 specification |
550 "gets current edit specification |
556 "gets current edit specification |
551 " |
557 " |
552 ^ specification |
558 ^ specification |
553 |
559 |
585 "/ This is passed down in a special UIBindingsDictionary |
591 "/ This is passed down in a special UIBindingsDictionary |
586 "/ (remain backward compatible) |
592 "/ (remain backward compatible) |
587 |
593 |
588 aspects := UISpecification newBindingsDictionary. |
594 aspects := UISpecification newBindingsDictionary. |
589 aspects builder:builder. |
595 aspects builder:builder. |
|
596 aspects at:#modifiedChannel put:modifiedHolder. |
|
597 aspects at:#acceptChannel put:self acceptChannel. |
590 |
598 |
591 specChannel := specification asValue. |
599 specChannel := specification asValue. |
592 specification class addBindingsTo:aspects for:specification channel:specChannel. |
600 specification class addBindingsTo:aspects for:specification channel:specChannel. |
593 |
601 |
594 "/ arrange for being notified, if any aspect changes |
602 "/ arrange for being notified, if any aspect changes |