Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv13475 Modified Files: graft.lisp Log Message: fixed a typo in graft-width; revised graft-height to be consistent in how the desktop window size is obtained --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/graft.lisp 2007/03/14 23:49:05 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/graft.lisp 2007/03/18 03:02:22 1.4 @@ -26,7 +26,7 @@ (defmethod graft-width ((graft graphic-forms-graft) &key (units :device)) (gfw:with-root-window (window) - (let ((size (gfs:size window))) + (let ((size (gfw:size window))) (gfw:with-graphics-context (gc window) (ecase units (:device (gfs:size-width size)) @@ -37,7 +37,7 @@ (defmethod graft-height ((graft graphic-forms-graft) &key (units :device)) (gfw:with-root-window (window) - (let ((size (first (gethash :display-sizes (gfs:obtain-system-metrics))))) + (let ((size (gfw:size window))) (gfw:with-graphics-context (gc window) (ecase units (:device (gfs:size-height size))