<div dir="ltr"><div>Am I right in thinking that while you can add a callback to respond</div><div>the on-paint event of canvas% at construction time, i.e..<br></div><div><br></div><div><font face="courier new, monospace">(new canvas% ... </font></div>

<div><font face="courier new, monospace">    [paint-callback (lambda (c e) ...)])</font></div><div><font face="courier new, monospace">      </font></div><div>to respond to other events -- mouse, keyboard, etc. -- it is necessary to</div>

<div>sub-class?</div><div><br></div><div>E.g.</div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">(define my-canvas%</font></div><div><font face="courier new, monospace">  (class canvas%</font></div>

<div><font face="courier new, monospace">    (define/override (on-event ev)</font></div><div><font face="courier new, monospace">      (when (send ev button-down? 'left)</font></div><div><font face="courier new, monospace">        ; do something</font></div>

<div><font face="courier new, monospace">    (super-new)))</font></div><div><font face="courier new, monospace"><br></font></div><div>Or are there alternatives?</div><div><br></div><div><br></div><div>Thanks</div><div><br>

</div><div>Dan</div><div dir="ltr"></div>
</div>