How to jump to the last GET ?
Willi Wusel
with the summer ´87 version of clipper it was possible to jump with Ctrl
+ End to the last opened GET. For some reason I can´t understand, this
ability was canceled with clipper 5. What´s the easiest way to restore
this ability ?
Greetings from Germany
Lutz
Write to edv(at)kohlschein.de <- change "(at)" into "@"; you´ll know
why!
Pit V
Willi Wusel έγραψε στο μήνυμα <35EEBB50...@wusel.de>...
#INCLUDE "Inkey.ch"
LOCAL g1, g2, g3, GetList :={}
g1 := g2 := g3 := SPACE(10)
cls
SET Key K_CTRL_END TO GoToLastGet()
@ 0,0 SAY "Enter value 1" get g1
@ 1,0 SAY "Enter value 2" get g2
@ 2,0 SAY "Enter value 3" get g3
READ
SET Key K_CTRL_END TO
FUNCTION GoToLastGet(p,l,v)
GETACTIVE():exitState :=4
RETURN NIL
Also, you can modify your GetReader() but i don't think is the "easiest way"
you ask for...
HTH
Pit V
Greece
Martin Back
> Willi Wusel =DD=E3=F1=E1=F8=E5 =F3=F4=EF =EC=DE=ED=F5=EC=E1 =
> <35EEBB50...@wusel.de>...
> >Hello everybody,
> >
> >with the summer =B487 version of clipper it was possible to jump with =
> Ctrl
> >+ End to the last opened GET. For some reason I can=B4t understand, =
> this
> >ability was canceled with clipper 5. What=B4s the easiest way to =
> restore
> >this ability ?
> >
Modify your Getsys.prg.
Extract from Getsys.prg:
case (key == K_CTRL_END) // I added these two lines
get:exitState := GE_BOTTOM
#ifdef CTRL_END_SPECIAL // or I suppose you could
// #define CTRL_END SPECIAL
// both ^W and ^End go to the last GET
case (key == K_CTRL_END)
get:exitState := GE_BOTTOM
#else
// both ^W and ^End terminate the READ (the default)
case (key == K_CTRL_W .or. key==K_F10)
get:exitState := GE_WRITE
#endif
Martin
Dave Eaton
no modiication to Getsys
function sample()
local getlist:={}
get1:=" "
get2:=" '
get3:=" "
@ 0,0 get1
@ 1,0 get2
@ 2,0 get3
ReadModal( GetList, Len( GetList())
Return( nil )
On Thu, 3 Sep 1998 18:11:06, Martin Back <martinbk@cis.!this.co.za>
wrote: