<font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium">Hi everyone !</span></font><div><font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium"><br>
</span></font></div><div><font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium"></span></font><span class="Apple-style-span" style="font-family:sans-serif;font-size:medium">I'm playing around with horizontal scrolling of a submorph into a morph.</span></div>
<div><font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium">Let's take a simple horizontal scrolling to the left.</span></font></div><div><font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium">When the submorph is getting out of the left side of the morph, it should reappear to the right side of the morph.</span></font></div>
<div><font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium">The problem is that during the "transition" the submorph is still visible outside of the morph.</span></font></div>
<div><font class="Apple-style-span" face="sans-serif"><span class="Apple-style-span" style="font-size:medium">So, I'm searching for a solution for the submorph not being visible outside the bounds of it's owner.</span></font></div>
<div><span class="Apple-style-span" style="font-family:sans-serif;font-size:medium"><br></span></div><div><span class="Apple-style-span" style="font-family:sans-serif;font-size:medium">To visualize the problem, see code below.</span></div>
<div><span class="Apple-style-span" style="font-family:sans-serif;font-size:medium">(for an obscure reason, the transcript window must be opened, but that's not the point).</span></div><div><span class="Apple-style-span" style="font-family:sans-serif;font-size:medium"><br>
</span></div><div><span class="Apple-style-span" style="font-family:sans-serif;font-size:medium"><div><div>Thanks a lot for your help !!!!</div><div><br></div><div>Here is the sample code (don't forget to open the transcript window):</div>
<div><br></div><div><br></div><div><br></div><div>|m1 m2|</div><div><br></div><div>m1:=Morph new.</div><div>m1 extent:800@600.</div><div>m1 color:Color blue.</div><div>m1 center: Display center.</div><div>m1 openInWorld.</div>
<div><br></div><div>m2:=Morph new.</div><div>m2 extent:200@200.</div><div>m2 color:Color red.</div><div><br></div><div>m1 addMorph: m2.</div><div>m2 center: m1 center.</div><div><br></div><div>1 to:200 do:[:el|</div><div>
<span class="Apple-tab-span" style="white-space:pre"> </span>|pos|</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>(Duration seconds:0.01) asDelay wait.</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>pos:=(m2 position x -5)@(m2 position y).</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>((pos x + m2 width) >= (m1 position x)) ifFalse:[</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>pos:=((m1 position x + m1 width)@ m2 position y).</div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>].</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>Transcript show: (pos asString);cr.</div><div><span class="Apple-tab-span" style="white-space:pre"> </span></div>
<div><span class="Apple-tab-span" style="white-space:pre"> </span>m2 position:pos.<span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>].</div>
</div><div><br></div></span></div>