Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- dBsee 4.6 - The Library - <b>dfeventend()</b> http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
dfEventEnd()
Terminates the management of the events
------------------------------------------------------------------------------
Syntax:

     dfEventEnd() --> NIL

Parameters:

     NONE

Returns:

     NIL

Description:

     Permits to terminate the management of the events from part of the
     events of the Clipper engine
     
     This function recalles all the INKEY()  states 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(), dfEventInit()

See Also: dfEventCng() dfEventInit()

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson