<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>FlapTab has this...<br>
</p>
<p>positionObject: anObject atEdgeOf: container<br>
"anObject could be myself or my referent"<br>
<br>
edgeToAdhereTo == #left ifTrue: [^ anObject left:
container left].<br>
edgeToAdhereTo == #right ifTrue: [^ anObject right:
container right].<br>
edgeToAdhereTo == #top ifTrue: [^ anObject top: container
top].<br>
edgeToAdhereTo == #bottom ifTrue: [^ anObject bottom:
container bottom]</p>
<p>while InteriorFlapTab has this...</p>
<p>positionObject: anObject atEdgeOf: container<br>
"anObject could be myself (the flap tab) or my referent
(the flap body)."<br>
<br>
anObject == self ifTrue: [^ super positionObject: anObject
atEdgeOf: container]. "The tab itself"<br>
<br>
(#(top left) includes: edgeToAdhereTo) ifTrue:<br>
[^ anObject topLeft: container innerBounds topLeft].<br>
<br>
(edgeToAdhereTo = #bottom) ifTrue:<br>
[^ anObject bottomLeft: container innerBounds bottomLeft].<br>
<br>
anObject topRight: container innerBounds topRight<br>
</p>
<p>which assumes <container> responds to #innerBounds and not
simply #left, #right, etc. Since some users are sending a
Rectangle rather than a Morph, you could add this to Rectangle...<br>
</p>
<p><font face="Georgia">innerBounds<br>
<br>
^self</font></p>
<p>and the flaps are working again.<br>
</p>
<br>
<div class="moz-cite-prefix">On 2/18/18 5:03 PM, David T. Lewis
wrote:<br>
</div>
<blockquote type="cite"
cite="mid:20180218220340.GB6142@shell.msen.com">
<pre wrap="">I put fixes into Etoys in trunk, and Morphic-dtl.1396 in the inbox. I'll
move that to trunk also if there are no problems with it.
Next issue to look at: The Navigator and Supplies tabs in a EventRecordingSpace
are not working. Do "EventRecordingSpace open", then click on one of the
tabs, result is a MessageNotUnderstood: Rectangle>>innerBounds error.
</pre>
</blockquote>
<br>
</body>
</html>