[cells-gtk-cvs] CVS update: root/cells-gtk/widgets.lisp

[Peter Denno]

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 @@
                    , at body
                    1))))
 
-#-cmu
 (ff-defun-callable :cdecl :int timeout-handler-callback
      ((data (* :int)))
    ;;(print (list :timeout-handler-callback data))