5220 layoutView extent:layout. |
5220 layoutView extent:layout. |
5221 UseViewScroller == true ifTrue:[ |
5221 UseViewScroller == true ifTrue:[ |
5222 layoutView container container sizeChanged:nil. |
5222 layoutView container container sizeChanged:nil. |
5223 ]. |
5223 ]. |
5224 ] ifFalse:[ |
5224 ] ifFalse:[ |
5225 spec useDefaultExtent:(layoutTool aspectFor:#useDefaultExtent) value. |
5225 spec useDefaultExtent:(layoutTool aspectValueFor:#useDefaultExtent). |
5226 spec useDefaultExtent ifTrue:[ |
5226 spec useDefaultExtent ifTrue:[ |
5227 "/ temporarily unfreeze the widgets size |
5227 "/ temporarily unfreeze the widgets size |
5228 "/ (but remember, the old setting, which is actually |
5228 "/ (but remember, the old setting, which is actually |
5229 "/ controlled by the resizeForLabel attribute) |
5229 "/ controlled by the resizeForLabel attribute) |
5230 t := layoutView sizeFixed. |
5230 t := layoutView sizeFixed. |
5231 layoutView sizeFixed:false. |
5231 layoutView sizeFixed:false. |
5232 layout := layoutView preferredExtent. |
5232 layout := layoutView preferredExtent. |
5233 layoutView sizeFixed:t. |
5233 layoutView sizeFixed:t. |
5234 ]. |
5234 ]. |
5235 spec usePreferredWidth:(layoutTool aspectFor:#usePreferredWidth) value. |
5235 spec usePreferredWidth:(layoutTool aspectValueFor:#usePreferredWidth). |
5236 spec usePreferredHeight:(layoutTool aspectFor:#usePreferredHeight) value. |
5236 spec usePreferredHeight:(layoutTool aspectValueFor:#usePreferredHeight). |
5237 spec useDynamicPreferredWidth:(layoutTool aspectFor:#useDynamicPreferredWidth) value. |
5237 spec useDynamicPreferredWidth:(layoutTool aspectValueFor:#useDynamicPreferredWidth). |
5238 spec useDynamicPreferredHeight:(layoutTool aspectFor:#useDynamicPreferredHeight) value. |
5238 spec useDynamicPreferredHeight:(layoutTool aspectValueFor:#useDynamicPreferredHeight). |
5239 painter setExtent:layout. |
5239 painter setExtent:layout. |
5240 painter updateFromSpec:spec. |
5240 painter updateFromSpec:spec. |
5241 ] |
5241 ] |
5242 ] ifFalse:[ |
5242 ] ifFalse:[ |
5243 spec useDefaultExtent:false. |
5243 spec useDefaultExtent:false. |
5244 spec usePreferredWidth:(layoutTool aspectFor:#usePreferredWidth) value. |
5244 spec usePreferredWidth:(layoutTool aspectValueFor:#usePreferredWidth). |
5245 spec usePreferredHeight:(layoutTool aspectFor:#usePreferredHeight) value. |
5245 spec usePreferredHeight:(layoutTool aspectValueFor:#usePreferredHeight). |
5246 spec useDynamicPreferredWidth:(layoutTool aspectFor:#useDynamicPreferredWidth) value. |
5246 spec useDynamicPreferredWidth:(layoutTool aspectValueFor:#useDynamicPreferredWidth). |
5247 spec useDynamicPreferredHeight:(layoutTool aspectFor:#useDynamicPreferredHeight) value. |
5247 spec useDynamicPreferredHeight:(layoutTool aspectValueFor:#useDynamicPreferredHeight). |
5248 layoutTool layoutType == #LayoutFrame ifTrue:[ |
5248 layoutTool layoutType == #LayoutFrame ifTrue:[ |
5249 spec keepSpaceForOSXResizeHandleH:(layoutTool aspectFor:#keepSpaceForOSXResizeHandleH) value. |
5249 spec keepSpaceForOSXResizeHandleH:(layoutTool aspectValueFor:#keepSpaceForOSXResizeHandleH). |
5250 spec keepSpaceForOSXResizeHandleV:(layoutTool aspectFor:#keepSpaceForOSXResizeHandleV) value. |
5250 spec keepSpaceForOSXResizeHandleV:(layoutTool aspectValueFor:#keepSpaceForOSXResizeHandleV). |
5251 ]. |
5251 ]. |
5252 painter setLayout:layout. |
5252 painter setLayout:layout. |
5253 spec layout:layout. |
5253 spec layout:layout. |
5254 painter updateFromSpec:spec. |
5254 painter updateFromSpec:spec. |
5255 ]. |
5255 ]. |
5636 "launches a dialog for defining class, superclass, and selector of the application" |
5636 "launches a dialog for defining class, superclass, and selector of the application" |
5637 |
5637 |
5638 |again readFromModelKeyed| |
5638 |again readFromModelKeyed| |
5639 |
5639 |
5640 readFromModelKeyed := [:aKey| |ret| |
5640 readFromModelKeyed := [:aKey| |ret| |
5641 ret := (self aspectFor:aKey) value. |
5641 ret := (self aspectValueFor:aKey). |
5642 ret isEmptyOrNil ifTrue:[ |
5642 ret isEmptyOrNil ifTrue:[ |
5643 ret := nil |
5643 ret := nil |
5644 ] ifFalse:[ |
5644 ] ifFalse:[ |
5645 ret isString ifTrue:[ |
5645 ret isString ifTrue:[ |
5646 ret := ret string withoutSeparators. |
5646 ret := ret string withoutSeparators. |