1754 |
1754 |
1755 update:something with:aParameter from:someObject |
1755 update:something with:aParameter from:someObject |
1756 "catch change notifications |
1756 "catch change notifications |
1757 " |
1757 " |
1758 someObject == treeView model ifTrue:[ |
1758 someObject == treeView model ifTrue:[ |
1759 something == #selection ifTrue:[self treeSelection]. |
1759 (something == #selection |
|
1760 or:[something == #selectionIndex]) ifTrue:[self treeSelection]. |
1760 ^ self |
1761 ^ self |
1761 ]. |
1762 ]. |
1762 |
1763 |
1763 self galleryShown == someObject ifTrue:[ |
1764 self galleryShown == someObject ifTrue:[ |
1764 (self galleryShown value) ifTrue:[ |
1765 (self galleryShown value) ifTrue:[ |
2795 |
2797 |
2796 spec fromView:(self canvas topView) callBack:nil. |
2798 spec fromView:(self canvas topView) callBack:nil. |
2797 spec name:(listOfNodes at:1) name. |
2799 spec name:(listOfNodes at:1) name. |
2798 |
2800 |
2799 windowSpec notNil ifTrue:[ |
2801 windowSpec notNil ifTrue:[ |
2800 spec menu:(windowSpec menu). |
2802 spec copyValuesFromSpec:windowSpec |
2801 spec performer:(windowSpec performer). |
2803 ]. |
2802 spec flags:(windowSpec flags). |
2804 ^ spec |
2803 ]. |
2805 |
2804 ^ spec |
2806 "Modified: / 29.10.1997 / 18:06:44 / cg" |
2805 ! |
2807 ! |
2806 |
2808 |
2807 canvasSpec:aSpec |
2809 canvasSpec:aSpec |
2808 "update canvas from spec |
2810 "update canvas from spec |
2809 " |
2811 " |
2923 fullSpec fromBuilder:(self canvas topView) |
2925 fullSpec fromBuilder:(self canvas topView) |
2924 components:(SpecCollection new collection:aSpecArray). |
2926 components:(SpecCollection new collection:aSpecArray). |
2925 |
2927 |
2926 windowSpec notNil ifTrue:[ |
2928 windowSpec notNil ifTrue:[ |
2927 winSpec := fullSpec window. |
2929 winSpec := fullSpec window. |
2928 winSpec menu:(windowSpec menu). |
2930 winSpec copyValuesFromSpec:windowSpec |
2929 winSpec performer:(windowSpec performer). |
|
2930 winSpec flags:(windowSpec flags). |
|
2931 winSpec forceRecursiveBackground:(windowSpec forceRecursiveBackground). |
|
2932 ]. |
2931 ]. |
2933 ^ fullSpec literalArrayEncoding. |
2932 ^ fullSpec literalArrayEncoding. |
2934 |
2933 |
2935 "Modified: / 26.10.1997 / 22:41:51 / cg" |
2934 "Modified: / 29.10.1997 / 18:05:58 / cg" |
2936 ! |
2935 ! |
2937 |
2936 |
2938 setAttributesFromWindowSpec:aWindowSpec |
2937 setAttributesFromWindowSpec:aWindowSpec |
2939 "set windowSpec from argument a WindowSpec |
2938 "set windowSpec from argument a WindowSpec |
2940 " |
2939 " |
2941 windowSpec := WindowSpec new. |
2940 windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec. |
2942 |
|
2943 windowSpec menu:(aWindowSpec menu). |
|
2944 windowSpec performer:(aWindowSpec performer). |
|
2945 windowSpec flags:(aWindowSpec flags). |
|
2946 |
|
2947 self canvasNameChanged:aWindowSpec name. |
2941 self canvasNameChanged:aWindowSpec name. |
|
2942 |
|
2943 "Modified: / 29.10.1997 / 18:06:56 / cg" |
2948 ! ! |
2944 ! ! |
2949 |
2945 |
2950 !UIPainter::TreeView methodsFor:'canvas selection'! |
2946 !UIPainter::TreeView methodsFor:'canvas selection'! |
2951 |
2947 |
2952 cvsSelection:aSelection |
2948 cvsSelection:aSelection |