Fixed wrong definition of Event_Mask_Syms. And commented out unused things.
This commit is contained in:
parent
bb12a98fa8
commit
37a4d6ac46
|
@ -40,15 +40,16 @@
|
||||||
#define EXTRACT_GCONTEXT(x) (GC)s48_extract_integer(x)
|
#define EXTRACT_GCONTEXT(x) (GC)s48_extract_integer(x)
|
||||||
#define ENTER_GCONTEXT(x) s48_enter_integer((long)x)
|
#define ENTER_GCONTEXT(x) s48_enter_integer((long)x)
|
||||||
#define EXTRACT_PIXMAP(x) (Pixmap)s48_extract_integer(x)
|
#define EXTRACT_PIXMAP(x) (Pixmap)s48_extract_integer(x)
|
||||||
|
#define ENTER_PIXMAP(x) s48_enter_integer((long)x)
|
||||||
#define EXTRACT_DRAWABLE(x) (Drawable)s48_extract_integer(x)
|
#define EXTRACT_DRAWABLE(x) (Drawable)s48_extract_integer(x)
|
||||||
|
#define ENTER_ATOM(x) s48_enter_integer((long)x)
|
||||||
|
#define EXTRACT_ATOM(x) (Atom)s48_extract_integer(x)
|
||||||
|
#define ENTER_TIME(x) x == CurrentTime ? s48_enter_symbol("now") : s48_enter_integer(x)
|
||||||
|
#define EXTRACT_TIME(x) S48_SYMBOL_P(x) ? CurrentTime : (int)s48_extract_integer(x)
|
||||||
// TODO:
|
// TODO:
|
||||||
#define ENTER_VISUAL(x) S48_FALSE
|
#define ENTER_VISUAL(x) S48_FALSE
|
||||||
#define ENTER_MASK(x) S48_FALSE
|
|
||||||
#define ENTER_PIXMAP(x) S48_FALSE
|
|
||||||
#define ENTER_FONT(x) S48_FALSE
|
#define ENTER_FONT(x) S48_FALSE
|
||||||
#define EXTRACT_FONT(x) (Font)0
|
#define EXTRACT_FONT(x) (Font)0
|
||||||
#define ENTER_ATOM(x) S48_FALSE
|
|
||||||
#define ENTER_TIME(x) x == CurrentTime ? s48_enter_symbol("now") : s48_enter_integer(x)
|
|
||||||
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
@ -216,7 +217,7 @@ extern unsigned long Vector_To_Record P_((Object, int, Object, RECORD*));
|
||||||
C_LINKAGE_END
|
C_LINKAGE_END
|
||||||
|
|
||||||
*/
|
*/
|
||||||
|
/*
|
||||||
extern XSetWindowAttributes SWA;
|
extern XSetWindowAttributes SWA;
|
||||||
extern XWindowChanges WC;
|
extern XWindowChanges WC;
|
||||||
extern XGCValues GCV;
|
extern XGCValues GCV;
|
||||||
|
@ -229,7 +230,7 @@ extern XSizeHints SZH;
|
||||||
|
|
||||||
extern Set_Attr_Size, Conf_Size, GC_Size, Geometry_Size, Win_Attr_Size,
|
extern Set_Attr_Size, Conf_Size, GC_Size, Geometry_Size, Win_Attr_Size,
|
||||||
Font_Info_Size, Char_Info_Size, Wm_Hints_Size, Size_Hints_Size;
|
Font_Info_Size, Char_Info_Size, Wm_Hints_Size, Size_Hints_Size;
|
||||||
|
*/
|
||||||
/*
|
/*
|
||||||
extern RECORD Set_Attr_Rec[], Conf_Rec[], GC_Rec[], Geometry_Rec[],
|
extern RECORD Set_Attr_Rec[], Conf_Rec[], GC_Rec[], Geometry_Rec[],
|
||||||
Win_Attr_Rec[], Font_Info_Rec[], Char_Info_Rec[], Wm_Hints_Rec[],
|
Win_Attr_Rec[], Font_Info_Rec[], Char_Info_Rec[], Wm_Hints_Rec[],
|
||||||
|
@ -245,7 +246,8 @@ extern SYMDESCR Func_Syms[], Bit_Grav_Syms[], Event_Syms[], Error_Syms[],
|
||||||
Mapping_Syms[], Direction_Syms[], Shape_Syms[], Propmode_Syms[],
|
Mapping_Syms[], Direction_Syms[], Shape_Syms[], Propmode_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[];
|
||||||
|
/*
|
||||||
extern s48_value Sym_None, Sym_Now, Sym_Char_Info, Sym_Conf;
|
extern s48_value Sym_None, Sym_Now, Sym_Char_Info, Sym_Conf;
|
||||||
|
*/
|
||||||
|
|
Loading…
Reference in New Issue