mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Fix keyboard hotkey indicator in contextual menu.
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:
parent
95af7ff6a6
commit
6af23d8039
|
@ -3813,7 +3813,7 @@ DO
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
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
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
idecy = CVL(MID$(SubFuncLIST(ubound(SubFuncLIST)), 1, 4))
|
idecy = CVL(MID$(SubFuncLIST(ubound(SubFuncLIST)), 1, 4))
|
||||||
idesy = idecy
|
idesy = idecy
|
||||||
|
@ -10842,7 +10842,7 @@ SUB IdeMakeContextualMenu
|
||||||
goto CheckThisLabel
|
goto CheckThisLabel
|
||||||
end if
|
end if
|
||||||
if LabelLineNumber > 0 and LabelLineNumber <> idecy then
|
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
|
REDIM _PRESERVE SubFuncLIST(1 to ubound(SubFuncLIST) + 1) AS STRING
|
||||||
SubFuncLIST(ubound(SubFuncLIST)) = MKL$(Labels(r).SourceLineNumber)
|
SubFuncLIST(ubound(SubFuncLIST)) = MKL$(Labels(r).SourceLineNumber)
|
||||||
end if
|
end if
|
||||||
|
|
Loading…
Reference in a new issue