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