QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 13:50:36 +00:00
Code Issues Releases Wiki Activity

Fixes a bug that would duplicate an $INCLUDEd line in some scenarios. +

Browse source 
+ Fixes ASCII box glitches.
This commit is contained in:
FellippeHeitor 2020-02-03 21:26:28 -03:00
parent a75377a9ef
commit 498d2cee54
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
source/ide/ide_methods.bas
View file

@ -1590,7 +1590,7 @@ FUNCTION ide2 (ignore)
idehelp = 1 idehelp = 1
skipdisplay = 0 skipdisplay = 0
IdeSystem = 3 IdeSystem = 3
retval = 1: GOTO redraweverything2 retval = 1: GOSUB redrawItAll
END IF END IF
IdeSystem = 3 IdeSystem = 3
GOTO specialchar GOTO specialchar
@ -1985,7 +1985,7 @@ FUNCTION ide2 (ignore)
idesubwindow = 0 idesubwindow = 0
skipdisplay = 0 skipdisplay = 0
IdeSystem = 1 IdeSystem = 1
retval = 1: GOTO redraweverything2 retval = 1: GOSUB redrawItAll
END IF END IF
END IF END IF
@ -2481,7 +2481,7 @@ FUNCTION ide2 (ignore)
idehelp = 1 idehelp = 1
skipdisplay = 0 skipdisplay = 0
IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC. IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC.
retval = 1: GOTO redraweverything2 retval = 1: GOSUB redrawItAll
END IF END IF
WikiParse a$ WikiParse a$
@ -2555,7 +2555,7 @@ FUNCTION ide2 (ignore)
idehelp = 1 idehelp = 1
skipdisplay = 0 skipdisplay = 0
IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC. IdeSystem = 3 'Standard qb45 behaviour. Allows for quick peek at help then ESC.
retval = 1: GOTO redraweverything2 retval = 1: GOSUB redrawItAll
END IF END IF
WikiParse a$ WikiParse a$
@ -4612,7 +4612,7 @@ FUNCTION ide2 (ignore)
IF IDE_UseFont8 THEN _FONT 8 ELSE _FONT 16 IF IDE_UseFont8 THEN _FONT 8 ELSE _FONT 16
END IF END IF
skipdisplay = 0 skipdisplay = 0
GOTO redraweverything2 GOSUB redrawItAll
END IF END IF
END IF END IF
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
@ -4836,7 +4836,7 @@ FUNCTION ide2 (ignore)
ideASCIIbox ideASCIIbox
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
retval = 1 retval = 1
GOTO redraweverything2 GOSUB redrawItAll
GOTO ideloop GOTO ideloop
END IF END IF
@ -4892,7 +4892,7 @@ FUNCTION ide2 (ignore)
idehelp = 1 idehelp = 1
skipdisplay = 0 skipdisplay = 0
IdeSystem = 3 IdeSystem = 3
retval = 1: GOTO redraweverything2 retval = 1: GOSUB redrawItAll
END IF END IF
GOTO ideloop GOTO ideloop
@ -14106,6 +14106,7 @@ SUB ideASCIIbox
_AUTODISPLAY _AUTODISPLAY
SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2 SCREEN 0: WIDTH w, h: _FONT font: _DEST 0: _DELAY .2
IF _RESIZE THEN donothing = atall IF _RESIZE THEN donothing = atall
DO UNTIL _MOUSEBUTTON(1) = 0 AND _MOUSEBUTTON(2) = 0: i = _MOUSEINPUT: LOOP
EXIT FUNCTION EXIT FUNCTION
END IF END IF
@ -14117,12 +14118,9 @@ SUB ideASCIIbox
a$ = idegetline(l) a$ = idegetline(l)
l$ = LEFT$(a$, idecx - 1): r$ = RIGHT$(a$, LEN(a$) - idecx + 1) l$ = LEFT$(a$, idecx - 1): r$ = RIGHT$(a$, LEN(a$) - idecx + 1)
text$ = l$ + CHR$(ret%) + r$ text$ = l$ + CHR$(ret%) + r$
textlen = LEN(text$) idesetline l, text$
l$ = LEFT$(idet$, ideli - 1)
m$ = MKL$(textlen) + text$ + MKL$(textlen)
r$ = RIGHT$(idet$, LEN(idet$) - ideli - LEN(a$) - 7)
idet$ = l$ + m$ + r$
idecx = idecx + 1 idecx = idecx + 1
idechangemade = 1
END IF END IF
_AUTODISPLAY _AUTODISPLAY
@ -14130,7 +14128,8 @@ SUB ideASCIIbox
SCREEN 0: WIDTH w, h SCREEN 0: WIDTH w, h
_FONT font _FONT font
_DEST 0: _DELAY .2 _DEST 0: _DELAY .2
IF _RESIZE THEN donothing = atall IF _RESIZE THEN REM
DO UNTIL _MOUSEBUTTON(1) = 0 AND _MOUSEBUTTON(2) = 0: i = _MOUSEINPUT: LOOP
END FUNCTION END FUNCTION