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+)))))