Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv22653/root/cells-gtk
Modified Files: widgets.lisp Log Message: Andras Simon's patch to remove #- on a ff definition. Also handle signal modified-changed. text-buffer can now specify :on-modified-changed callback. Date: Sun Mar 6 18:01:09 2005 Author: pdenno
Index: root/cells-gtk/widgets.lisp diff -u root/cells-gtk/widgets.lisp:1.11 root/cells-gtk/widgets.lisp:1.12 --- root/cells-gtk/widgets.lisp:1.11 Sat Feb 26 23:31:41 2005 +++ root/cells-gtk/widgets.lisp Sun Mar 6 18:01:09 2005 @@ -128,6 +128,7 @@ (def-gtk-event-handler selection-changed) (def-gtk-event-handler toggled) (def-gtk-event-handler delete-event) +(def-gtk-event-handler modified-changed)
(defparameter *widget-callbacks* (list (cons 'clicked (ff-register-callable 'clicked-handler)) @@ -137,7 +138,8 @@ (cons 'day-selected (ff-register-callable 'day-selected-handler)) (cons 'selection-changed (ff-register-callable 'selection-changed-handler)) (cons 'toggled (ff-register-callable 'toggled-handler)) - (cons 'delete-event (ff-register-callable 'delete-event-handler)))) + (cons 'delete-event (ff-register-callable 'delete-event-handler)) + (cons 'modified-changed (ff-register-callable 'modified-changed-handler))))
(eval-when (:compile-toplevel :load-toplevel :execute)
@@ -232,7 +234,6 @@ ,@body 1))))
-#-cmu (ff-defun-callable :cdecl :int timeout-handler-callback ((data (* :int))) ;;(print (list :timeout-handler-callback data))