[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv13759

Modified Files:
	text-editor-gadget.lisp 
Log Message:
Restored value-changed-callback to workingness for text-field gadgets.


--- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp	2007/08/21 22:09:01	1.9
+++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp	2007/10/26 17:01:15	1.10
@@ -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)))