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

Fix keyboard hotkey indicator in contextual menu.

Browse source 
When two 'Go to...' are shown (when label and procedure share the same name), the item that goes to procedure will have G highlighted and the item that goes to a label will have L highlighted.
This commit is contained in:
Fellippe Heitor 2016-02-27 16:17:28 -03:00
parent 95af7ff6a6
commit 6af23d8039
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -3813,7 +3813,7 @@ DO
GOTO ideloop
END IF
IF left$(menu$(m, s), 12) = "#Go to label" THEN 'Contextual menu Goto label
IF left$(menu$(m, s), 12) = "Go to #label" THEN 'Contextual menu Goto label
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
idecy = CVL(MID$(SubFuncLIST(ubound(SubFuncLIST)), 1, 4))
idesy = idecy
@ -10842,7 +10842,7 @@ SUB IdeMakeContextualMenu
goto CheckThisLabel
end if
if LabelLineNumber > 0 and LabelLineNumber <> idecy then
menu$(m, i) = "#Go to label " + rtrim$(Labels(r).cn): i = i + 1
menu$(m, i) = "Go to #label " + rtrim$(Labels(r).cn): i = i + 1
REDIM _PRESERVE SubFuncLIST(1 to ubound(SubFuncLIST) + 1) AS STRING
SubFuncLIST(ubound(SubFuncLIST)) = MKL$(Labels(r).SourceLineNumber)
end if