luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

TextEditor: Shortcuts work again.

Browse source 
[GB.FORM.EDITOR]
* BUG: TextEditor: Shortcuts work again.
This commit is contained in:
gambas 2018-05-24 17:41:49 +02:00
parent 35e9859894
commit 502b403728
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
comp/src/gb.form.editor/.src/TextEditor.class
View file

@ -218,11 +218,11 @@ Public Sub _new()
$cShortcut = [ $cShortcut = [
"CTRL+A": "SelectAll", "CTRL+A": "SelectAll",
"CTRL+C": "Copy", "CTRL+C": "Copy",
"CTRL+Ins": "Copy", "CTRL+INS": "Copy",
"CTRL+V": "Paste", "CTRL+V": "Paste",
"SHIFT+Ins": "Paste", "SHIFT+INS": "Paste",
"CTRL+X": "Cut", "CTRL+X": "Cut",
"SHIFT+Del": "Cut", "SHIFT+DEL": "Cut",
"CTRL+Y": "Redo", "CTRL+Y": "Redo",
"CTRL+Z": "Undo"] "CTRL+Z": "Undo"]
Endif Endif
@ -1348,7 +1348,7 @@ Public Sub View_KeyPress()
bCancel = Raise KeyPress bCancel = Raise KeyPress
If bCancel Then Goto STOP_EVENT If bCancel Then Goto STOP_EVENT
Try sAction = $cShortcut[Shortcut.FromKey()] Try sAction = $cShortcut[String.UCase(Shortcut.FromKey())]
If sAction Then If sAction Then
Select Case sAction Select Case sAction
Case "Copy" Case "Copy"