[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-clim.lisp 
Log Message:
Accept all numbers, not just integers. McCLIM is very happy about fractional pixels, after all.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/01/16 17:11:52	1.30
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/01/16 22:50:06	1.31
@@ -345,8 +345,8 @@
 
 (defmethod initialize-instance :after ((area drei-area)
 				       &key x-position y-position)
-  (check-type x-position integer)
-  (check-type y-position integer)
+  (check-type x-position number)
+  (check-type y-position number)
   (setf (input-editor-position area) (list x-position y-position)
         (extend-pane-bottom (view area)) t)
   (tree-recompute-extent area))