[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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