QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +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 IF a2$ <> "" THEN
menu$(m, i) = "Increase indent TAB": i = i + 1 menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent" menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1 i = i + 1
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
END IF END IF
ELSE ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1 menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent" menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1 i = i + 1
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
END IF END IF
@ -10814,32 +10810,24 @@ SUB IdeMakeEditMenu
IF a2$ = "" THEN IF a2$ = "" THEN
menu$(m, i) = "~Increase indent TAB": i = i + 1 menu$(m, i) = "~Increase indent TAB": i = i + 1
menu$(m, i) = "~Decrease indent" menu$(m, i) = "~Decrease indent"
$IF WIN OR MAC THEN IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1 i = i + 1
ELSE ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1 menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent" menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1 i = i + 1
END IF END IF
ELSE ELSE
menu$(m, i) = "Increase indent TAB": i = i + 1 menu$(m, i) = "Increase indent TAB": i = i + 1
menu$(m, i) = "Decrease indent" menu$(m, i) = "Decrease indent"
$IF WIN OR MAC THEN IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1 i = i + 1
END IF END IF
else else
menu$(m, i) = "~Increase indent TAB": i = i + 1 menu$(m, i) = "~Increase indent TAB": i = i + 1
menu$(m, i) = "~Decrease indent" menu$(m, i) = "~Decrease indent"
$IF WIN OR MAC THEN IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
menu$(m, i) = menu$(m, i) + " Shift+TAB"
$END IF
i = i + 1 i = i + 1
end if end if
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1