[closure-cvs] CVS update: closure/src/renderer/clim-device.lisp

[Gilbert Baumann]

Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv16862/src/renderer

Modified Files:
	clim-device.lisp 
Log Message:
make it at least compile and show a window with CMUCL 19a and cvs mcclim.
Date: Sun Mar 13 20:24:16 2005
Author: gbaumann

Index: closure/src/renderer/clim-device.lisp
diff -u closure/src/renderer/clim-device.lisp:1.7 closure/src/renderer/clim-device.lisp:1.8
--- closure/src/renderer/clim-device.lisp:1.7	Sun Mar 13 19:03:24 2005
+++ closure/src/renderer/clim-device.lisp	Sun Mar 13 20:24:16 2005
@@ -390,6 +390,7 @@
                    :actual-width  (or width (r2::aimage-width aim))
                    :actual-height (or height (r2::aimage-height aim)))))
 
+#+NIL
 (climi::def-grecording draw-ro (() ro x y)
         (values x
                 (- y (nth-value 1 (r2::ro/size ro)))
@@ -430,6 +431,7 @@
                          (xlib:copy-area pixmap gcontext 0 0 actual-width actual-height
                           da x (- y actual-height) ))))))))))))
 
+#+NIL
 (climi::def-grecording draw-pm3-tiled (() pixmap mask x1 y1 w h x0 y0)
                        (values x1 y1 (+ x1 w) (+ y1 h)))