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

Modified Files: drei-clim.lisp Log Message: Respect the :x-position and :y-position initargs for Drei areas.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2008/01/15 18:43:28 1.29 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2008/01/16 17:11:52 1.30 @@ -344,9 +344,10 @@ record."))

(defmethod initialize-instance :after ((area drei-area) - &key) - (setf (input-editor-position area) - (multiple-value-list (output-record-position area)) + &key x-position y-position) + (check-type x-position integer) + (check-type y-position integer) + (setf (input-editor-position area) (list x-position y-position) (extend-pane-bottom (view area)) t) (tree-recompute-extent area))