equal
deleted
inserted
replaced
2647 |
2647 |
2648 spec fromView:(self canvas topView) callBack:nil. |
2648 spec fromView:(self canvas topView) callBack:nil. |
2649 spec name:(listOfNodes at:1) name. |
2649 spec name:(listOfNodes at:1) name. |
2650 |
2650 |
2651 windowSpec notNil ifTrue:[ |
2651 windowSpec notNil ifTrue:[ |
2652 spec menu:(windowSpec menu). |
2652 spec menu:(windowSpec menu). |
|
2653 spec performer:(windowSpec performer). |
2653 spec flags:(windowSpec flags). |
2654 spec flags:(windowSpec flags). |
2654 ]. |
2655 ]. |
2655 ^ spec |
2656 ^ spec |
2656 ! |
2657 ! |
2657 |
2658 |
2773 |
2774 |
2774 fullSpec fromBuilder:(self canvas topView) |
2775 fullSpec fromBuilder:(self canvas topView) |
2775 components:(SpecCollection new collection:aSpecArray). |
2776 components:(SpecCollection new collection:aSpecArray). |
2776 |
2777 |
2777 windowSpec notNil ifTrue:[ |
2778 windowSpec notNil ifTrue:[ |
2778 fullSpec window menu:(windowSpec menu). |
2779 fullSpec window menu:(windowSpec menu). |
|
2780 fullSpec window performer:(windowSpec performer). |
2779 fullSpec window flags:(windowSpec flags). |
2781 fullSpec window flags:(windowSpec flags). |
2780 ]. |
2782 ]. |
2781 ^ fullSpec literalArrayEncoding. |
2783 ^ fullSpec literalArrayEncoding. |
2782 ! |
2784 ! |
2783 |
2785 |
2784 setAttributesFromWindowSpec:aWindowSpec |
2786 setAttributesFromWindowSpec:aWindowSpec |
2785 "set windowSpec from argument a WindowSpec |
2787 "set windowSpec from argument a WindowSpec |
2786 " |
2788 " |
2787 windowSpec := WindowSpec new. |
2789 windowSpec := WindowSpec new. |
2788 |
2790 |
2789 windowSpec menu:(aWindowSpec menu). |
2791 windowSpec menu:(aWindowSpec menu). |
|
2792 windowSpec performer:(aWindowSpec performer). |
2790 windowSpec flags:(aWindowSpec flags). |
2793 windowSpec flags:(aWindowSpec flags). |
2791 |
2794 |
2792 self canvasNameChanged:aWindowSpec name. |
2795 self canvasNameChanged:aWindowSpec name. |
2793 ! ! |
2796 ! ! |
2794 |
2797 |