perl/perl-Tk
SHA256
8
0
Fork 0
forked from pool/perl-Tk
Code Pull Requests Activity
Files
main
perl-Tk/Tk-804.029-event.diff
Dirk Stoecker 7c366e2e08 Accepting request 800410 from home:pmonrealgonzalez:branches:devel:languages:perl 
- Use https and metacpan.org for url and sources
- Use Devel:Leak, Test::More and Test::Pod for tests
- Add cpanspec.yml file and mention the patches Tk-804.029-event.diff
  Tk-804.029-macro.diff Tk-804.029-null.diff Tk-804.029-refcnt.diff

- updated to 804.035
   see /usr/share/doc/packages/perl-Tk/Changes
  Tk-804.035 release (2020-03-28)
  ------------------
  This is basically the same like Tk-804.034_501.
  Tk-804.034_501 release (2020-03-19)
  ----------------------
  Fixes
   Add dummy rules for newer EUMM (RT #124910)
   Try harder to find libpng on FreeBSD
  Tk-804.034_500 release (2020-02-23)
  ----------------------
  Fixes
   Compiles again with perl 5.31.x (see also
   github pull request #61 and https://github.com/Perl/perl5/issues/17024
   by Karl Williamson). Now ppport.h is included in the
   distribution.
   Switch to X's locale handling if needed (Karl Williamson)
   Don't use buttons 4 and 5 on non-X11 platforms
   (Christopher Chavez)
   Fix corner case in XPM handling (/* in colors section)
   Spelling/grammar fixes in comments and code (Christopher Chavez)
   Improved demo script photo1.pl (Christopher Chavez)
  Documentation
   Smaller Pod fixes (Slaven Rezic, Christopher Chavez)

OBS-URL: https://build.opensuse.org/request/show/800410
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Tk?expand=0&rev=40
2020-05-07 08:33:55 +00:00

167 lines
4.6 KiB
Diff
Raw Permalink Blame History

--- 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
};
/*
View Git Blame Copy Permalink