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)