KeyDelay (lines 958-976)
Back to List
Browsing parserm.h
0958 [ KeyDelay tenths key done ix;
0959 glk($00D2, gg_mainwin); ! request_char_event
0960 glk($00D6, tenths*100); ! request_timer_events
0961 while (~~done) {
0962 glk($00C0, gg_event); ! select
0963 ix = HandleGlkEvent(gg_event, 1, gg_arguments);
0964 if (ix == 2) {
0965 key = gg_arguments-->0;
0966 done = true;
0967 }
0968 else if (ix >= 0 && gg_event-->0 == 1 or 2) {
0969 key = gg_event-->2;
0970 done = true;
0971 }
0972 }
0973 glk($00D3, gg_mainwin); ! cancel_char_event
0974 glk($00D6, 0); ! request_timer_events
0975 return key;
0976 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.