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

Taeumel, Marcel Marcel.Taeumel at hpi.de
Fri Jun 17 08:17:26 UTC 2022

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:

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

-------------- 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