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 := UIBuilder new. |
630 builder := self builderClass new. |
631 builder application:appl. |
631 builder application:appl. |
632 builder componentAt:#Frame put:frame. |
632 builder componentAt:#Frame put:frame. |
|
633 |
|
634 "Modified: / 19.6.1998 / 01:42:50 / cg" |
633 ! |
635 ! |
634 |
636 |
635 specificationFor:aKey |
637 specificationFor:aKey |
636 "this is called if our current specification contains |
638 "this is called if our current specification contains |
637 subspecifications or subcanvases. |
639 subspecifications or subcanvases. |