- added and corrected some symbol tables.

This commit is contained in:
frese 2001-10-09 15:46:21 +00:00
parent faffbdd4ed
commit 7a7c752670
2 changed files with 40 additions and 3 deletions

View File

@ -113,7 +113,8 @@ SYMDESCR Event_Syms[] = {
{ "selection-notify", SelectionNotify }, { "selection-notify", SelectionNotify },
{ "colormap-notify", ColormapNotify }, { "colormap-notify", ColormapNotify },
{ "client-message", ClientMessage }, { "client-message", ClientMessage },
{ "mapping-notify", MappingNotify } { "mapping-notify", MappingNotify },
{ 0, 0 }
}; };
SYMDESCR Func_Syms[] = { SYMDESCR Func_Syms[] = {
@ -456,7 +457,15 @@ SYMDESCR Event_Mask_Syms[] = {
{ "property-change", PropertyChangeMask }, { "property-change", PropertyChangeMask },
{ "colormap-change", ColormapChangeMask }, { "colormap-change", ColormapChangeMask },
{ "owner-grab-button", OwnerGrabButtonMask }, { "owner-grab-button", OwnerGrabButtonMask },
{ "all-events", ~(unsigned long)0 }, { "all-events", KeyPressMask | KeyReleaseMask | ButtonPressMask |
ButtonReleaseMask | EnterWindowMask | LeaveWindowMask | LeaveWindowMask |
PointerMotionMask | PointerMotionHintMask | Button1MotionMask |
Button2MotionMask | Button3MotionMask | Button4MotionMask |
Button5MotionMask | ButtonMotionMask | KeymapStateMask | ExposureMask |
VisibilityChangeMask | StructureNotifyMask | ResizeRedirectMask |
SubstructureNotifyMask | ResizeRedirectMask | SubstructureNotifyMask |
SubstructureRedirectMask | FocusChangeMask | PropertyChangeMask |
ColormapChangeMask | OwnerGrabButtonMask },
{ 0, 0 } { 0, 0 }
}; };
@ -498,6 +507,34 @@ SYMDESCR Color_Flags_Syms[] = {
{ 0, 0 } { 0, 0 }
}; };
SYMDESCR Gcontext_Values_Syms[] = {
{ "function", GCFunction },
{ "plane-make", GCPlaneMask },
{ "foreground", GCForeground },
{ "background", GCBackground },
{ "line-width", GCLineWidth },
{ "line-style", GCLineStyle },
{ "cap-style", GCCapStyle },
{ "join-style", GCJoinStyle },
{ "fill-style", GCFillStyle },
{ "fill-rule", GCFillRule },
{ "arc-mode", GCArcMode },
{ "tile", GCTile },
{ "stipple", GCStipple },
{ "ts-x", GCTileStipXOrigin },
{ "ts-y", GCTileStipYOrigin },
{ "font", GCFont },
{ "subwindow-mode", GCSubwindowMode },
{ "exposures", GCGraphicsExposures },
{ "clip-x", GCClipXOrigin },
{ "clip-y", GCClipYOrigin },
{ "clip-mask", GCClipMask },
{ "dash-offset", GCDashOffset },
{ "dashes", GCDashList },
{ "all", ~0L }, // or all ORed ?
{ 0, 0 }
};
void scx_init_type(void) { void scx_init_type(void) {
S48_GC_PROTECT_GLOBAL(string_to_symbol_binding); S48_GC_PROTECT_GLOBAL(string_to_symbol_binding);
string_to_symbol_binding = s48_get_imported_binding("string->symbol"); string_to_symbol_binding = s48_get_imported_binding("string->symbol");

View File

@ -81,4 +81,4 @@ extern SYMDESCR Func_Syms[], Bit_Grav_Syms[], Event_Syms[], Error_Syms[],
Grabstatus_Syms[], Allow_Events_Syms[], Revert_Syms[], Polyshape_Syms[], Grabstatus_Syms[], Allow_Events_Syms[], Revert_Syms[], Polyshape_Syms[],
Initial_State_Syms[], Bitmapstatus_Syms[], Circulate_Syms[], Initial_State_Syms[], Bitmapstatus_Syms[], Circulate_Syms[],
Ordering_Syms[], Byte_Order_Syms[], Saveset_Syms[], Closemode_Syms[], Ordering_Syms[], Byte_Order_Syms[], Saveset_Syms[], Closemode_Syms[],
Event_Mask_Syms[], Visual_Class_Syms[], Color_Flags_Syms[]; Event_Mask_Syms[], Visual_Class_Syms[], Color_Flags_Syms[], Gcontext_Values_Syms[];