18 lines
447 B
C
18 lines
447 B
C
#include "xlib.h"
|
|
#include "scheme48.h"
|
|
|
|
s48_value Black_Pixel(s48_value Xdisplay) {
|
|
Display* dpy = EXTRACT_DISPLAY(Xdisplay);
|
|
return ENTER_PIXEL( BlackPixel(dpy, DefaultScreen(dpy)) );
|
|
}
|
|
|
|
s48_value White_Pixel(s48_value Xdisplay) {
|
|
Display* dpy = EXTRACT_DISPLAY(Xdisplay);
|
|
return ENTER_PIXEL( WhitePixel(dpy, DefaultScreen(dpy)) );
|
|
}
|
|
|
|
void s48_init_pixel(void) {
|
|
S48_EXPORT_FUNCTION(Black_Pixel);
|
|
S48_EXPORT_FUNCTION(White_Pixel);
|
|
}
|