[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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

Modified Files:
	BUGS cairo-ffi.lisp medium.lisp 
Log Message:
* cairo-ffi.lisp (cairo_paint): New function.

* medium.lisp (sync-ink): cairo_paint the flipping ink context.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS	2006/04/23 10:21:19	1.2
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/BUGS	2006/04/23 10:42:39	1.3
@@ -58,7 +58,7 @@
     coordinates correctly.  (Watch the Drag&Drop test not work unless
     the window is in the upper left corner of the screen.)
 
-11.
+(FIXED) 11.
     The new flipping ink implementation is buggy, it produces garbage
     output in some cases.
 
@@ -75,3 +75,6 @@
 
 14.
     Climacs doesn't draw itself until the window is resized.
+
+15.
+    The text cursor does not show the correct vertical position in climacs.
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo-ffi.lisp	2006/04/17 18:40:27	1.1
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo-ffi.lisp	2006/04/23 10:42:39	1.2
@@ -807,3 +807,7 @@
     :void
   (cr :pointer)
   (antialias :int))
+
+(defcfun "cairo_paint"
+    :void
+  (cr :pointer))
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/medium.lisp	2006/04/23 10:18:45	1.3
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/medium.lisp	2006/04/23 10:42:39	1.4
@@ -238,6 +238,7 @@
       (let ((pixmap
 	     (gdk_pixmap_new drawable allocation-width allocation-height -1)))
 	(setf (cr medium) (gdk_cairo_create pixmap))
+	(cairo_paint (cr medium))
 	(setf (flipping-pixmap medium) pixmap)
 	(sync-transformation medium)
 	(sync-ink medium +white+)))))