elmau
/
vibreoffice
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#12: Allow Ctrl-a to select all

This commit is contained in:
Sean Yeh 2015-07-30 17:24:17 -05:00
parent 5ea663876a
commit 7cf5945900
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/vibreoffice.vbs
View File

@ -271,10 +271,11 @@ function KeyHandler_KeyPressed(oEvent) as boolean
Exit Function
End If
dim bConsumeInput, bIsMultiplier, bIsModified, bIsSpecial
dim bConsumeInput, bIsMultiplier, bIsModified, bIsControl, bIsSpecial
bConsumeInput = True ' Block all inputs by default
bIsMultiplier = False ' reset multiplier by default
bIsModified = oEvent.Modifiers > 1 ' If Ctrl or Alt is held down. (Shift=1)
bIsControl = (oEvent.Modifiers = 2) or (oEvent.Modifiers = 8)
bIsSpecial = getSpecial() <> ""
@ -308,8 +309,12 @@ function KeyHandler_KeyPressed(oEvent) as boolean
' Pass
' If is modified but doesn't match a normal command, allow input
' (Useful for built-in shortcuts like Ctrl+s, Ctrl+w)
' (Useful for built-in shortcuts like Ctrl+a, Ctrl+s, Ctrl+w)
ElseIf bIsModified Then
' Ctrl+a (select all) sets mode to VISUAL
If bIsControl And oEvent.KeyChar = "a" Then
gotoMode("VISUAL")
End If
bConsumeInput = False
' Movement modifier here?