[Pkg] The Trunk: Morphic-bf.751.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-bf.751.mcz

==================== Summary ====================

Name: Morphic-bf.751
Author: bf
Time: 15 November 2014, 6:05:35.432 pm
UUID: 5fb78a95-2971-460e-88c7-99b58c3152ca
Ancestors: Morphic-topa.750, Morphic-dhn.723

Merge Morphic-dhn.723:
	Reduce cropping of SystemWindow submorphs by fullScreen

=============== Diff against Morphic-topa.750 ===============

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!