[squeak-dev] The Trunk: MorphicExtras-ct.317.mcz
Taeumel, Marcel
Marcel.Taeumel at hpi.de
Fri Jun 17 08:17:26 UTC 2022
Thanks!
________________________________
From: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> on behalf of commits at source.squeak.org <commits at source.squeak.org>
Sent: Thursday, June 16, 2022 5:55:52 PM
To: squeak-dev at lists.squeakfoundation.org <squeak-dev at lists.squeakfoundation.org>; packages at lists.squeakfoundation.org <packages at lists.squeakfoundation.org>
Subject: [squeak-dev] The Trunk: MorphicExtras-ct.317.mcz
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.!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220617/59a2c844/attachment-0001.html>
More information about the Squeak-dev
mailing list
|