QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Merge branch 'selective-indent-shortcuts'

Browse source
This commit is contained in:
FellippeHeitor 2016-01-14 16:25:18 -02:00
parent 55035849fd
commit 10c53de173
1 changed files with 32 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
source/ide/ide_methods.bas
View file

@ -3619,11 +3619,11 @@ DO
IF ideselect AND ideautoindent = 0 THEN GOTO IdeBlockIncreaseIndent
END IF
IF menu$(m, s) = "Decrease indent Shift+TAB" THEN
IF LEFT$(menu$(m, s), 15) = "Decrease indent" THEN
IF ideselect AND ideautoindent = 0 THEN GOTO IdeBlockDecreaseIndent
END IF
IF menu$(m, s) = "~Decrease indent Shift+TAB" OR menu$(m, s) = "~Increase indent TAB" THEN
IF LEFT$(menu$(m, s), 16) = "~Decrease indent" OR menu$(m, s) = "~Increase indent TAB" THEN
IF ideautoindent <> 0 THEN
ideerrormessage "Not available when auto indent is active (Options/Code Layout)."
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
@ -10739,12 +10739,20 @@ SUB IdeMakeContextualMenu
NEXT
IF a2$ <> "" THEN
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent Shift+TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1
menu$(m, i) = "-": i = i + 1
END IF
ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent Shift+TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1
menu$(m, i) = "-": i = i + 1
END IF
else
@ -10800,18 +10808,34 @@ SUB IdeMakeEditMenu
NEXT
IF a2$ = "" THEN
menu$(m, i) = "~Increase indent TAB": i = i + 1
menu$(m, i) = "~Decrease indent Shift+TAB": i = i + 1
menu$(m, i) = "~Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1
ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent Shift+TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1
END IF
ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent Shift+TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1
END IF
else
menu$(m, i) = "~Increase indent TAB": i = i + 1
menu$(m, i) = "~Decrease indent Shift+TAB": i = i + 1
menu$(m, i) = "~Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1
end if
menu$(m, i) = "-": i = i + 1
menu$(m, i) = "New #SUB...": i = i + 1