scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

This commit is contained in:
nofreude 2001-07-11 14:49:34 +00:00
parent 7609b10f0e
commit a1079b015b
1 changed files with 23 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
c/xlib/property.c
View File

@ -3,50 +3,23 @@
s48_value Sym_Now; s48_value Sym_Now;
Generic_Predicate (Atom)
Generic_Simple_Equal (Atom, ATOM, atom)
Generic_Print (Atom, "#[atom %lu]", ATOM(x)->atom)
/*
s48_value Make_Atom (a) Atom a; {
s48_value atom;
if (a == None)
return Sym_None;
atom = Find_Object (T_Atom, (GENERIC)0, Match_X_Obj, a);
if (S48_NULL_P (atom)) {
atom = Alloc_Object (sizeof (struct S_Atom), T_Atom, 0);
ATOM(atom)->tag = S48_NULL;
ATOM(atom)->atom = a;
Register_Object (atom, (GENERIC)0, (PFO)0, 0);
}
return atom;
}
*/
/* Should be used with care */ /* Should be used with care */
s48_value Intern_Atom (s48_value Xdisplay, s48_value name){ s48_value Intern_Atom (s48_value Xdisplay, s48_value name){
Atom a = XInternAtom(EXTRACT_DISPLAY(Xdisplay), s48_extract_string(name), 0); Atom a = XInternAtom(EXTRACT_DISPLAY(Xdisplay), s48_extract_string(name), 0);
return s48_enter_integer((long)a); return ENTER_ATOM(a);
} }
s48_value Find_Atom (s48_value Xdisplay, s48_value name){ s48_value Find_Atom (s48_value Xdisplay, s48_value name){
Atom a = XInternAtom (EXTRACT_DISPLAY(Xdisplay), s48_extract_string(name), 1); Atom a = XInternAtom (EXTRACT_DISPLAY(Xdisplay), s48_extract_string(name), 1);
if (a == None){ return ENTER_ATOM(a);
return s48_value s48_enter_symbol(none);
}else{
return a;
}
} }
s48_value Atom_Name (s48_value Xdisplay, s48_value a) { s48_value Atom_Name (s48_value Xdisplay, s48_value a) {
register char *s; register char *s;
// not used: Disalbe_Interrupts // not used: Disalbe_Interrupts
s = XGetAtomName (EXTRACT_DISPLAY Xdisplay, a); s = XGetAtomName (EXTRACT_DISPLAY(Xdisplay), a);
// not used: Enable_Interrupts // not used: Enable_Interrupts
return s48_enter_string (s); return s48_enter_string (s);
} }
@ -146,8 +119,7 @@ s48_value Change_Property(s48_value Xdisplay, s48_value Xwindow,
break; break;
} }
XChangeProperty (EXTRACT_DISPLAY(Xdisplay), EXTRACT_WINDOW(Xwindow), XChangeProperty (EXTRACT_DISPLAY(Xdisplay), EXTRACT_WINDOW(Xwindow),
s48_extract_integer(Xatom_prop), EXTRACT_ATOM(Xatom_prop), EXTRACT_ATOM(Xatom_type),
s48_extract_integer(Xatom_type),
f, m, (unsigned char *)buf, nitems); f, m, (unsigned char *)buf, nitems);
return S48_UNSPECIFIC; return S48_UNSPECIFIC;
} }
@ -155,9 +127,9 @@ s48_value Change_Property(s48_value Xdisplay, s48_value Xwindow,
s48_value P_Delete_Property (s48_value Xdisplay, s48_value Xwindow, s48_value P_Delete_Property (s48_value Xdisplay, s48_value Xwindow,
s48_value Xatom_prop){ s48_value Xatom_prop){
XDeleteProperty (EXTRACT_DISPLAY(Xdisplay), EXTRACT_WINDOW(Xwindow), XDeleteProperty (EXTRACT_DISPLAY(Xdisplay), EXTRACT_WINDOW(Xwindow),
s48_extract_integer(Xatom_prop)); EXTRACT_ATOM(Xatom_prop));
return S48_UNSPECIFIC; return S48_UNSPECIFIC;
} }
@ -176,74 +148,38 @@ s48_value Rotate_Properties (s48_value Xdisplay, s48_value Xwindow,
s48_value Set_Selection_Owner (s48_value Xdisplay, s48_value Xatom_s, s48_value Set_Selection_Owner (s48_value Xdisplay, s48_value Xatom_s,
s48_value Xwindow_owner, s58_value time){ s48_value Xwindow_owner, s58_value time){
XSetSelectionOwner (EXTRACT_DISPLAY(Xdisplay), s48_extract_integer(Xatom_s), XSetSelectionOwner (EXTRACT_DISPLAY(Xdisplay), EXTRACT_ATOM(Xatom_s),
EXTRACT_WINDOW(Xwindow_owner), EXTRACT_TIME(time)); EXTRACT_WINDOW(Xwindow_owner), EXTRACT_TIME(time));
return S48_UNSPECIFIC; return S48_UNSPECIFIC;
} }
/*
static s48_value P_Selection_Owner (d, s) s48_value d, s; { s48_value Get_Selection_Owner (s48_value Xdisplay, s48_value Xatom_s){
Check_Type (d, T_Display);
Check_Type (s, T_Atom);
return Make_Window (0, DISPLAY(d)->dpy,
XGetSelectionOwner (DISPLAY(d)->dpy, ATOM(s)->atom));
}
*/
s48_value Selection_Owner (s48_value Xdisplay, s48_value Xatom_s){
return ENTER_WINDOW (XGetSelectionOwner (EXTRACT_DISPLAY(Xdisplay), return ENTER_WINDOW (XGetSelectionOwner (EXTRACT_DISPLAY(Xdisplay),
s48_extract_integer(Xatom_s))); EXTRACT_ATOM(Xatom_s)));
} }
/*
static s48_value P_Convert_Selection (s, target, prop, w, time)
s48_value s, target, prop, w, time; {
Atom p = None;
Check_Type (s, T_Atom);
Check_Type (target, T_Atom);
if (!S48_EQ_P(prop, Sym_None)) {
Check_Type (prop, T_Atom);
p = ATOM(prop)->atom;
}
Check_Type (w, T_Window);
XConvertSelection (WINDOW(w)->dpy, ATOM(s)->atom, ATOM(target)->atom,
p, WINDOW(w)->win, Get_Time (time));
return Void;
}
*/
s48_value Convert_Selection (s48_value Xdisplay, s48_value Xatom_s, s48_value Convert_Selection (s48_value Xdisplay, s48_value Xatom_s,
s48_value Xatom_t, s48_value Xatom_p, s48_value Xatom_t, s48_value Xatom_p,
s48_value Xwindow, s48_value time){ s48_value Xwindow, s48_value time){
Atom p = None;
if (!S48_EQ_P(prop, Sym_None)) {
Check_Type (prop, T_Atom);
p = ATOM(prop)->atom;
}
XConvertSelection(EXTRACT_DISPLAY(Xdisplay), EXTRACT_ATOM(Xatom_s), XConvertSelection(EXTRACT_DISPLAY(Xdisplay), EXTRACT_ATOM(Xatom_s),
EXTRACT_ATOM(Xatom_t), EXTRACT_ATOM(Xatom_p), EXTRACT_ATOM(Xatom_t), EXTRACT_ATOM(Xatom_p),
EXTRACT_WINDOW(Xwindow), EXTRACT_TIME(time)); EXTRACT_WINDOW(Xwindow), EXTRACT_TIME(time));
return S48_UNSPECIFIC; return S48_UNSPECIFIC;
} }
elk_init_xlib_property () { viod s48_init_graphics(void) {
Define_Symbol (&Sym_Now, "now"); S48_EXPORT_FUNCTION(Intern_Atom);
Generic_Define (Atom, "atom", "atom?"); S48_EXPORT_FUNCTION(Find_Atom);
Define_Primitive (P_Make_Atom, "make-atom", 1, 1, EVAL); S48_EXPORT_FUNCTION(Atom_Name);
Define_Primitive (P_Intern_Atom, "intern-atom", 2, 2, EVAL); S48_EXPORT_FUNCTION(List_Properties);
Define_Primitive (P_Find_Atom, "find-atom", 2, 2, EVAL); S48_EXPORT_FUNCTION(Get_Property);
Define_Primitive (P_Atom_Name, "atom-name", 2, 2, EVAL); S48_EXPORT_FUNCTION(Change_Property);
Define_Primitive (P_List_Properties, "list-properties", 1, 1, EVAL); S48_EXPORT_FUNCTION(Delete_Property);
Define_Primitive (P_Get_Property, "get-property", 6, 6, EVAL); S48_EXPORT_FUNCTION(Rotate_Property);
Define_Primitive (P_Change_Property, "change-property", 6, 6, EVAL); S48_EXPORT_FUNCTION(Set_Selection_Owner);
Define_Primitive (P_Delete_Property, "delete-property", 2, 2, EVAL); S48_EXPORT_FUNCTION(Get_Selection_Owner);
Define_Primitive (P_Rotate_Properties, "rotate-properties", 3, 3, EVAL); S48_EXPORT_FUNCTION(Convert_Selection);
Define_Primitive (P_Set_Selection_Owner, "set-selection-owner!",
4, 4, EVAL);
Define_Primitive (P_Selection_Owner, "selection-owner", 2, 2, EVAL);
Define_Primitive (P_Convert_Selection, "convert-selection", 5, 5, EVAL);
} }