Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dhn.723.mcz
==================== Summary ====================
Name: Morphic-dhn.723 Author: dhn Time: 13 November 2014, 3:45:53.764 pm UUID: d65075d4-7a76-2741-9dbd-36fecda5d257 Ancestors: Morphic-dhn.722
Reduce cropping of SystemWindow submorphs by fullScreen
=============== Diff against Morphic-cmm.721 ===============
Item was changed: ----- Method: SystemWindow>>fullScreen (in category 'menu') ----- fullScreen + "Zoom Window to full owner size, allowing for scroll bars and desk margins" - "Zoom Window to Full World size with possible DeskMargins" - "SystemWindow fullScreen" | left right possibleBounds | left := right := 0. self paneMorphs do: [:pane | ((pane isKindOf: ScrollPane) and: [pane retractableScrollBar]) ifTrue: [pane scrollBarOnLeft ifTrue: [left := left max: pane scrollBarThickness] ifFalse: [right := right max: pane scrollBarThickness]]]. + possibleBounds := (RealEstateAgent maximumUsableAreaInWorld: self owner) - possibleBounds := (RealEstateAgent maximumUsableAreaInWorld: self world) insetBy: (left @ 0 corner: right @ 0). Preferences fullScreenLeavesDeskMargins ifTrue: [possibleBounds := possibleBounds insetBy: 22]. self bounds: possibleBounds!
squeak-dev@lists.squeakfoundation.org