<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
</head>
<body>
Thanks!
<hr style="display:inline-block;width:98%" tabindex="-1">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> on behalf of commits@source.squeak.org <commits@source.squeak.org><br>
<b>Sent:</b> Thursday, June 16, 2022 5:55:52 PM<br>
<b>To:</b> squeak-dev@lists.squeakfoundation.org <squeak-dev@lists.squeakfoundation.org>; packages@lists.squeakfoundation.org <packages@lists.squeakfoundation.org><br>
<b>Subject:</b> [squeak-dev] The Trunk: MorphicExtras-ct.317.mcz</font>
<div> </div>
</div>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt;">
<div class="PlainText">Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/MorphicExtras-ct.317.mcz">http://source.squeak.org/trunk/MorphicExtras-ct.317.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: MorphicExtras-ct.317<br>
Author: ct<br>
Time: 16 June 2022, 5:55:33.579259 pm<br>
UUID: 2b09377e-5797-a14f-80e4-1e35529f9166<br>
Ancestors: MorphicExtras-mt.316<br>
<br>
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.<br>
<br>
=============== Diff against MorphicExtras-mt.316 ===============<br>
<br>
Item was changed:<br>
----- Method: StoryboardBookMorph>>initialize (in category 'initialization') -----<br>
initialize<br>
<br>
newPagePrototype := ZoomAndScrollMorph new extent: 300@300.<br>
zoomController := ZoomAndScrollControllerMorph new<br>
setBalloonText: 'Drag in here to zoom, tilt and pan the page above';<br>
extent: 246@147.<br>
<br>
super initialize.<br>
- zoomController openInWorld.<br>
<br>
"tool := RectangleMorph new extent: 250@170; layoutPolicy: TableLayout new.<br>
tool addMorph: zoomController.<br>
<br>
alansSliders := {<br>
{#changeTiltFactor: . #getTiltFactor . 'Pan and tilt sensitivity'}.<br>
{#changeZoomFactor: . #getZoomFactor . 'Zoom sensitivity'}.<br>
} collect: [ :sData |<br>
{<br>
SimpleSliderMorph new<br>
extent: 150@10;<br>
color: Color orange;<br>
sliderColor: Color gray;<br>
target: self; <br>
actionSelector: sData first;<br>
setBalloonText: sData third;<br>
adjustToValue: (self perform: sData second).<br>
sData second<br>
}<br>
].<br>
alansSliders do: [ :each | tool addMorphBack: each first].<br>
tool openInWorld"<br>
!<br>
<br>
Item was added:<br>
+ ----- Method: StoryboardBookMorph>>intoWorld: (in category 'nil') -----<br>
+ intoWorld: world<br>
+ <br>
+ zoomController openInWorld.!<br>
<br>
<br>
</div>
</span></font></div>
</body>
</html>