equal
deleted
inserted
replaced
627 appl := builder application. |
627 appl := builder application. |
628 builder := UIBuilder new. |
628 builder := UIBuilder new. |
629 builder application:appl. |
629 builder application:appl. |
630 builder componentAt:#Frame put:frame. |
630 builder componentAt:#Frame put:frame. |
631 |
631 |
|
632 ! |
|
633 |
|
634 specificationFor:aKey |
|
635 "this is called if our current specification contains |
|
636 subspecifications or subcanvases. |
|
637 Get the subspecification from the current specification" |
|
638 |
|
639 |cls| |
|
640 |
|
641 cls := specification class. |
|
642 (cls respondsTo:aKey) ifTrue:[ |
|
643 ^ cls perform:aKey |
|
644 ]. |
|
645 ^ nil |
|
646 |
|
647 "Created: / 4.2.1998 / 23:52:39 / stefan" |
|
648 "Modified: / 4.2.1998 / 23:58:23 / stefan" |
632 ! ! |
649 ! ! |
633 |
650 |
634 !UISpecificationTool methodsFor:'change & update'! |
651 !UISpecificationTool methodsFor:'change & update'! |
635 |
652 |
636 update |
653 update |