[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

28 Nov 2005

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.

    