equal
deleted
inserted
replaced
5249 self isLayoutToolSelected ifTrue:[ |
5249 self isLayoutToolSelected ifTrue:[ |
5250 layoutTool := self layoutTool. |
5250 layoutTool := self layoutTool. |
5251 |
5251 |
5252 (layout := layoutTool layout) notNil ifTrue:[ |
5252 (layout := layoutTool layout) notNil ifTrue:[ |
5253 "/ cg->ca: the following code should be moded to the layoutTool |
5253 "/ cg->ca: the following code should be moded to the layoutTool |
5254 "/ (i.e. layoutTool saveInSpec:spec. |
5254 "/ (i.e. layoutTool saveInSpec:spec). |
5255 |
5255 |
5256 layoutTool layoutType == #Extent ifTrue:[ |
5256 layoutTool layoutType == #Extent ifTrue:[ |
5257 layoutView := layoutTool layoutView. |
5257 layoutView := layoutTool layoutView. |
5258 |
5258 |
5259 layoutView == self canvas ifTrue:[ |
5259 layoutView == self canvas ifTrue:[ |