<div>Hi,</div><div>I've made further amendments to what was originally ccl/examples/cocoa/easygui/views.lisp,</div><div>mostly regarding pop-up, pull-down, and contextual menus.</div><div>It is at http://csiweb.ucd.ie/staff/acater/ClozureCL/easygui-views-2.lisp  (37k)</div><div><br></div><div>The functionality is pretty basic, but I'm going on holiday soon and I think it's better to share</div><div>sooner rather than later. Maybe when I get back somebody will have fixed issues that are</div><div>troubling me! (Well I can hope, can't I?)</div><div><br></div><div>The relevant comments are</div><div><br></div><div>#| Changes from ccl/examples/cocoa/easygui/views.lisp</div><div>Pop-up menus (which show current selection when not actively tracking) exist.</div><div>Pull-down menus (which show a fixed title and triangle when not tracking) exist.</div><div>Contextual menus (which spring up in response to control-click) exist.</div><div>Submenus of all these menu types exist.</div><div>Sliders may have actions associated with them.</div><div>*** Beware!</div><div>  Since I (AC) do not know enough about Cocoa, it is probable that there will be memory leaks</div><div>  when Lisp views with attached menus are discarded. Help with that would be appreciated.</div><div>*** Confessions:</div><div>  There are many things I'd like to do - enabling and disabling, colouring, navigating</div><div>  through menus, playing with fonts for example - that are not addressed.</div><div>  Topbar "Application Menu" code is in preparation and is not included here.</div><div>  Contextual menus don't show up in BOX views, and I don't know why not.</div><div>  Tick marks showing the current selection are not always maintained properly and I don't know why not.</div><div>  There's no attempt in the demo to update the state of other controls: eg radio buttons</div><div>  are a law unto themselves and are not affected when a contextual menu is used to change</div><div>  the display.</div><div>  The code defining the class COCOA-DRAWING-VIEW is commented out, it causes an error when</div><div>  evaluated in a buffer and I don't know why. It is directly copied from the original</div><div>  VIEWS.LISP, presumably if anybody who is rebuilding their ccl using this file will</div><div>  want to remove the commenting-out.</div><div><br></div><div><br></div><div>Feedback, criticism etc are very welcome.</div><div><br></div><div>Arthur</div>