[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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

Modified Files:
	port.lisp 
Log Message:
Medium benchmark toy.

* mcclim.asd (clim-examples): Added drawing-benchmark.lisp.

* Examples/drawing-benchmark.lisp: New file.

* Examples/demodemo.lisp (demodemo): Added Drawing Benchmark button.

* Backends/gtkairo/port.lisp (port-force-output): Call gdk_flush.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp	2006/04/23 10:18:45	1.2
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp	2006/05/07 19:47:20	1.3
@@ -581,7 +581,11 @@
 
 (defmethod port-force-output ((port gtkairo-port))
   (with-gtk ()
-    (gdk_display_flush (gdk_display_get_default))))
+    (gdk_display_flush (gdk_display_get_default))
+    ;; Don't know whether p-f-o is actually meant to XSync, which is
+    ;; what gdk_flush does.  But it seems useful to have _some_ function
+    ;; for this, so let's use p-f-o until we find a better one.
+    (gdk_flush)))
 
 ;; FIXME: What happens when CLIM code calls tracking-pointer recursively?
 (defmethod port-grab-pointer ((port gtkairo-port) pointer sheet)