mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Makes Edit menu aware of the Help System.
This commit is contained in:
parent
f5074c221d
commit
4ed7a5b233
|
@ -1888,6 +1888,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF LEN(K$) = 1 THEN
|
IF LEN(K$) = 1 THEN
|
||||||
k = ASC(K$)
|
k = ASC(K$)
|
||||||
IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "V") THEN 'paste from clipboard
|
IF (KSHIFT AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "V") THEN 'paste from clipboard
|
||||||
|
pasteIntoSearchField:
|
||||||
clip$ = _CLIPBOARD$ 'read clipboard
|
clip$ = _CLIPBOARD$ 'read clipboard
|
||||||
x = INSTR(clip$, CHR$(13))
|
x = INSTR(clip$, CHR$(13))
|
||||||
IF x THEN clip$ = LEFT$(clip$, x - 1)
|
IF x THEN clip$ = LEFT$(clip$, x - 1)
|
||||||
|
@ -1914,6 +1915,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF (KCONTROL AND UCASE$(K$) = "A") THEN 'select all
|
IF (KCONTROL AND UCASE$(K$) = "A") THEN 'select all
|
||||||
|
selectAllInSearchField:
|
||||||
IF LEN(a$) > 0 THEN
|
IF LEN(a$) > 0 THEN
|
||||||
idesystem2.issel = -1
|
idesystem2.issel = -1
|
||||||
idesystem2.sx1 = 0
|
idesystem2.sx1 = 0
|
||||||
|
@ -1923,6 +1925,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) THEN 'copy to clipboard
|
IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) THEN 'copy to clipboard
|
||||||
|
copysearchterm2clip:
|
||||||
IF idesystem2.issel THEN
|
IF idesystem2.issel THEN
|
||||||
sx1 = idesystem2.sx1: sx2 = idesystem2.v1
|
sx1 = idesystem2.sx1: sx2 = idesystem2.v1
|
||||||
IF sx1 > sx2 THEN SWAP sx1, sx2
|
IF sx1 > sx2 THEN SWAP sx1, sx2
|
||||||
|
@ -1932,6 +1935,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF ((KSHIFT AND KB = KEY_DELETE) OR (KCONTROL AND UCASE$(K$) = "X")) THEN 'cut to clipboard
|
IF ((KSHIFT AND KB = KEY_DELETE) OR (KCONTROL AND UCASE$(K$) = "X")) THEN 'cut to clipboard
|
||||||
|
cutToClipboardSearchField:
|
||||||
IF idesystem2.issel THEN
|
IF idesystem2.issel THEN
|
||||||
sx1 = idesystem2.sx1: sx2 = idesystem2.v1
|
sx1 = idesystem2.sx1: sx2 = idesystem2.v1
|
||||||
IF sx1 > sx2 THEN SWAP sx1, sx2
|
IF sx1 > sx2 THEN SWAP sx1, sx2
|
||||||
|
@ -2004,6 +2008,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF K$ = CHR$(0) + "S" THEN 'DEL
|
IF K$ = CHR$(0) + "S" THEN 'DEL
|
||||||
|
deleteSelectionSearchField:
|
||||||
IF idesystem2.issel THEN
|
IF idesystem2.issel THEN
|
||||||
sx1 = idesystem2.sx1: sx2 = idesystem2.v1
|
sx1 = idesystem2.sx1: sx2 = idesystem2.v1
|
||||||
IF sx1 > sx2 THEN SWAP sx1, sx2
|
IF sx1 > sx2 THEN SWAP sx1, sx2
|
||||||
|
@ -2108,6 +2113,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF KCONTROL AND UCASE$(K$) = "A" THEN 'select all
|
IF KCONTROL AND UCASE$(K$) = "A" THEN 'select all
|
||||||
|
selectAllInHelp:
|
||||||
IF help_h THEN
|
IF help_h THEN
|
||||||
Help_Select = 2
|
Help_Select = 2
|
||||||
Help_SelX1 = 1
|
Help_SelX1 = 1
|
||||||
|
@ -2120,6 +2126,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) AND Help_Select = 2 THEN 'copy to clipboard
|
IF ((KCTRL AND KB = KEY_INSERT) OR (KCONTROL AND UCASE$(K$) = "C")) AND Help_Select = 2 THEN 'copy to clipboard
|
||||||
|
copyhelp2clip:
|
||||||
clip$ = ""
|
clip$ = ""
|
||||||
FOR y = Help_SelY1 TO Help_SelY2
|
FOR y = Help_SelY1 TO Help_SelY2
|
||||||
IF y <> Help_SelY1 THEN clip$ = clip$ + CHR$(13) + CHR$(10)
|
IF y <> Help_SelY1 THEN clip$ = clip$ + CHR$(13) + CHR$(10)
|
||||||
|
@ -5474,29 +5481,36 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
IF menu$(m, s) = "Cl#ear Del" THEN
|
IF menu$(m, s) = "Cl#ear Del" THEN
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
IF ideselect = 1 THEN
|
IF IdeSystem = 1 AND ideselect = 1 THEN
|
||||||
idechangemade = 1
|
idechangemade = 1
|
||||||
GOSUB delselect
|
GOSUB delselect
|
||||||
|
ELSEIF IdeSystem = 2 THEN
|
||||||
|
GOTO deleteSelectionSearchField
|
||||||
END IF
|
END IF
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "#Paste Shift+Ins or Ctrl+V" THEN
|
IF menu$(m, s) = "#Paste Shift+Ins or Ctrl+V" THEN
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
GOTO idempaste
|
IF IdeSystem = 1 THEN GOTO idempaste
|
||||||
|
IF IdeSystem = 2 THEN GOTO pasteIntoSearchField
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "#Copy Ctrl+Ins or Ctrl+C" THEN
|
IF menu$(m, s) = "#Copy Ctrl+Ins or Ctrl+C" THEN
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
IF ideselect = 1 THEN GOTO copy2clip
|
IF IdeSystem = 1 AND ideselect = 1 THEN GOTO copy2clip
|
||||||
|
IF IdeSystem = 2 THEN GOTO copysearchterm2clip
|
||||||
|
IF IdeSystem = 3 AND Help_Select = 2 THEN GOTO copyhelp2clip
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "Cu#t Shift+Del or Ctrl+X" THEN
|
IF menu$(m, s) = "Cu#t Shift+Del or Ctrl+X" THEN
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
IF ideselect = 1 THEN
|
IF IdeSystem = 1 AND ideselect = 1 THEN
|
||||||
K$ = CHR$(0) + "S" 'tricks handler into del after copy
|
K$ = CHR$(0) + "S" 'tricks handler into del after copy
|
||||||
GOTO idemcut
|
GOTO idemcut
|
||||||
|
ELSEIF IdeSystem = 2 THEN
|
||||||
|
GOTO cutToClipboardSearchField
|
||||||
END IF
|
END IF
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
@ -5514,7 +5528,9 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
IF menu$(m, s) = "Select #All Ctrl+A" THEN
|
IF menu$(m, s) = "Select #All Ctrl+A" THEN
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
GOTO idemselectall
|
IF IdeSystem = 1 THEN GOTO idemselectall
|
||||||
|
IF IdeSystem = 2 THEN GOTO selectAllInSearchField
|
||||||
|
IF IdeSystem = 3 THEN GOTO selectAllInHelp
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "#Start F5" THEN
|
IF menu$(m, s) = "#Start F5" THEN
|
||||||
|
@ -8728,7 +8744,7 @@ SUB ideshowtext
|
||||||
IF l = idefocusline AND idecy <> l THEN
|
IF l = idefocusline AND idecy <> l THEN
|
||||||
COLOR 7, 4 'Line with error gets a red background
|
COLOR 7, 4 'Line with error gets a red background
|
||||||
ELSEIF idecy = l OR (l >= idecy_multilinestart AND l <= idecy_multilineend) THEN
|
ELSEIF idecy = l OR (l >= idecy_multilinestart AND l <= idecy_multilineend) THEN
|
||||||
IF HideCurrentLineHighlight = 0 THEN COLOR 7, 6 'Highlight the current line
|
IF HideCurrentLineHighlight = 0 AND IdeSystem = 1 THEN COLOR 7, 6 'Highlight the current line
|
||||||
ELSE
|
ELSE
|
||||||
COLOR 7, 1 'Regular text color
|
COLOR 7, 1 'Regular text color
|
||||||
END IF
|
END IF
|
||||||
|
@ -9021,7 +9037,7 @@ SUB ideshowtext
|
||||||
NEXT m
|
NEXT m
|
||||||
|
|
||||||
'apply selection color change if necessary
|
'apply selection color change if necessary
|
||||||
IF ideselect THEN
|
IF IdeSystem = 1 AND ideselect <> 0 THEN
|
||||||
IF l >= sy1 AND l <= sy2 THEN
|
IF l >= sy1 AND l <= sy2 THEN
|
||||||
IF sy1 = sy2 THEN 'single line select
|
IF sy1 = sy2 THEN 'single line select
|
||||||
COLOR 1, 7
|
COLOR 1, 7
|
||||||
|
@ -13708,7 +13724,7 @@ SUB Help_ShowText
|
||||||
LOCATE sy, sx
|
LOCATE sy, sx
|
||||||
DO UNTIL c = 13
|
DO UNTIL c = 13
|
||||||
COLOR col AND 15, col \ 16
|
COLOR col AND 15, col \ 16
|
||||||
IF Help_Select = 2 THEN
|
IF IdeSystem = 3 AND Help_Select = 2 THEN
|
||||||
IF y >= Help_SelY1 AND y <= Help_SelY2 THEN
|
IF y >= Help_SelY1 AND y <= Help_SelY2 THEN
|
||||||
IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN
|
IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN
|
||||||
COLOR 0, 7
|
COLOR 0, 7
|
||||||
|
@ -13729,7 +13745,7 @@ SUB Help_ShowText
|
||||||
FOR x4 = 1 TO Help_wx2 - POS(0) + 1
|
FOR x4 = 1 TO Help_wx2 - POS(0) + 1
|
||||||
IF col = 0 THEN col = 7
|
IF col = 0 THEN col = 7
|
||||||
COLOR col AND 15, col \ 16
|
COLOR col AND 15, col \ 16
|
||||||
IF Help_Select = 2 THEN
|
IF IdeSystem = 3 AND Help_Select = 2 THEN
|
||||||
IF y >= Help_SelY1 AND y <= Help_SelY2 THEN
|
IF y >= Help_SelY1 AND y <= Help_SelY2 THEN
|
||||||
IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN
|
IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN
|
||||||
COLOR 0, 7
|
COLOR 0, 7
|
||||||
|
@ -13747,7 +13763,7 @@ SUB Help_ShowText
|
||||||
x3 = Help_sx
|
x3 = Help_sx
|
||||||
FOR x4 = 1 TO Help_ww
|
FOR x4 = 1 TO Help_ww
|
||||||
COLOR 7, 0
|
COLOR 7, 0
|
||||||
IF Help_Select = 2 THEN
|
IF IdeSystem = 3 AND Help_Select = 2 THEN
|
||||||
IF y >= Help_SelY1 AND y <= Help_SelY2 THEN
|
IF y >= Help_SelY1 AND y <= Help_SelY2 THEN
|
||||||
IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN
|
IF x3 >= Help_SelX1 AND x3 <= Help_SelX2 THEN
|
||||||
COLOR 0, 7
|
COLOR 0, 7
|
||||||
|
@ -14405,8 +14421,11 @@ SUB IdeMakeContextualMenu
|
||||||
NoRGBFound:
|
NoRGBFound:
|
||||||
'--------- _RGB mixer check done. --------------------------------------------
|
'--------- _RGB mixer check done. --------------------------------------------
|
||||||
|
|
||||||
IF ideselect THEN menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1
|
IF (IdeSystem = 1 AND ideselect <> 0) THEN menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1
|
||||||
IF ideselect THEN menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
IF (IdeSystem = 1 AND ideselect = 1) OR _
|
||||||
|
(IdeSystem = 3 AND Help_Select = 2) THEN
|
||||||
|
menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
||||||
|
END IF
|
||||||
|
|
||||||
clip$ = _CLIPBOARD$ 'read clipboard
|
clip$ = _CLIPBOARD$ 'read clipboard
|
||||||
IF LEN(clip$) THEN menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1
|
IF LEN(clip$) THEN menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1
|
||||||
|
@ -14454,52 +14473,68 @@ SUB IdeMakeEditMenu
|
||||||
m = ideeditmenuID: i = 0
|
m = ideeditmenuID: i = 0
|
||||||
menu$(m, i) = "Edit": i = i + 1
|
menu$(m, i) = "Edit": i = i + 1
|
||||||
|
|
||||||
menu$(m, i) = "#Undo Ctrl+Z": i = i + 1
|
IF IdeSystem = 1 THEN
|
||||||
menu$(m, i) = "#Redo Ctrl+Y": i = i + 1
|
menu$(m, i) = "#Undo Ctrl+Z": i = i + 1
|
||||||
|
menu$(m, i) = "#Redo Ctrl+Y": i = i + 1
|
||||||
|
ELSE
|
||||||
|
menu$(m, i) = "~#Undo Ctrl+Z": i = i + 1
|
||||||
|
menu$(m, i) = "~#Redo Ctrl+Y": i = i + 1
|
||||||
|
END IF
|
||||||
menu$(m, i) = "-": i = i + 1
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
|
||||||
IF ideselect THEN
|
IF (IdeSystem = 1 AND ideselect = 1) OR IdeSystem = 2 THEN
|
||||||
menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1
|
menu$(m, i) = "Cu#t Shift+Del or Ctrl+X": i = i + 1
|
||||||
menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
||||||
|
ELSEIF (IdeSystem = 3 AND Help_Select = 2) THEN
|
||||||
|
menu$(m, i) = "~Cu#t Shift+Del or Ctrl+X": i = i + 1
|
||||||
|
menu$(m, i) = "#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
||||||
ELSE
|
ELSE
|
||||||
menu$(m, i) = "~Cu#t Shift+Del or Ctrl+X": i = i + 1
|
menu$(m, i) = "~Cu#t Shift+Del or Ctrl+X": i = i + 1
|
||||||
menu$(m, i) = "~#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
menu$(m, i) = "~#Copy Ctrl+Ins or Ctrl+C": i = i + 1
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
clip$ = _CLIPBOARD$ 'read clipboard
|
clip$ = _CLIPBOARD$ 'read clipboard
|
||||||
IF LEN(clip$) THEN
|
IF (LEN(clip$) > 0 AND IdeSystem = 1) OR IdeSystem = 2 THEN
|
||||||
menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1
|
menu$(m, i) = "#Paste Shift+Ins or Ctrl+V": i = i + 1
|
||||||
ELSE
|
ELSE
|
||||||
menu$(m, i) = "~#Paste Shift+Ins or Ctrl+V": i = i + 1
|
menu$(m, i) = "~#Paste Shift+Ins or Ctrl+V": i = i + 1
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF ideselect THEN
|
IF (IdeSystem = 1 AND ideselect = 1) OR IdeSystem = 2 THEN
|
||||||
menu$(m, i) = "Cl#ear Del": i = i + 1
|
menu$(m, i) = "Cl#ear Del": i = i + 1
|
||||||
ELSE
|
ELSE
|
||||||
menu$(m, i) = "~Cl#ear Del": i = i + 1
|
menu$(m, i) = "~Cl#ear Del": i = i + 1
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
menu$(m, i) = "Select #All Ctrl+A": i = i + 1
|
menu$(m, i) = "Select #All Ctrl+A": i = i + 1
|
||||||
menu$(m, i) = "-": i = i + 1
|
|
||||||
menu$(m, i) = "To#ggle Comment Ctrl+T": i = i + 1
|
IF IdeSystem = 1 THEN
|
||||||
menu$(m, i) = "Add Co#mment (') Ctrl+R": i = i + 1
|
menu$(m, i) = "-": i = i + 1
|
||||||
menu$(m, i) = "Remove Comme#nt (') Ctrl+Shift+R": i = i + 1
|
menu$(m, i) = "To#ggle Comment Ctrl+T": i = i + 1
|
||||||
IF ideselect THEN
|
menu$(m, i) = "Add Co#mment (') Ctrl+R": i = i + 1
|
||||||
y1 = idecy
|
menu$(m, i) = "Remove Comme#nt (') Ctrl+Shift+R": i = i + 1
|
||||||
y2 = ideselecty1
|
IF ideselect THEN
|
||||||
IF y1 = y2 THEN 'single line selected
|
y1 = idecy
|
||||||
a$ = idegetline(idecy)
|
y2 = ideselecty1
|
||||||
a2$ = ""
|
IF y1 = y2 THEN 'single line selected
|
||||||
sx1 = ideselectx1: sx2 = idecx
|
a$ = idegetline(idecy)
|
||||||
IF sx2 < sx1 THEN SWAP sx1, sx2
|
a2$ = ""
|
||||||
FOR x = sx1 TO sx2 - 1
|
sx1 = ideselectx1: sx2 = idecx
|
||||||
IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " "
|
IF sx2 < sx1 THEN SWAP sx1, sx2
|
||||||
NEXT
|
FOR x = sx1 TO sx2 - 1
|
||||||
IF a2$ = "" THEN
|
IF x <= LEN(a$) THEN a2$ = a2$ + MID$(a$, x, 1) ELSE a2$ = a2$ + " "
|
||||||
menu$(m, i) = "~#Increase Indent TAB": i = i + 1
|
NEXT
|
||||||
menu$(m, i) = "~#Decrease Indent"
|
IF a2$ = "" THEN
|
||||||
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
|
menu$(m, i) = "~#Increase Indent TAB": i = i + 1
|
||||||
i = i + 1
|
menu$(m, i) = "~#Decrease Indent"
|
||||||
|
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 INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
|
||||||
|
i = i + 1
|
||||||
|
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"
|
||||||
|
@ -14507,20 +14542,27 @@ SUB IdeMakeEditMenu
|
||||||
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 INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
|
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
|
||||||
i = i + 1
|
i = i + 1
|
||||||
END IF
|
END IF
|
||||||
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
menu$(m, i) = "New #SUB...": i = i + 1
|
||||||
|
menu$(m, i) = "New #FUNCTION...": i = i + 1
|
||||||
ELSE
|
ELSE
|
||||||
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
menu$(m, i) = "~To#ggle Comment Ctrl+T": i = i + 1
|
||||||
|
menu$(m, i) = "~Add Co#mment (') Ctrl+R": i = i + 1
|
||||||
|
menu$(m, i) = "~Remove Comme#nt (') Ctrl+Shift+R": i = i + 1
|
||||||
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 INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
|
IF INSTR(_OS$, "WIN") OR INSTR(_OS$, "MAC") THEN menu$(m, i) = menu$(m, i) + " Shift+TAB"
|
||||||
i = i + 1
|
i = i + 1
|
||||||
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
menu$(m, i) = "~New #SUB...": i = i + 1
|
||||||
|
menu$(m, i) = "~New #FUNCTION...": i = i + 1
|
||||||
END IF
|
END IF
|
||||||
menu$(m, i) = "-": i = i + 1
|
|
||||||
menu$(m, i) = "New #SUB...": i = i + 1
|
|
||||||
menu$(m, i) = "New #FUNCTION...": i = i + 1
|
|
||||||
menusize(m) = i - 1
|
menusize(m) = i - 1
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue