[squeak-dev] The Trunk: MorphicExtras-jl.197.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Sep 21 14:39:43 UTC 2016


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].!



More information about the Squeak-dev mailing list