From 4ce6e3017cd04e293f7a1ba7be8a0b9953c2d556 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sun, 8 Aug 2021 13:16:11 -0300 Subject: [PATCH] Reinstates legacy clipboard shortcuts in dialogs. Ctrl+Insert, Shift+Insert and Shift+Delete as alternatives to Ctrl+C, Ctrl+V and Ctrl+X in dialogs. --- source/ide/ide_methods.bas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 2a5a07126..9af5cc172 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -2042,8 +2042,8 @@ FUNCTION ide2 (ignore) IF IdeSystem = 2 THEN a$ = idefindtext - IF LEN(K$) = 1 THEN - k = ASC(K$) + IF LEN(K$) = 1 OR KB <> 0 THEN + IF LEN(K$) = 1 THEN k = ASC(K$) IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "V") THEN 'paste from clipboard pasteIntoSearchField: clip$ = _CLIPBOARD$ 'read clipboard @@ -12148,8 +12148,8 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m a$ = idetxt(o.txt) IF focusoffset = 0 THEN - IF LEN(kk$) = 1 THEN - k = ASC(kk$) + IF LEN(kk$) = 1 OR KB <> 0 THEN + IF LEN(kk$) = 1 THEN k = ASC(kk$) IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(kk$) = "V") THEN 'paste from clipboard clip$ = _CLIPBOARD$ 'read clipboard x = INSTR(clip$, CHR$(13))