<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>some code here: <a href="http://code.google.com/p/xmlisp/source/browse/trunk/XMLisp/sources/Lisp%20User%20Interface/specific/Mac%20CCL/LUI%20Cocoa.lisp">http://code.google.com/p/xmlisp/source/browse/trunk/XMLisp/sources/Lisp%20User%20Interface/specific/Mac%20CCL/LUI%20Cocoa.lisp</a></div><div><br></div><div>alex</div><div><br></div><br><div><div>On May 28, 2009, at 4:02 PM, Arthur W Cater wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">Sorry I have no demo code for that, but I can tell you that instances of easygui::drawing-view<div>can be created with keyword arguments :mouse-enter :mouse-exit :mouse-move</div><div> :mouse-down and :mouse-up. There's also :mouse-dragged.</div><div>The values should be functions that like being called with an easygui::view and further</div><div>keyword arguments, notably :event.</div><div>I have myself used :mouse-enter :mouse-exit and :mouse-down only.</div><div>The code (in ccl/examples/cocoa/easygui/views.lisp) could do with further improvement, feel free!</div><div>There is demo code in ccl/examples/cocoa/easygui/example/extended-demo.lisp which creates</div><div>various nested easygui views, one of which is a drawing-view with a :mouse-down initarg.</div><div>Maybe that is a tiny help, I hope so.</div><div><br></div><div>Arthur</div><div><br>----- Original Message -----<br>From: Ron Garret <<a href="mailto:ron@awun.net">ron@awun.net</a>><br>Date: Thursday, May 28, 2009 9:14 pm<br>Subject: [Openmcl-devel] Handling mouse events<br>To: Openmcl-devel Devel <<a href="mailto:openmcl-devel@clozure.com">openmcl-devel@clozure.com</a>><br><br>> Before I go reinventing the wheel, does anyone have any demo <br>> code that <br>> handles mouse events, like maybe a little scribble window or <br>> something <br>> like that?<br>> <br>> Thanks,<br>> rg<br>> <br>> _______________________________________________<br>> Openmcl-devel mailing list<br>> <a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>> <a href="http://clozure.com/mailman/listinfo/openmcl-devel">http://clozure.com/mailman/listinfo/openmcl-devel</a></div> _______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>http://clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br><div apple-content-edited="true"> <div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px">University of Colorado</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Computer Science Department</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Boulder, CO 80309-430</p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></p><br class="Apple-interchange-newline"></span></span></span></div> </div><br></body></html>