1743 self perform:(('fetch', selection asString) asSymbol). |
1746 self perform:(('fetch', selection asString) asSymbol). |
1744 spec := ('specification', selection asString) asSymbol. |
1747 spec := ('specification', selection asString) asSymbol. |
1745 spec := self class perform:spec. |
1748 spec := self class perform:spec. |
1746 ]. |
1749 ]. |
1747 self buildFromSpec:spec. |
1750 self buildFromSpec:spec. |
1748 ]. |
1751 ] ifTrue:[ |
1749 idx := layoutTypes findFirst:[:type| type == aLayoutType ]. |
1752 selection notNil ifTrue:[ |
1750 noteBook setSelection:idx. |
|
1751 |
|
1752 selection == aLayoutType ifFalse:[ |
|
1753 (selection := aLayoutType) notNil ifTrue:[ |
|
1754 self perform:(('fetch', selection asString) asSymbol). |
1753 self perform:(('fetch', selection asString) asSymbol). |
1755 spec := ('specification', selection asString) asSymbol. |
1754 self modified:false. |
1756 spec := self class perform:spec. |
1755 ] |
1757 ]. |
|
1758 self buildFromSpec:spec. |
|
1759 ]. |
1756 ]. |
1760 idx := layoutTypes findFirst:[:type| type == aLayoutType ]. |
1757 idx := layoutTypes findFirst:[:type| type == aLayoutType ]. |
1761 noteBook setSelection:idx. |
1758 noteBook setSelection:idx. |
1762 noteBook enabled:(forView notNil). |
1759 noteBook enabled:(forView notNil). |
1763 |
1760 |