148 lines
4.5 KiB
C
148 lines
4.5 KiB
C
#include "xlib.h"
|
|
#include "scheme48.h"
|
|
|
|
s48_value scx_Reparent_Window(s48_value Xdisplay, s48_value Xwindow,
|
|
s48_value Xwindow_parent, s48_value x,
|
|
s48_value y) {
|
|
XReparentWindow(SCX_EXTRACT_DISPLAY(Xdisplay),
|
|
SCX_EXTRACT_WINDOW(Xwindow),
|
|
SCX_EXTRACT_WINDOW(Xwindow_parent),
|
|
(int)s48_extract_integer (x), (int)s48_extract_integer (y));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Install_Colormap(s48_value Xdisplay, s48_value Xcolormap) {
|
|
XInstallColormap(SCX_EXTRACT_DISPLAY(Xdisplay),
|
|
SCX_EXTRACT_COLORMAP(Xcolormap));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Uninstall_Colormap(s48_value Xdisplay, s48_value Xcolormap) {
|
|
XUninstallColormap(SCX_EXTRACT_DISPLAY(Xdisplay),
|
|
SCX_EXTRACT_COLORMAP(Xcolormap));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_List_Installed_Colormaps(s48_value Xdisplay, s48_value Xwindow) {
|
|
int i, n;
|
|
Colormap *ret;
|
|
s48_value v = S48_FALSE;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
|
|
ret = XListInstalledColormaps(SCX_EXTRACT_DISPLAY(Xdisplay),
|
|
SCX_EXTRACT_WINDOW(Xwindow),
|
|
&n);
|
|
v = s48_make_vector (n, S48_FALSE);
|
|
S48_GC_PROTECT_1 (v);
|
|
for (i = 0; i < n; i++) {
|
|
S48_VECTOR_SET(v, i, SCX_ENTER_COLORMAP(ret[i]));
|
|
}
|
|
XFree ((char *)ret);
|
|
S48_GC_UNPROTECT();
|
|
return v;
|
|
}
|
|
|
|
s48_value scx_Set_Input_Focus(s48_value Xdisplay, s48_value Xwindow,
|
|
s48_value revert_to, s48_value time) {
|
|
Window focus = SCX_EXTRACT_WINDOW(Xwindow);
|
|
|
|
XSetInputFocus (SCX_EXTRACT_DISPLAY(Xdisplay), focus,
|
|
s48_extract_integer(revert_to),
|
|
SCX_EXTRACT_TIME(time));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Input_Focus (s48_value Xdisplay) {
|
|
Window win;
|
|
int revert_to;
|
|
s48_value ret = S48_FALSE;
|
|
S48_DECLARE_GC_PROTECT(1);
|
|
|
|
XGetInputFocus (SCX_EXTRACT_DISPLAY(Xdisplay), &win, &revert_to);
|
|
ret = s48_cons (S48_NULL, S48_NULL);
|
|
S48_GC_PROTECT_1 (ret);
|
|
S48_SET_CAR(ret, SCX_ENTER_WINDOW(win));
|
|
S48_SET_CDR(ret, s48_enter_integer(revert_to));
|
|
|
|
S48_GC_UNPROTECT();
|
|
return ret;
|
|
}
|
|
|
|
s48_value scx_General_Warp_Pointer(s48_value dpy, s48_value dst, s48_value dstx,
|
|
s48_value dsty, s48_value src, s48_value srcx,
|
|
s48_value srcy, s48_value srcw, s48_value srch) {
|
|
XWarpPointer (SCX_EXTRACT_DISPLAY(dpy),
|
|
SCX_EXTRACT_WINDOW(src), SCX_EXTRACT_WINDOW(dst),
|
|
(int)s48_extract_integer (srcx),
|
|
(int)s48_extract_integer (srcy),
|
|
(int)s48_extract_integer (srcw),
|
|
(int)s48_extract_integer (srch),
|
|
(int)s48_extract_integer (dstx),
|
|
(int)s48_extract_integer (dsty));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Bell(s48_value Xdisplay, s48_value percent) {
|
|
int p = (int)s48_extract_integer(percent);
|
|
XBell (SCX_EXTRACT_DISPLAY(Xdisplay), p);
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Set_Access_Control(s48_value Xdisplay, s48_value on) {
|
|
XSetAccessControl (SCX_EXTRACT_DISPLAY(Xdisplay), !S48_FALSE_P(on));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Change_Save_Set(s48_value Xdisplay, s48_value win,
|
|
s48_value mode) {
|
|
XChangeSaveSet(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(win),
|
|
s48_extract_integer(mode));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Set_Close_Down_Mode(s48_value Xdisplay, s48_value mode) {
|
|
XSetCloseDownMode(SCX_EXTRACT_DISPLAY(Xdisplay),
|
|
s48_extract_integer(mode));
|
|
return S48_UNSPECIFIC;
|
|
}
|
|
|
|
s48_value scx_Get_Pointer_Mapping(s48_value Xdisplay) {
|
|
unsigned char map[256];
|
|
int i, n;
|
|
s48_value ret;
|
|
|
|
n = XGetPointerMapping (SCX_EXTRACT_DISPLAY(Xdisplay), map, 256);
|
|
ret = s48_make_vector (n, S48_NULL);
|
|
for (i = 0; i < n; i++)
|
|
S48_VECTOR_SET(ret, i, s48_enter_integer (map[i]));
|
|
return ret;
|
|
}
|
|
|
|
s48_value scx_Set_Pointer_Mapping (s48_value Xdisplay, s48_value map) {
|
|
int i, n = S48_VECTOR_LENGTH(map);
|
|
unsigned char p[n];
|
|
int ret;
|
|
|
|
for (i = 0; i < n; i++)
|
|
p[i] = (int)s48_extract_integer(S48_VECTOR_REF(map, i));
|
|
|
|
ret = XSetPointerMapping (SCX_EXTRACT_DISPLAY(Xdisplay), p, n);
|
|
return (ret == MappingSuccess) ? S48_TRUE : S48_FALSE;
|
|
}
|
|
|
|
void scx_init_wm(void) {
|
|
S48_EXPORT_FUNCTION(scx_Reparent_Window);
|
|
S48_EXPORT_FUNCTION(scx_Install_Colormap);
|
|
S48_EXPORT_FUNCTION(scx_Uninstall_Colormap);
|
|
S48_EXPORT_FUNCTION(scx_List_Installed_Colormaps);
|
|
S48_EXPORT_FUNCTION(scx_Set_Input_Focus);
|
|
S48_EXPORT_FUNCTION(scx_Input_Focus);
|
|
S48_EXPORT_FUNCTION(scx_General_Warp_Pointer);
|
|
S48_EXPORT_FUNCTION(scx_Bell);
|
|
S48_EXPORT_FUNCTION(scx_Set_Access_Control);
|
|
S48_EXPORT_FUNCTION(scx_Change_Save_Set);
|
|
S48_EXPORT_FUNCTION(scx_Set_Close_Down_Mode);
|
|
S48_EXPORT_FUNCTION(scx_Get_Pointer_Mapping);
|
|
S48_EXPORT_FUNCTION(scx_Set_Pointer_Mapping);
|
|
}
|