[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:
http://source.squeak.org/trunk/MorphicExtras-ct.317.mcz
==================== 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') -----
initialize
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
|