How to jump to the last GET ? 
Author Message
 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  
 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  
 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  
 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  
 
 [ 4 post ] 

 Relevant Pages 

1. Relative jump out of range (ignore the last post)

2. Jumping in gets

3. getting around short jumps

4. Jump...Jump

5. Trouble getting the last row of a ListBox

6. SpecRuby tangent -- SpecTcl gets maintainer at long last.

7. Getting last char in string.

8. Getting Rid of 1st and last character in a string

9. Getting name of last active widget

10. Getting the last procedure name

11. Getting a file's last modified time

12. print last field in a record, 2nd last.

 

 
Powered by phpBB® Forum Software