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

dfEventCng()
Changes the current event
------------------------------------------------------------------------------
Syntax:

     dfEventCng(<bEvent>) --><bOldEvent>

Parameters:

     <bEvent>   CODEBLOCK of the event to activate

Returns:

     <bOldEvent> Old active event. If this event is NIL a preceding event
     didn't exist

Description:

     Permits to modify the event currently in execution with part of the
     events from the clipper engine
     
     
     
     This function is recalled at all INKEY()  states 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:

     dfEventEnd(), dfEventInit()