File Tk-804.029-event.diff of Package perl-Tk
--- pTk/mTk/generic/tkBind.c
+++ pTk/mTk/generic/tkBind.c
@@ -550,89 +550,86 @@
#define CIRCREQ 0x400000
char *eventTypeName[TK_LASTEVENT] = {
- NULL,
- NULL,
- "KeyPress",
- "KeyRelease",
- "ButtonPress",
- "ButtonRelease",
- "MotionNotify",
- "EnterNotify",
- "LeaveNotify",
- "FocusIn",
- "FocusOut",
- "KeymapNotify",
- "Expose",
- "GraphicsExpose",
- "NoExpose",
- "VisibilityNotify",
- "CreateNotify",
- "DestroyNotify",
- "UnmapNotify",
- "MapNotify",
- "MapRequest",
- "ReparentNotify",
- "ConfigureNotify",
- "ConfigureRequest",
- "GravityNotify",
- "ResizeRequest",
- "CirculateNotify",
- "CirculateRequest",
- "PropertyNotify",
- "SelectionClear",
- "SelectionRequest",
- "SelectionNotify",
- "ColormapNotify",
- "ClientMessage",
- "MappingNotify",
- "VirtualEvent",
- "Activate",
- "Deactivate"
+ [KeyPress] = "KeyPress",
+ [KeyRelease] = "KeyRelease",
+ [ButtonPress] = "ButtonPress",
+ [ButtonRelease] = "ButtonRelease",
+ [MotionNotify] = "MotionNotify",
+ [EnterNotify] = "EnterNotify",
+ [LeaveNotify] = "LeaveNotify",
+ [FocusIn] = "FocusIn",
+ [FocusOut] = "FocusOut",
+ [KeymapNotify] = "KeymapNotify",
+ [Expose] = "Expose",
+ [GraphicsExpose] = "GraphicsExpose",
+ [NoExpose] = "NoExpose",
+ [VisibilityNotify] ="VisibilityNotify",
+ [CreateNotify] = "CreateNotify",
+ [DestroyNotify] = "DestroyNotify",
+ [UnmapNotify] = "UnmapNotify",
+ [MapNotify] = "MapNotify",
+ [MapRequest] = "MapRequest",
+ [ReparentNotify] = "ReparentNotify",
+ [ConfigureNotify] = "ConfigureNotify",
+ [ConfigureRequest] ="ConfigureRequest",
+ [GravityNotify] = "GravityNotify",
+ [ResizeRequest] = "ResizeRequest",
+ [CirculateNotify] = "CirculateNotify",
+ [CirculateRequest] ="CirculateRequest",
+ [PropertyNotify] = "PropertyNotify",
+ [SelectionClear] = "SelectionClear",
+ [SelectionRequest] ="SelectionRequest",
+ [SelectionNotify] = "SelectionNotify",
+ [ColormapNotify] = "ColormapNotify",
+ [ClientMessage] = "ClientMessage",
+ [MappingNotify] = "MappingNotify",
+ [VirtualEvent] = "VirtualEvent",
+ [ActivateNotify] = "Activate",
+ [DeactivateNotify] ="Deactivate"
};
#define KEY_BUTTON_MOTION_VIRTUAL (KEY|BUTTON|MOTION|VIRTUAL)
#define KEY_BUTTON_MOTION_CROSSING (KEY|BUTTON|MOTION|CROSSING|VIRTUAL)
static int flagArray[TK_LASTEVENT] = {
- /* Not used */ 0,
- /* Not used */ 0,
- /* KeyPress */ KEY,
- /* KeyRelease */ KEY,
- /* ButtonPress */ BUTTON,
- /* ButtonRelease */ BUTTON,
- /* MotionNotify */ MOTION,
- /* EnterNotify */ CROSSING,
- /* LeaveNotify */ CROSSING,
- /* FocusIn */ FOCUS,
- /* FocusOut */ FOCUS,
- /* KeymapNotify */ 0,
- /* Expose */ EXPOSE,
- /* GraphicsExpose */ EXPOSE,
- /* NoExpose */ 0,
- /* VisibilityNotify */ VISIBILITY,
- /* CreateNotify */ CREATE,
- /* DestroyNotify */ DESTROY,
- /* UnmapNotify */ UNMAP,
- /* MapNotify */ MAP,
- /* MapRequest */ MAPREQ,
- /* ReparentNotify */ REPARENT,
- /* ConfigureNotify */ CONFIG,
- /* ConfigureRequest */ CONFIGREQ,
- /* GravityNotify */ GRAVITY,
- /* ResizeRequest */ RESIZEREQ,
- /* CirculateNotify */ CIRC,
- /* CirculateRequest */ 0,
- /* PropertyNotify */ PROP,
- /* SelectionClear */ 0,
- /* SelectionRequest */ 0,
- /* SelectionNotify */ 0,
- /* ColormapNotify */ COLORMAP,
- /* ClientMessage */ 0,
- /* MappingNotify */ 0,
- /* VirtualEvent */ VIRTUAL,
- /* Activate */ ACTIVATE,
- /* Deactivate */ ACTIVATE,
- /* MouseWheel */ KEY
+
+ [KeyPress] = KEY,
+ [KeyRelease] = KEY,
+ [ButtonPress] = BUTTON,
+ [ButtonRelease] = BUTTON,
+ [MotionNotify] = MOTION,
+ [EnterNotify] = CROSSING,
+ [LeaveNotify] = CROSSING,
+ [FocusIn] = FOCUS,
+ [FocusOut] = FOCUS,
+ [KeymapNotify] = 0,
+ [Expose] = EXPOSE,
+ [GraphicsExpose] = EXPOSE,
+ [NoExpose] = 0,
+ [VisibilityNotify] = VISIBILITY,
+ [CreateNotify] = CREATE,
+ [DestroyNotify] = DESTROY,
+ [UnmapNotify] = UNMAP,
+ [MapNotify] = MAP,
+ [MapRequest] = MAPREQ,
+ [ReparentNotify] = REPARENT,
+ [ConfigureNotify] = CONFIG,
+ [ConfigureRequest] = CONFIGREQ,
+ [GravityNotify] = GRAVITY,
+ [ResizeRequest] = RESIZEREQ,
+ [CirculateNotify] = CIRC,
+ [CirculateRequest] = 0,
+ [PropertyNotify] = PROP,
+ [SelectionClear] = 0,
+ [SelectionRequest] = 0,
+ [SelectionNotify] = 0,
+ [ColormapNotify] = COLORMAP,
+ [ClientMessage] = 0,
+ [MappingNotify] = 0,
+ [VirtualEvent] = VIRTUAL,
+ [ActivateNotify] = ACTIVATE,
+ [DeactivateNotify] = ACTIVATE,
+ [MouseWheelEvent] = KEY
};
/*
