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)))