Timer_On and Timer_Off Procedures
The application uses the timer_on and timer_off 4GL procedures at various points to control the screen display when the user provides no input, as follows:
• timer_on sets the timeout interval at 2 seconds
• timer_off redisplays the time in the upper right corner of the frame, if the user has not performed any action for 2 seconds
The following is the code for these 4GL procedures:
procedure timer_on (secs = i2)
begin
set_forms frs (timeout = secs);
end
procedure timer_off =
begin
set_forms frs (timeout = 0);
end