[mcclim-cvs] CVS mcclim

[thenriksen]

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)