--- a/UIPainter.st Thu Oct 29 09:44:01 2015 +0100
+++ b/UIPainter.st Thu Oct 29 09:47:24 2015 +0100
@@ -5222,7 +5222,7 @@
layoutView container container sizeChanged:nil.
].
] ifFalse:[
- spec useDefaultExtent:(layoutTool aspectFor:#useDefaultExtent) value.
+ spec useDefaultExtent:(layoutTool aspectValueFor:#useDefaultExtent).
spec useDefaultExtent ifTrue:[
"/ temporarily unfreeze the widgets size
"/ (but remember, the old setting, which is actually
@@ -5232,22 +5232,22 @@
layout := layoutView preferredExtent.
layoutView sizeFixed:t.
].
- spec usePreferredWidth:(layoutTool aspectFor:#usePreferredWidth) value.
- spec usePreferredHeight:(layoutTool aspectFor:#usePreferredHeight) value.
- spec useDynamicPreferredWidth:(layoutTool aspectFor:#useDynamicPreferredWidth) value.
- spec useDynamicPreferredHeight:(layoutTool aspectFor:#useDynamicPreferredHeight) value.
+ spec usePreferredWidth:(layoutTool aspectValueFor:#usePreferredWidth).
+ spec usePreferredHeight:(layoutTool aspectValueFor:#usePreferredHeight).
+ spec useDynamicPreferredWidth:(layoutTool aspectValueFor:#useDynamicPreferredWidth).
+ spec useDynamicPreferredHeight:(layoutTool aspectValueFor:#useDynamicPreferredHeight).
painter setExtent:layout.
painter updateFromSpec:spec.
]
] ifFalse:[
spec useDefaultExtent:false.
- spec usePreferredWidth:(layoutTool aspectFor:#usePreferredWidth) value.
- spec usePreferredHeight:(layoutTool aspectFor:#usePreferredHeight) value.
- spec useDynamicPreferredWidth:(layoutTool aspectFor:#useDynamicPreferredWidth) value.
- spec useDynamicPreferredHeight:(layoutTool aspectFor:#useDynamicPreferredHeight) value.
+ spec usePreferredWidth:(layoutTool aspectValueFor:#usePreferredWidth).
+ spec usePreferredHeight:(layoutTool aspectValueFor:#usePreferredHeight).
+ spec useDynamicPreferredWidth:(layoutTool aspectValueFor:#useDynamicPreferredWidth).
+ spec useDynamicPreferredHeight:(layoutTool aspectValueFor:#useDynamicPreferredHeight).
layoutTool layoutType == #LayoutFrame ifTrue:[
- spec keepSpaceForOSXResizeHandleH:(layoutTool aspectFor:#keepSpaceForOSXResizeHandleH) value.
- spec keepSpaceForOSXResizeHandleV:(layoutTool aspectFor:#keepSpaceForOSXResizeHandleV) value.
+ spec keepSpaceForOSXResizeHandleH:(layoutTool aspectValueFor:#keepSpaceForOSXResizeHandleH).
+ spec keepSpaceForOSXResizeHandleV:(layoutTool aspectValueFor:#keepSpaceForOSXResizeHandleV).
].
painter setLayout:layout.
spec layout:layout.
@@ -5638,7 +5638,7 @@
|again readFromModelKeyed|
readFromModelKeyed := [:aKey| |ret|
- ret := (self aspectFor:aKey) value.
+ ret := (self aspectValueFor:aKey).
ret isEmptyOrNil ifTrue:[
ret := nil
] ifFalse:[