RollLeft and RollRight

[H P]

Sammy,

I tried with clean out of ther windows tse 4.50.13 the following functions;
<Alt F5>                RollLeft()
<Alt F6>                RollRight()
<Shift WheelUp>      RollLeft( GetWheelScrollLines())
<Shift WheelDown>   RollRight(GetWheelScrollLines())

These'e 4 functions work perfect if started from position 1 of a line.
If gone to a position by the right arrow or with a mouseclick then <Alt F6> and <Shift WheelDown> are working.
However if after this going to the left by <Alt F5> or <Shift WheelUp> you won't pass the point from where you went to  the right.
So if you did go to position 40 on a line and use the RollRight functions and changed you're mind and then try to go to the left you won't pass position 40 to the left even if you RollUp or use arrow left and the again the RollLeft again.
It's like the moment you use RollRight that the position from where you start the RollLeft think's that's that is position 1.

Met vriendelijke groet,
With kind regards,

Muy atentamente,
Mit Freundliche Gruß,

Sinceramente,


H. Pikaar
Henri...@gmail.com

[S.E. Mitchell]

I will have to cipher on this one for a while.

> --
>
> ---
> You received this message because you are subscribed to the Google Groups "SemWare TSE Pro text editor" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to semware+u...@googlegroups.com.
> To view this discussion visit https://groups.google.com/d/msgid/semware/CAAR3jqFy_wScyfOiaWWk4Vx8tBOXyHFst6UJqeO3fkSunKmF%3DA%40mail.gmail.com.

[H P]

Sammy, 

After further testing found that after positioning the cursor by CursorRight, TabRight, MouseClick on a position greater than 1, GotoColumn greather than 1, GotoLine when on a position greather than 1 the RollLeft no longer goes beyond the position from where the cursor is and that on every line so going up or down 1 or more that cursorposition is like position 1 on every line.

Furthermore with RollRight or RollLeft it's not the cursor but the screen that's  moving.

So if on position 1 and using RollRight position 1 is no longer seeable.

Thinking as a possible solution; should RollLeft and RollRight not get the same coding as CursorLeft and CursorRight? 

Met vriendelijke groet,
With kind regards,

Muy atentamente,
Mit Freundliche Gruß,

Sinceramente,


H. Pikaar
Henri...@gmail.com

Op vr 24 okt 2025 om 02:02 schreef S.E. Mitchell <sammy.m...@gmail.com>:

To view this discussion visit https://groups.google.com/d/msgid/semware/CA%2BgEvkZQcPxVLNxVqd0nEQ%2Brgxc%2B0%2BpL2Snmdb7_SxHPvcAcrg%40mail.gmail.com.

[H P]

Sammy,

I was thinking something like this;

====================================

Proc WheelR()

    Right()

    If CurrCol() >= CurrLineLen()

        If Not Down()

            Alarm()

        Else

            BegLine()

        EndIf

    EndIf

End  WheelR

Proc WheelL()

    Left()

    If CurrCol() <= 1

        If Not Down()

            Alarm()

        Else

            EndLine()

        EndIf

    EndIf

End  WheelL

Proc SWheelR()

    Right()

    If CurrCol() >= CurrLineLen()

        If Not Up()

            Alarm()

        Else

            BegLine()

        EndIf

    EndIf

End  SWheelR

Proc SWheelL()

    Left()

    If CurrCol() <= 1

        If Not Up()

            Alarm()

        Else

            EndLine()

        EndIf

    EndIf

End  SWheelL

<WheelRight>        WheelR()

<Alt F6>            WheelR()

<WheelLeft>         WheelL()

<Alt F5>            WheelL()

<Shift WheelRight>  SWheelR()

<Shift F6>          SWheelR()

<Shift WheelLeft>   SWheelL()

<Shift F5>          SWheelL()

======================================

Met vriendelijke groet,
With kind regards,

Muy atentamente,
Mit Freundliche Gruß,

Sinceramente,


H. Pikaar
Henri...@gmail.com

Op vr 24 okt 2025 om 15:38 schreef H P <henri...@gmail.com>: