[mcclim-cvs] CVS update: mcclim/Apps/Scigraph/scigraph/mouse.lisp

[Timothy Moore]

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