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

Shows Shift+TAB in menus only in Windows and OS X.

Browse source 
QB64 doesn't recognize Shift+TAB under Linux.
This commit is contained in:
FellippeHeitor 2016-01-15 04:33:51 -02:00
parent 02f63c2457
commit 0075adde2c
1 changed files with 6 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
source/ide/ide_methods.bas
View file

@ -10745,18 +10745,14 @@ SUB IdeMakeContextualMenu
IF a2$ <> "" THEN
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
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"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
i = i + 1
menu$(m, i) = "-": i = i + 1
END IF
@ -10814,32 +10810,24 @@ SUB IdeMakeEditMenu
IF a2$ = "" THEN
menu$(m, i) = "~Increase indent TAB": i = i + 1
menu$(m, i) = "~Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
i = i + 1
ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
i = i + 1
END IF
ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
i = i + 1
END IF
else
menu$(m, i) = "~Increase indent TAB": i = i + 1
menu$(m, i) = "~Decrease indent"
$IF WIN OR MAC THEN
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
i = i + 1
end if
menu$(m, i) = "-": i = i + 1