[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp

[Gilbert Baumann]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv31917

Modified Files:
	port.lisp 
Log Message:
EVENT-HANDLER
    We also deliver :graphics-exposure events as CLIM repaint events.


Date: Mon Nov 28 15:21:45 2005
Author: gbaumann

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.113 mcclim/Backends/CLX/port.lisp:1.114
--- mcclim/Backends/CLX/port.lisp:1.113	Mon Nov 28 13:58:18 2005
+++ mcclim/Backends/CLX/port.lisp	Mon Nov 28 15:21:45 2005
@@ -766,7 +766,7 @@
 				:modifier-state modifier-state
 				:timestamp time)))))
         ;;
-	((:exposure :display)
+	((:exposure :display :graphics-exposure)
          ;; Notes:
          ;; . Do not compare count with 0 here, last rectangle in an
          ;;   :exposure event sequence does not cover the whole region.