/[cmucl]/src/clx/graphics.lisp
ViewVC logotype

Diff of /src/clx/graphics.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ram, Thu Nov 7 16:57:58 1991 UTC revision 1.3 by ram, Tue Aug 11 15:16:33 1992 UTC
# Line 429  Line 429 
429             (type array-index start)             (type array-index start)
430             (type pixel plane-mask)             (type pixel plane-mask)
431             (type (member :xy-pixmap :z-pixmap) format))             (type (member :xy-pixmap :z-pixmap) format))
432    (declare (values (sequence integer) depth visual-info))    (declare (clx-values (clx-sequence integer) depth visual-info))
433    (let ((display (drawable-display drawable)))    (let ((display (drawable-display drawable)))
434      (with-buffer-request-and-reply (display *x-getimage* nil :sizes (8 32))      (with-buffer-request-and-reply (display *x-getimage* nil :sizes (8 32))
435           (((data (member error :xy-pixmap :z-pixmap)) format)           (((data (member error :xy-pixmap :z-pixmap)) format)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5