#REFACTORING
authorClaus Gittinger <cg@exept.de>
Thu, 29 Oct 2015 09:47:24 +0100
changeset 3236 2e494c0bcf47
parent 3235 62205b199fc6
child 3237 de989be6d856
#REFACTORING class: UIPainter changed: #accept #doDefineClassAndSelector
UIPainter.st
--- 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:[