equal
deleted
inserted
replaced
621 ! |
621 ! |
622 |
622 |
623 releaseResources |
623 releaseResources |
624 "release resources |
624 "release resources |
625 " |
625 " |
626 |frame appl view vscroller| |
626 |frame appl| |
627 |
627 |
628 frame := self windowFrame. |
628 builder notNil ifTrue:[ |
629 appl := builder application. |
629 frame := self windowFrame. |
630 self createBuilder. |
630 appl := builder application. |
631 builder application:appl. |
631 builder application:appl. |
632 builder componentAt:#Frame put:frame. |
632 builder componentAt:#Frame put:frame. |
633 |
633 ]. |
634 "Modified: / 19.6.1998 / 03:35:56 / cg" |
634 |
|
635 "Modified: / 20.6.1998 / 15:45:20 / cg" |
635 ! |
636 ! |
636 |
637 |
637 specificationFor:aKey |
638 specificationFor:aKey |
638 "this is called if our current specification contains |
639 "this is called if our current specification contains |
639 subspecifications or subcanvases. |
640 subspecifications or subcanvases. |