[cells-gtk-devel] pulse

[Andras Simon]

The Pulse button in the Display demo sends cmucl immediately to the
debugger. The following patch corrects this, but cmucl ffi experts
should refrain from looking at it.

--- cells-gtk/widgets.lisp      3 Jan 2005 22:33:16 -0000       1.7
+++ cells-gtk/widgets.lisp      7 Feb 2005 14:45:36 -0000
@@ -247,6 +247,12 @@
      (trc nil "timeout func really returning" r2)
      r2))

+#+cmu
+(alien:def-callback timeout-handler-callback
+    ((boolean 1) (data (* integer)))
+  (let* ((id (elti data 0))
+        (r2 (gtk-global-callback-funcall id)))
+    (if r2 1 0)))

  (defun timeout-add (milliseconds function)
    (let ((id (gtk-global-callback-register



Allegro (6.2/Linux) on the other hand will happily start to pulse, but
will not stop, no matter what. I wonder if it's like this on Windows,
too.

Andras