[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory clnet:/tmp/cvs-serv17603

Modified Files:
	port.lisp 
Log Message:

Enable double buffering for panes created with :DOUBLE-BUFFERING T only.
Gsharp already uses this method.
	
	* Backends/gtkairo/port.lisp (*DOUBLE-BUFFERING-P*): Removed.
	(MIRROR-DRAWABLE): Use PANE-DOUBLE-BUFFERING, not *d-b-p*.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp	2006/12/25 19:55:11	1.14
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp	2006/12/25 21:34:57	1.15
@@ -143,36 +143,23 @@
 (defmethod mirror-real-drawable ((mirror widget-mirror))
   (gtkwidget-gdkwindow (mirror-widget mirror)))
 
-(defvar *double-buffering-p*
-    #+(or win32 windows mswindows) t
-    #-(or win32 windows mswindows) nil)
-
-#+(or)
-(setf *double-buffering-p* nil)
-
 (defmethod mirror-drawable ((mirror widget-mirror))
-  (if *double-buffering-p*
-      (or (mirror-buffering-pixmap mirror)
-	  (setf (mirror-buffering-pixmap mirror)
-		(let* ((window (mirror-real-drawable mirror))
-		       (region (climi::sheet-mirror-region
-				(climi::port-lookup-sheet
-				 (mirror-port mirror)
-				 mirror)))
-		       (width (floor (bounding-rectangle-max-x region)))
-		       (height (floor (bounding-rectangle-max-y region)))
-		       (pixmap (gdk_pixmap_new window width height -1))
-		       (cr (gdk_cairo_create pixmap)))
-		  (set-antialias cr)
-		  (cairo_set_source_rgba cr
-					 1.0d0
-					 1.0d0
-					 1.0d0
-					 1.0d0)
-		  (cairo_paint cr)
-		  (cairo_destroy cr)
-		  pixmap)))
-      (mirror-real-drawable mirror)))
+  (let ((sheet (climi::port-lookup-sheet (mirror-port mirror) mirror)))
+    (if (climi::pane-double-buffering sheet)
+	(or (mirror-buffering-pixmap mirror)
+	    (setf (mirror-buffering-pixmap mirror)
+		  (let* ((window (mirror-real-drawable mirror))
+			 (region (climi::sheet-mirror-region sheet))
+			 (width (floor (bounding-rectangle-max-x region)))
+			 (height (floor (bounding-rectangle-max-y region)))
+			 (pixmap (gdk_pixmap_new window width height -1))
+			 (cr (gdk_cairo_create pixmap)))
+		    (set-antialias cr)
+		    (cairo_set_source_rgba cr 1.0d0 1.0d0 1.0d0 1.0d0)
+		    (cairo_paint cr)
+		    (cairo_destroy cr)
+		    pixmap)))
+	(mirror-real-drawable mirror))))
 
 (defun widget->sheet (widget port)
   (gethash (cffi:pointer-address widget) (widgets->sheets port)))