The Trunk: Morphic-dhn.723.mcz

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!