class: UIPainter
changed:
#accept
#windowSpec
keepSpaceForResizeHandle flag
--- 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.