[cells-gtk-devel] Re: Cells-gtk now UFFI-ized, running under AllegroCL and Lispworks on win32, next stop OS/X.

Andras Simon asimon at math.bme.hu
Fri Dec 24 13:18:26 UTC 2004


This (crucial) one somehow got lost during the merge:

Index: gtk-ffi/gtk-utilities.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp,v
retrieving revision 1.6
diff -u -r1.6 gtk-utilities.lisp
--- gtk-ffi/gtk-utilities.lisp  23 Dec 2004 16:34:51 -0000      1.6
+++ gtk-ffi/gtk-utilities.lisp  24 Dec 2004 13:09:15 -0000
@@ -74,7 +74,7 @@
       (gdk-threads-leave)))

  (ffx:ff-defun-callable :cdecl :int button-press-event-handler
-  ((widget (* :void)) (signal (* gdk-event-button)) (data (* :void)))
+  ((widget :pointer-void) (signal (* gdk-event-button)) (data :pointer-void))
    (declare (ignorable data))
    (let ((event (gdk-event-button-type signal)))
      (when (eql (event-type event) :button_press)

Andras




More information about the cells-gtk-devel mailing list