Commit 08ab9418 authored by bp's avatar bp
Browse files

Made event loop save from overflowing event number

git-svn-id: https://forth-ev.de/repos/bigforth@1703 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent f622597c
...@@ -357,7 +357,7 @@ class; ...@@ -357,7 +357,7 @@ class;
\ Event data structure 09mar99py \ Event data structure 09mar99py
[defined] x11 [IF] [defined] x11 [IF]
Create Handlers MappingNotify [FOR] ' noop A, [NEXT] Create Handlers LASTEvent [FOR] ' noop A, [NEXT]
KeyPressMask KeyReleaseMask or \ KeymapStateMask or KeyPressMask KeyReleaseMask or \ KeymapStateMask or
ButtonPressMask or ButtonReleaseMask or ButtonPressMask or ButtonReleaseMask or
EnterWindowMask or LeaveWindowMask or EnterWindowMask or LeaveWindowMask or
......
...@@ -216,7 +216,7 @@ how: : xinc child xinc ; ...@@ -216,7 +216,7 @@ how: : xinc child xinc ;
THEN THEN
IF \ cr ." sending event " event @ . ." to win " IF \ cr ." sending event " event @ . ." to win "
\ base @ event XAnyEvent window @ hex . base ! \ base @ event XAnyEvent window @ hex . base !
event @ cells Handlers + perform event @ LASTEvent umin cells Handlers + perform
( ." done " ) EXIT THEN ( ." done " ) EXIT THEN
nextwin goto handle-event ; nextwin goto handle-event ;
[THEN] [THEN]
......
...@@ -171,8 +171,8 @@ are reserved in the protocol for errors and replies. */ ...@@ -171,8 +171,8 @@ are reserved in the protocol for errors and replies. */
32 Constant ColormapNotify 32 Constant ColormapNotify
33 Constant ClientMessage 33 Constant ClientMessage
34 Constant MappingNotify 34 Constant MappingNotify
35 Constant LASTEvent /* must be bigger than any event # */ 35 Constant GenericEvent
36 Constant LASTEvent /* must be bigger than any event # */
/* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer, /* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer,
state in various key-, mouse-, and button-related events. */ state in various key-, mouse-, and button-related events. */
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment