[mcclim-cvs] CVS mcclim
ahefner
ahefner at common-lisp.net
Sun Mar 4 22:37:36 UTC 2007
Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv22852
Modified Files:
utils.lisp
Log Message:
Fix parse-space, the unit name is :inches, not :inch (that's what all the
backends use, anyway).
--- /project/mcclim/cvsroot/mcclim/utils.lisp 2006/10/29 11:58:58 1.46
+++ /project/mcclim/cvsroot/mcclim/utils.lisp 2007/03/04 22:37:36 1.47
@@ -498,7 +498,7 @@
(gunit (graft-units graft)))
;; mungle specification into what grafts talk about
(case unit
- ((:point) (setf value (/ value 72) unit :inch))
+ ((:point) (setf value (/ value 72) unit :inches))
((:pixel) (setf unit :device))
((:mm) (setf unit :millimeters)))
;;
More information about the Mcclim-cvs
mailing list