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 >
Wrap
Text File
|
1994-03-10
|
687b
|
25 lines
/**********************************************************
* event_process GCW 09/03/94
* event_process(mask,buffer,action);
* mask - integer mask for wimp poll
* buffer - integer address of message buffer
* action - vector of 20 BYTECODE actions returning FALSE to quit
* user - user parameter
**********************************************************/
event_process(mask,buffer,action,user)
{
local r, respond, go_on;
r = newvector(8);
go_on = TRUE;
while(go_on)
{
r[0] = mask;
r[1] = buffer;
swi("Wimp_Poll",r);
go_on =
(typeof(respond = action[r[0]])
== BYTECODE)?respond(buffer,user):TRUE;
}
wimp_closedown();
}