Clipper, How to jump to the last GET ?

Willi Wuse
#1 / 4

How to jump to the last GET ?

Hello everybody,

with the summer 87 version of clipper it was possible to jump with Ctrl
+ End to the last opened GET. For some reason I cant understand, this
ability was canceled with clipper 5. Whats the easiest way to restore
this ability ?

Greetings from Germany

Lutz

why!

Mon, 19 Feb 2001 03:00:00 GMT

Pit
#2 / 4

How to jump to the last GET ?

Quote:

>Hello everybody,

>with the summer 87 version of clipper it was possible to jump with Ctrl
>+ End to the last opened GET. For some reason I cant understand, this
>ability was canceled with clipper 5. Whats the easiest way to restore
>this ability ?

>Greetings from Germany

>Lutz

>why!

#INCLUDE "Inkey.ch"
LOCAL g1, g2, g3, GetList :={}
g1 := g2 := g3 := SPACE(10)
cls

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

Mon, 19 Feb 2001 03:00:00 GMT

Martin Bac
#3 / 4

How to jump to the last GET ?

Quote:

> Willi Wusel =DD=E3=F1=E1=F8=E5 =F3=F4=EF =EC=DE=ED=F5=EC=E1 =

> >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

Mon, 19 Feb 2001 03:00:00 GMT

Dave Eat
#4 / 4

How to jump to the last GET ?

Clipper5 sample
no modiication to Getsys
function sample()
local getlist:={}
get1:=" "
get2:=" '

ReadModal( GetList, Len( GetList())
Return( nil )

Quote:

> > Willi Wusel =DD=E3=F1=E1=F8=E5 =F3=F4=EF =EC=DE=ED=F5=EC=E1 =

> > >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

Tue, 27 Feb 2001 03:00:00 GMT