Index: text-editor-gadget.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp,v
retrieving revision 1.9
diff -u -r1.9 text-editor-gadget.lisp
--- text-editor-gadget.lisp	21 Aug 2007 22:09:01 -0000	1.9
+++ text-editor-gadget.lisp	25 Oct 2007 23:59:36 -0000
@@ -361,14 +361,15 @@
                                        &key id client armed-callback
                                        disarmed-callback
                                        activation-gestures activate-callback
-                                       value)
+                                       value value-changed-callback)
   ;; Make an editor substrate object for the gadget.
   (let ((substrate (make-text-field-substrate
                     object :id id :client client :armed-callback armed-callback
                     :disarmed-callback disarmed-callback
                     :activation-gestures activation-gestures
                     :activate-callback activate-callback
-                    :value value)))
+                    :value value
+                    :value-changed-callback value-changed-callback)))
     (setf (substrate object) substrate)
     (sheet-adopt-child object substrate)))