class: UIPainter
authorClaus Gittinger <cg@exept.de>
Mon, 21 Jan 2013 14:47:47 +0100
changeset 2950 9277c8ef8f03
parent 2949 325e4c28a579
child 2951 c2b24bf7b967
class: UIPainter changed: #accept #windowSpec keepSpaceForResizeHandle flag
UIPainter.st
--- a/UIPainter.st	Mon Jan 21 14:46:54 2013 +0100
+++ b/UIPainter.st	Mon Jan 21 14:47:47 2013 +0100
@@ -1362,7 +1362,7 @@
           label: 'GUI Painter'
           name: 'GUI Painter'
           min: (Point 560 460)
-          bounds: (Rectangle 0 0 683 568)
+          bounds: (Rectangle 0 0 834 575)
           menu: menu
           icon: defaultIcon
         )
@@ -1492,7 +1492,7 @@
                                       tabable: true
                                       model: cancel
                                       enableChannel: modifiedChannel
-                                      extent: (Point 231 24)
+                                      extent: (Point 274 24)
                                     )
                                    (ActionButtonSpec
                                       label: 'OK'
@@ -1502,7 +1502,7 @@
                                       tabable: true
                                       model: accept
                                       enableChannel: modifiedChannel
-                                      extent: (Point 231 24)
+                                      extent: (Point 274 24)
                                     )
                                    )
                                  
@@ -1515,7 +1515,7 @@
                        )
                      
                     )
-                    handles: (Any 0.30592105263158 1.0)
+                    handles: (Any 0.3 1.0)
                   )
                  )
                
@@ -4824,6 +4824,9 @@
         layoutTool := self layoutTool.
 
         (layout := layoutTool layout) notNil ifTrue:[
+            "/ cg->ca: the following code should be moded to the layoutTool
+            "/ (i.e. layoutTool saveInSpec:spec.
+
             layoutTool layoutType == #Extent ifTrue:[
                 layoutView := layoutTool layoutView.
 
@@ -4856,6 +4859,9 @@
                 spec usePreferredHeight:(layoutTool aspectFor:#usePreferredHeight) value.
                 spec useDynamicPreferredWidth:(layoutTool aspectFor:#useDynamicPreferredWidth) value.
                 spec useDynamicPreferredHeight:(layoutTool aspectFor:#useDynamicPreferredHeight) value.
+                layoutTool layoutType == #LayoutFrame ifTrue:[
+                    spec keepSpaceForOSXResizeHandle:(layoutTool aspectFor:#keepSpaceForOSXResizeHandle) value.
+                ].
                 painter setLayout:layout.
                 spec layout:layout.
                 painter updateFromSpec:spec.