Click above to get retro games delivered to your door ever month!

dfEventInit()
Active an event
------------------------------------------------------------------------------
Syntax:

     dfEventInit(<bEvent>) --> NIL

Parameters:

     <bEvent>   CODEBLOCK of the event to activate

Returns:

     NIL

Description:

     Permits to activate the management to events with Clipper fixing one
     function like an actual event.
     
     This function can be recalled from all the states of INKEY() of
     CLIPPER: MEMOEDIT() , INKEY() , TO MENU, ACHOICE() .

Example:

     LOCAL bOldEvent
     
     // New event
     dfEventInit({|| F_TIME() })
     INKEY(0)
     
     // New event, storing the old event
     bOldEvent:= dfEventCng({|| F_TIME1() })
     bOldEvent:= dfEventCng({|| F_TIME1() })
     INKEY(0)
     
     // Restoration old event
     dfEventCng(bOldEvent)
     INKEY(0)
     
     // End management events
     dfEventEnd()
     
     * ___________________________________________________
     F_TIME PROCEDURES()
     * ___________________________________________________
     STATIC cStr:= "Tests revolving notice"
     LOCAL nRow:= ROW() , nCol:= COL()
     
     @ 0.0 SAY cStr
     
     cStr:= SUBSTR(cStr, 2) + LEFT(cStr, 1)
     
     SETPOS(nRow, nCol)
     RETURN
     
     * ___________________________________________________
     PROCEDURES F_TIME1()
     * ___________________________________________________
     STATIC cStr:= "Test revolving notice"
     LOCAL nRow:= ROW() , nCol:= COL()
     
     @ 0.50 SAY cStr
     
     cStr:= SUBSTR(cStr, 2) + LEFT(cStr, 1)
     
     SETPOS(nRow, nCol)
     RETURN

See also:

     dfEventCng(), dfEventEnd()