scx/scheme/xlib/pixel.scm

13 lines
355 B
Scheme
Raw Normal View History

2001-06-11 11:28:32 -04:00
(define pixel-value pixel-Xpixel)
(define (black-pixel display)
(make-pixel (%black-pixel (display-Xdisplay display))))
(import-lambda-definition %black-pixel (Xdisplay)
"scx_Black_Pixel")
2001-06-11 11:28:32 -04:00
(define (white-pixel display)
(make-pixel (%white-pixel (display-Xdisplay display))))
(import-lambda-definition %white-pixel (Xdisplay)
"scx_White_Pixel")