[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

18 Mar 2007

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

    