[squeak-dev] The Trunk: MorphicExtras-ct.317.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jun 16 15:55:52 UTC 2022

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk:

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

Name: MorphicExtras-ct.317
Author: ct
Time: 16 June 2022, 5:55:33.579259 pm
UUID: 2b09377e-5797-a14f-80e4-1e35529f9166
Ancestors: MorphicExtras-mt.316

Disarms StoryboardBookMorph to not open a new morph in the world during initialization. This had always led to dangling a dangling ZoomAndScrollMorph after running #testShowAllBinParts for the first time in a fresh imaeg.

=============== Diff against MorphicExtras-mt.316 ===============

Item was changed:
  ----- Method: StoryboardBookMorph>>initialize (in category 'initialization') -----
  	newPagePrototype := ZoomAndScrollMorph new extent: 300 at 300.
  	zoomController := ZoomAndScrollControllerMorph new
  			setBalloonText: 'Drag in here to zoom, tilt and pan the page above';
  			extent: 246 at 147.
  	super initialize.
- 	zoomController openInWorld.
  	"tool := RectangleMorph new extent: 250 at 170; layoutPolicy: TableLayout new.
  	tool addMorph: zoomController.
  	alansSliders := {
  		{#changeTiltFactor: . #getTiltFactor . 'Pan and tilt sensitivity'}.
  		{#changeZoomFactor: . #getZoomFactor . 'Zoom sensitivity'}.
  	} collect: [ :sData |
  			SimpleSliderMorph new
  				extent: 150 at 10;
  				color: Color orange;
  				sliderColor: Color gray;
  				target: self; 
  				actionSelector: sData first;
  				setBalloonText: sData third;
  				adjustToValue: (self perform: sData second).
  			sData second
  	alansSliders do: [ :each | tool addMorphBack: each first].
  	tool openInWorld"

Item was added:
+ ----- Method: StoryboardBookMorph>>intoWorld: (in category 'nil') -----
+ intoWorld: world
+ 	zoomController openInWorld.!

More information about the Squeak-dev mailing list