RightAlt+V and RightAlt+X in TGet

[modicr]

Hello!

Whenever I press RightAlt+V (for inserting @ on Slovenian keyboards) or
RightAltX in GET controls, the cursor jumps to the beginning of the GET.
I think that the bug lies in this code (tget.prg)

Code: Select all  Expand view

      case ( nKey == VK_INSERT .and. GetKeyState( VK_SHIFT ) ) .or. ;
           ( nKey == ASC("V") .and. GetKeyState( VK_CONTROL ) ) .or. ;
           ( nKey == ASC('X') .and. GetKeyState( VK_CONTROL ) )


because RightAlt means Ctrl-LeftAlt. Here it should be checked that Alt is not pressed down!

Regards, Roman

[modicr]

Hello!

I changed above code to

Code: Select all  Expand view

      case (( nKey == VK_INSERT .and. GetKeyState( VK_SHIFT ) ) .or. ;
           ( nKey == ASC("V") .and. GetKeyState( VK_CONTROL ) ) .or. ;
           ( nKey == ASC('X') .and. GetKeyState( VK_CONTROL ) )) .and. ;
           ! lAnd(nFlags, 2 ** 29)


and now it seems OK.

[Antonio Linares]

Roman,

Thanks!