<div dir="ltr"><br><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Jun 20, 2014 at 12:00 AM, tim Rowledge <span dir="ltr"><<a href="mailto:tim@rowledge.org" target="_blank">tim@rowledge.org</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">So far as I can see there is no code to make a MenuMorph do anything help when its height exceeds the screen (or indeed any other limit) unlike the old MVC CustomMenu et al.<br>
<br>
Is there anything there that I’m missing? I note the even the system menu -> add new morph -> from alphabetical list -> S-S menu exceeds any plausible height.<br></blockquote><div><br></div><div>You can click and drag on the 2-3 outermost pixels on each side of the menu to reposition it.</div>
<div>You can also right click to get to the halo and use a handle to move the menu.</div><div>But it a automatic handling of long menus would be nice.</div><div><br></div><div>Actually PopUpMenu already handles this issue, the functionality could be implemented in TheWorldMenu</div>
<div><br></div><div><div>PopUpMenu>>startUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean</div><div><span class="" style="white-space:pre"> </span>"Display the menu, with caption if supplied. Wait for the mouse button to go down, then track the selection as long as the button is pressed. When the button is released,</div>
<div><span class="" style="white-space:pre"> </span>Answer the index of the current selection, or zero if the mouse is not released over any menu item. Location specifies the desired topLeft of the menu body rectangle. The final argument indicates whether the menu should seize the keyboard focus in order to allow the user to navigate it via the keyboard."</div>
<div><br></div><div><span class="" style="white-space:pre"> </span>| maxHeight |</div><div><span class="" style="white-space:pre"> </span>(ProvideAnswerNotification signal: captionOrNil) ifNotNil:</div><div><span class="" style="white-space:pre"> </span>[:answer | ^ selection := answer ifTrue: [1] ifFalse: [2]].</div>
<div><span class="" style="white-space:pre"> </span> </div><div><span class="" style="white-space:pre"> </span>maxHeight := Display height*3//4.</div><div><span class="" style="white-space:pre"> </span>self frameHeight > maxHeight ifTrue:</div>
<div><span class="" style="white-space:pre"> </span>[^ self</div><div><span class="" style="white-space:pre"> </span>startUpSegmented: maxHeight</div><div><span class="" style="white-space:pre"> </span>withCaption: captionOrNil</div>
<div><span class="" style="white-space:pre"> </span>at: location</div><div><span class="" style="white-space:pre"> </span>allowKeyboard: aBoolean].</div><div><br></div><div><span class="" style="white-space:pre"> </span>^ Project current</div>
<div><span class="" style="white-space:pre"> </span>dispatchTo: self</div><div><span class="" style="white-space:pre"> </span>addPrefixAndSend: #StartUpWithCaption:icon:at:allowKeyboard:</div><div><span class="" style="white-space:pre"> </span>withArguments: {captionOrNil. aForm. location. aBoolean}</div>
</div><div><br></div><div><br></div><div>Karl</div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<br>
tim<br>
--<br>
tim Rowledge; <a href="mailto:tim@rowledge.org">tim@rowledge.org</a>; <a href="http://www.rowledge.org/tim" target="_blank">http://www.rowledge.org/tim</a><br>
USER ERROR: replace user and press any key to continue.<br>
<br>
<br>
<br>
</blockquote></div><br></div></div>