home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / armbob / !ArmBob / progs / h / wimp / ev_process next >
Encoding:
Text File  |  1994-03-10  |  687 b   |  25 lines
  1. /********************************************************** 
  2.  * event_process              GCW 09/03/94
  3.  * event_process(mask,buffer,action);
  4.  * mask     - integer mask for wimp poll
  5.  * buffer   - integer address of message buffer
  6.  * action   - vector of 20 BYTECODE actions returning FALSE to quit
  7.  * user     - user parameter
  8.  **********************************************************/
  9. event_process(mask,buffer,action,user)
  10. {
  11.  local r, respond, go_on;
  12.  r = newvector(8);
  13.  go_on = TRUE;
  14.  while(go_on)
  15.  {
  16.   r[0] = mask;
  17.   r[1] = buffer;
  18.   swi("Wimp_Poll",r);
  19.   go_on =
  20.      (typeof(respond = action[r[0]])
  21.                == BYTECODE)?respond(buffer,user):TRUE;
  22.  }
  23.  wimp_closedown();
  24. }
  25.