[mcclim-cvs] CVS mcclim
thenriksen
thenriksen at common-lisp.net
Fri Oct 26 17:01:15 UTC 2007
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)))
More information about the Mcclim-cvs
mailing list