Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-tfel.198.mcz==================== Summary ====================
Name: MorphicExtras-tfel.198
Author: tfel
Time: 23 September 2016, 1:53:04.966418 pm
UUID: 356e739d-3d27-4341-ac87-b4b42b58766b
Ancestors: MorphicExtras-jl.197
Flag those hacks for the etoys viewer flaps so we can remember to clean them up
=============== Diff against MorphicExtras-jl.197 ===============
Item was changed:
----- Method: ViewerFlapTab>>adjustPositionAfterHidingFlap (in category 'show & hide') -----
adjustPositionAfterHidingFlap
"we add the width of flap itself to our referent, to reflect the actual width from the edge of the screen, including the space we leave for other flaps. see also ViewerFlapTab>>fitOnScreen"
+ self flag: #todo.
self referent width: self referent width + self width.
super adjustPositionAfterHidingFlap.!
Item was changed:
----- Method: ViewerFlapTab>>fitOnScreen (in category 'positioning') -----
fitOnScreen
| constrainer |
super fitOnScreen.
"We want to leave a margin for the flaps on the side and for the global flaps at the top (like the Sugar navbar) so we reduce the referents top and its width. We undo this before hiding the flap in ViewerFlapTab>>adjustPositionAfterHidingFlap"
+ self flag: #todo.
constrainer := (owner ifNil: [self]) clearArea.
self flapShowing ifTrue: [
Flaps globalFlapTabsIfAny
do: [:each |
(each edgeToAdhereTo = #top and: [each bottom > self referent top])
ifTrue: [self referent top: each bottom].
(each edgeToAdhereTo = #top and: [each bottom > self top])
ifTrue: [self top: each bottom]].
self referent width: constrainer right - self width - self right].!
Locked
