equal
deleted
inserted
replaced
625 " |
625 " |
626 |frame appl view vscroller| |
626 |frame appl view vscroller| |
627 |
627 |
628 frame := self windowFrame. |
628 frame := self windowFrame. |
629 appl := builder application. |
629 appl := builder application. |
630 builder := self builderClass new. |
630 self createBuilder. |
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 / 01:42:50 / cg" |
634 "Modified: / 19.6.1998 / 03:35:56 / cg" |
635 ! |
635 ! |
636 |
636 |
637 specificationFor:aKey |
637 specificationFor:aKey |
638 "this is called if our current specification contains |
638 "this is called if our current specification contains |
639 subspecifications or subcanvases. |
639 subspecifications or subcanvases. |