Better event dispatcher

git-svn-id: https://forth-ev.de/repos/bigforth@1640 3b8d8251-53f3-0310-8f3b-fd1cb8370982

displays.fs

@@ -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 @ ;