[squeak-dev] The Trunk: Morphic-bf.751.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Nov 15 17:07:44 UTC 2014
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!
More information about the Squeak-dev
mailing list
|