diff -r 325e4c28a579 -r 9277c8ef8f03 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.