G. The ABF Demo Program : 4GL Code for the Sample Application : Timer_On and Timer_Off Procedures
 
Share this page                  
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