Update of /project/mcclim/cvsroot/mcclim/Apps/Scigraph/scigraph In directory common-lisp.net:/tmp/cvs-serv14169
Modified Files: mouse.lisp Log Message: Add McCLIM (in fact, portable) code to button-case Date: Tue Jan 11 13:45:38 2005 Author: tmoore
Index: mcclim/Apps/Scigraph/scigraph/mouse.lisp diff -u mcclim/Apps/Scigraph/scigraph/mouse.lisp:1.5 mcclim/Apps/Scigraph/scigraph/mouse.lisp:1.6 --- mcclim/Apps/Scigraph/scigraph/mouse.lisp:1.5 Fri Aug 6 15:19:40 2004 +++ mcclim/Apps/Scigraph/scigraph/mouse.lisp Tue Jan 11 13:45:35 2005 @@ -60,7 +60,7 @@ ,@(if right `(((clim::button-press-event-matches-gesture-name ,button :menu) ,right))))) - (:clim-2 + ((and :clim-2 (not :mcclim)) `(cond ,@(if left `(((clim-internals::button-press-event-matches-gesture-name-p ,button :select) @@ -70,7 +70,18 @@ ,middle))) ,@(if right `(((clim-internals::button-press-event-matches-gesture-name-p ,button :menu) - ,right))))))) + ,right))))) + (:mcclim + `(cond + ,@(when left + `(((event-matches-gesture-name-p ,button :select) + ,left))) + ,@(when middle + `(((event-matches-gesture-name-p ,button :describe) + ,middle))) + ,@(when right + `(((event-matches-gesture-name-p ,button :menu) + ,right)))))))
(defmethod post-mouse-documentation (stream string) #FEATURE-CASE