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

fixed Bit_To_Symbol bug. inserted Event_Syms table.

This commit is contained in:
frese 2001-07-19 15:31:12 +00:00
parent e691622d29
commit 9789bdd313
1 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
c/xlib/type.c
View File

@ -37,7 +37,7 @@ s48_value Bits_To_Symbols(unsigned long bits, SYMDESCR* table) {
name = table[i].name;
val = table[i].val;
if ((val & bits) != 0) {
if ((val & bits) == val) {
res = s48_cons(s48_enter_symbol(name), res);
}
i++;
@ -51,7 +51,7 @@ s48_value Bits_To_Symbols(unsigned long bits, SYMDESCR* table) {
s48_value Bit_To_Symbol(unsigned long bits, SYMDESCR* table) {
int i = 0;
while (table[i].name != (char*)0) {
if ((table[i].val & bits) != 0)
if (table[i].val == bits)
return s48_enter_symbol(table[i].name);
else i++;
}
@ -81,6 +81,41 @@ unsigned long Symbols_To_Bits(s48_value Syms, SYMDESCR* table) {
return res;
}
SYMDESCR Event_Syms[] = {
{ "key-press", KeyPress },
{ "key-release", KeyRelease },
{ "button-press", ButtonPress },
{ "button-release", ButtonRelease },
{ "motion-notify", MotionNotify },
{ "enter-notify", EnterNotify },
{ "leave-notify", LeaveNotify },
{ "focus-in", FocusIn },
{ "focus-out", FocusOut },
{ "keymap-notify", KeymapNotify },
{ "expose", Expose },
{ "graphics-expose", GraphicsExpose },
{ "no-expose", NoExpose },
{ "visibility-notify", VisibilityNotify },
{ "create-notify", CreateNotify },
{ "destroy-notify", DestroyNotify },
{ "unmap-notify", UnmapNotify },
{ "map-notify", MapNotify },
{ "map-request", MapRequest },
{ "reparent-notify", ReparentNotify },
{ "configure-notify", ConfigureNotify },
{ "configure-request", ConfigureRequest },
{ "gravity-notify", GravityNotify },
{ "resize-request", ResizeRequest },
{ "circulate-notify", CirculateNotify },
{ "circulate-request", CirculateRequest },
{ "property-notify", PropertyNotify },
{ "selection-clear", SelectionClear },
{ "selection-notify", SelectionNotify },
{ "colormap-notify", ColormapNotify },
{ "client-message", ClientMessage },
{ "mapping-notify", MappingNotify }
};
SYMDESCR Func_Syms[] = {
{ "clear", GXclear },
{ "and", GXand },