Commit 0e1aa486 authored by bp's avatar bp
Browse files

Better event dispatcher

git-svn-id: https://forth-ev.de/repos/bigforth@1640 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 6507afdb
......@@ -424,10 +424,14 @@ how: : dispose clicks HandleOff
\ Display 18oct98py
[defined] win32 [IF]
: check-events ( event -- event )
ALLCHILDS dup get-event ;
: get-event ( event -- )
check-events drop ;
: dispatch-event ( -- )
event TranslateMessage drop maxascii $80 =
IF event DispatchMessageW drop
ELSE event DispatchMessage drop THEN ;
: get-event ( event -- ) drop
BEGIN PM_REMOVE 0 0 0 event PeekMessageW WHILE
dispatch-event pause REPEAT
size-event ;
: sync ( -- ) ;
: mouse ( -- x y b ) QS_MOUSEMOVE get-event
mx @ my @ mb @ ;
......
Markdown is supported
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