The Trunk: MorphicExtras-jl.197.mcz

Jens Lincke uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-jl.197.mcz

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

Name: MorphicExtras-jl.197
Author: jl
Time: 21 September 2016, 4:39:08.769628 pm
UUID: fe309652-c36d-374f-8d22-4813f83c7d60
Ancestors: MorphicExtras-jl.196

- update the default parts for the supplies flaps
- make the viewer flaps avoid each other and the global flaps on the top (like in Squeakland)

=============== Diff against MorphicExtras-tfel.195 ===============

Item was changed:
  ----- Method: Flaps class>>defaultsQuadsDefiningPlugInSuppliesFlap (in category 'predefined flaps') -----
  defaultsQuadsDefiningPlugInSuppliesFlap
  "Answer a list of quads which define the objects to appear in the default Supplies flap used in the Plug-in image"
 
+ "PartsBin reconstructAllPartsIcons"
+
  ^  #(
  (ObjectsTool newStandAlone 'Object Catalog' 'A tool that lets you browse the catalog of available objects')
+ (AllScriptsTool allScriptsToolForActiveWorld 'All Scripts' 'Stop, Step, and Go buttons for controlling all your scripts at once.  The tool can also be "opened up" to control each script in your project individually.')
- "(AllScriptsTool allScriptsToolForActiveWorld 'All Scripts' 'Stop, Step, and Go buttons for controlling all your scripts at once.  The tool can also be "opened up" to control each script in your project individually.')"
  (TrashCanMorph new 'Trash' 'A tool for discarding objects')
  (GrabPatchMorph new 'Grab Patch' 'Allows you to create a new Sketch by grabbing a rectangular patch from the screen')
  (LassoPatchMorph new 'Lasso' 'Allows you to create a new Sketch by lassoing an area from the screen')
 
  (StickyPadMorph newStandAlone 'Sticky Pad' 'Each time you obtain one of these pastel, translucent, borderless rectangles, it will be a different color from the previous time.')
  "(PaintInvokingMorph new 'Paint' 'Drop this into an area to start making a fresh painting there')"
  (TextMorph boldAuthoringPrototype 'Text' 'Text that you can edit into anything you desire.')
  (RecordingControlsMorph authoringPrototype 'Sound' 'A device for making sound recordings.')
  (RectangleMorph authoringPrototype 'Rectangle' 'A rectangle')
  (RectangleMorph roundRectPrototype 'RoundRect' 'A rectangle with rounded corners')
  (EllipseMorph authoringPrototype 'Ellipse' 'An ellipse or circle')
  (StarMorph authoringPrototype 'Star' 'A star')
  (CurveMorph authoringPrototype 'Curve' 'A curve')
  (PolygonMorph authoringPrototype 'Polygon' 'A straight-sided figure with any number of sides')
  (ScriptableButton authoringPrototype 'Button' 'A Scriptable button')
+ "(BookMorph nextPageButton 'NextPage' 'A button that takes you to the next page')
+ (BookMorph previousPageButton 'PreviousPage' 'A button that takes you to the previous page')"
- (BookMorph nextPageButton 'NextPage' 'A button that takes you to the next page')
- (BookMorph previousPageButton 'PreviousPage' 'A button that takes you to the previous page')
  "(ScriptingSystem prototypicalHolder 'Holder' 'A place for storing alternative pictures in an animation, etc.')"
  (PasteUpMorph authoringPrototype 'Playfield' 'A place for assembling parts or for staging animations')
  (SimpleSliderMorph authoringPrototype 'Slider' 'A slider for showing and setting numeric values.')
  (JoystickMorph authoringPrototype 'Joystick' 'A joystick-like control')
  (BookMorph authoringPrototype 'Book' 'A multi-paged structure')
  "(ClockMorph authoringPrototype 'Clock' 'A simple digital clock')"
+ (KedamaMorph newSet 'Particles' 'A Kedama World with pre-made components')
+ "(RandomNumberTile new 'Random' 'A random-number tile for use with tile scripting')") asOrderedCollection!
- (RandomNumberTile new 'Random' 'A random-number tile for use with tile scripting')) asOrderedCollection!

Item was added:
+ ----- 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 referent width: self referent width + self width.
+ super adjustPositionAfterHidingFlap.!

Item was added:
+ ----- 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"
+ 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].!