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

Fixes menu glith reported in #107

Browse source
This commit is contained in:
FellippeHeitor 2019-12-08 11:53:19 -03:00
parent e74c1fb9e3
commit 8cc5a15742
1 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
source/ide/ide_methods.bas
View file

@ -4127,8 +4127,20 @@ FUNCTION ide2 (ignore)
s = 0 s = 0
parentMenu = 0 parentMenu = 0
parentMenuSetup%% = 0 parentMenuSetup%% = 0
IF idecontextualmenu = 1 THEN idectxmenuX = mX: idectxmenuY = mY: m = idecontextualmenuID SELECT CASE idecontextualmenu
IF idecontextualmenu = 2 THEN idectxmenuX = xx + w + 3: idectxmenuY = yy + r: parentMenu = m: m = ViewMenuShowLineNumbersSubMenuID CASE 1
'right-click on text area
idectxmenuX = mX
idectxmenuY = mY
m = idecontextualmenuID
CASE 2
'line numbers menu item in View menu
idectxmenuX = xx + w + 3
idectxmenuY = yy + r
parentMenu = m
m = ViewMenuShowLineNumbersSubMenuID
END SELECT
IdeMakeEditMenu IdeMakeEditMenu
IF totalWarnings = 0 THEN IF totalWarnings = 0 THEN
@ -4298,6 +4310,7 @@ FUNCTION ide2 (ignore)
m = parentMenu m = parentMenu
r = parentMenuR r = parentMenuR
parentMenu = 0 parentMenu = 0
parentMenuR = 0
idecontextualmenu = 0 idecontextualmenu = 0
PCOPY 3, 2 PCOPY 3, 2
_CONTINUE _CONTINUE
@ -4308,6 +4321,7 @@ FUNCTION ide2 (ignore)
GOTO ideloop GOTO ideloop
END IF END IF
END IF END IF
IF NOT mouseup AND NOT mousedown THEN 'Check if we're hovering on menu options IF NOT mouseup AND NOT mousedown THEN 'Check if we're hovering on menu options
IF parentMenu > 0 AND oldmy <> mY AND oldmx <> mX AND _ IF parentMenu > 0 AND oldmy <> mY AND oldmx <> mX AND _
mX >= backToParent.x1 AND mX =< backToParent.x2 AND _ mX >= backToParent.x1 AND mX =< backToParent.x2 AND _
@ -4315,6 +4329,7 @@ FUNCTION ide2 (ignore)
m = parentMenu m = parentMenu
r = parentMenuR r = parentMenuR
parentMenu = 0 parentMenu = 0
parentMenuR = 0
idecontextualmenu = 0 idecontextualmenu = 0
PCOPY 3, 2 PCOPY 3, 2
_CONTINUE _CONTINUE
@ -4342,6 +4357,8 @@ FUNCTION ide2 (ignore)
IF mX >= x AND mX < x2 THEN IF mX >= x AND mX < x2 THEN
m = i m = i
r = 1 r = 1
parentMenuR = 0
parentMenu = 0
IF idecontextualmenu > 1 THEN idecontextualmenu = 0: PCOPY 3, 2 IF idecontextualmenu > 1 THEN idecontextualmenu = 0: PCOPY 3, 2
EXIT FOR EXIT FOR
END IF END IF