From 0075adde2c4e28787cd94a303f68d0088ad16b12 Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Fri, 15 Jan 2016 04:33:51 -0200 Subject: [PATCH] Shows Shift+TAB in menus only in Windows and OS X. QB64 doesn't recognize Shift+TAB under Linux. --- source/ide/ide_methods.bas | 24 ++++++------------------ 1 file changed, 6 insertions(+), 18 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 994d8044e..165faa915 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -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