home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d385 / xlispstat.lha / XLispStat / lisp.lzh / XLisp-Stat / Functions / pointmove.lsp < prev    next >
Encoding:
Text File  |  1990-10-11  |  303 b   |  11 lines
  1. ; book pp.277-278
  2.  
  3. (send graph-proto :add-mouse-mode 'point-moving
  4.        :title "Point Moving"
  5.        :cursor 'hand
  6.        :click :do-point-moving)
  7.  
  8. (defmeth graph-proto :do-point-moving (x y m1 m2)
  9.       (let ((p (send self :drag-point x y)))
  10.        (if p (format t "Point ~d has been moved.~%" p))))
  11.