Advertisements
RRJUMP2()
Short:
------
RRJUMP2() Jump to a new get in a RAT_READ()
Returns:
--------
NIL
Syntax:
-------
RRJUMP2(nNew)
Description:
------------
While in a RAT_READ(), causes the jump flag to be set to <nNew>, and
and the current get's exitstate variable to be set to GE_ENTER. This
causes an exit from the current get, and a jump to get <nNew>.
Examples:
---------
// in this example, pressing or clicking F3 causes a jump to
// get # 1, while pressing or clicking F4 causes a jump to
// get # 5.
#include "inkey.ch"
v1 := space(10)
v2 := space(10)
v3 := space(10)
v4 := space(10)
v5 := space(10)
setkey(K_F4,{||rrjump2(5)} )
setkey(K_F3,{||rrjump2(1)} )
@24,0 say "[F3-Go to First Get] [F4-Go to Last Get]"
ahot := {{24,0,24,20,K_F3},{24,23,24,41,K_F4} }
@10,10 get v1
@11,10 get v2
@12,10 get v3
@13,10 get v4
@14,10 get v5
RAT_READ(getlist,1,.T.,27,nil,aHot)
Notes:
-------
Source:
-------
S_RREAD.PRG
See also : RAT_READ()
Advertisements