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

N_GETPROC()


Returns

The name of the procedure that was executing when the event procedure 
was called. 

The return value is undefined outside an event procedure.


Description

This function is identical to PROCNAME(<nActivation>) in Clipper 5.x. 

The PROCNAME() of Clipper Summer '87, however, does not offer the 
option of reaching backward through the stack. Calling PROCNAME() from 
within an event-handling procedure will return the name of the event-
handling procedure. In contrast, calling N_GETPROC() from within an 
event-handling procedure will return the name of the procedure that was 
interrupted when an event occurred and control passed to the event-
handling procedure.


Example

// Summer '87
PROCEDURE EditRec
   .
   .
   .
   N_ONNOKEY(300, 'SayNo')
   .
   .
   .
RETURN

PROCEDURE SayNo()
   PROCNAME()            // Returns: SayNo
   N_GETPROC()           // Returns: EditRec
   KEYBOARD 'N'
RETURN