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

Modified Files: text-editor-gadget.lisp Log Message: Handle :value initarg.

--- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2006/11/10 18:22:04 1.2 +++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2006/11/10 18:40:41 1.3 @@ -46,6 +46,10 @@ (:default-initargs :activation-gestures *standard-activation-gestures*))

+(defmethod initialize-instance :after ((object text-field-pane) &key value) + ;; Why doesn't `value-gadget' do this for us? + (setf (gadget-value object) value)) + (defmethod compose-space ((pane text-field-pane) &key width height) (declare (ignore width height)) (with-sheet-medium (medium pane) @@ -74,6 +78,10 @@ :accessor text-editor-nlines)) (:default-initargs :activation-gestures nil))

+(defmethod initialize-instance :after ((object text-editor-pane) &key value) + ;; Why doesn't `value-gadget' do this for us? + (setf (gadget-value object) value)) + (defmethod make-pane-1 :around (fm (frame application-frame) (type (eql :text-editor)) &rest args &key)