4723 fullSpec name:specNameSymbol. |
4723 fullSpec name:specNameSymbol. |
4724 |
4724 |
4725 fullSpec fromBuilder:(self canvas) |
4725 fullSpec fromBuilder:(self canvas) |
4726 components:(SpecCollection new collection:aSpecArray). |
4726 components:(SpecCollection new collection:aSpecArray). |
4727 |
4727 |
4728 "/ kludge: if grid was on, its now present in the windowSpec (which should not) |
4728 winSpec := fullSpec window. |
4729 self canvas gridShown ifTrue:[ |
4729 windowSpec isNil ifTrue:[ |
4730 fullSpec window backgroundColor:nil. |
4730 "/ kludge: if grid was on, its now present in the windowSpec (which should not) |
4731 ]. |
4731 self canvas gridShown ifTrue:[ |
4732 |
4732 fullSpec window backgroundColor:nil. |
4733 windowSpec notNil ifTrue:[ |
4733 ]. |
4734 winSpec := fullSpec window. |
4734 ] ifFalse:[ |
4735 winSpec copyValuesFromSpec:windowSpec. |
4735 winSpec copyValuesFromSpec:windowSpec. |
4736 winSpec name: winSpec label. |
|
4737 ]. |
4736 ]. |
|
4737 winSpec name: winSpec label. |
4738 ^ fullSpec literalArrayEncoding. |
4738 ^ fullSpec literalArrayEncoding. |
4739 ! |
4739 ! |
4740 |
4740 |
4741 setAttributesFromWindowSpec:aWindowSpec |
4741 setAttributesFromWindowSpec:aWindowSpec |
4742 "sets a window spec from aWindowSpec and applies some attributes |
4742 "sets a window spec from aWindowSpec and applies some attributes |