LTK - a Lisp binding to the Tk toolkit - Peter Herth
LTK - a Lisp binding to the Tk toolkit - Peter Herth
LTK - a Lisp binding to the Tk toolkit - Peter Herth
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
(bind canvas ""<br />
(lambda (evt)<br />
(setf down t)<br />
(create-oval canvas<br />
(- (event-x evt) 10) (- (event-y evt) 10)<br />
(+ (event-x evt) 10) (+ (event-y evt) 10))))<br />
(bind canvas "" (lambda (evt)<br />
(declare (ignore evt))<br />
(setf down nil)))<br />
(bind canvas ""<br />
(lambda (evt)<br />
(when down<br />
(create-oval canvas<br />
(- (event-x evt) 10) (- (event-y evt) 10)<br />
(+ (event-x evt) 10) (+ (event-y evt) 10))))))))<br />
20