mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 12:50:37 +00:00
Show eventual substitutions even if Find and Replace is canceled.
This commit is contained in:
parent
f657fb24d9
commit
7916be2e3e
|
@ -5478,7 +5478,15 @@ FUNCTION ide2 (ignore)
|
||||||
idedeltxt
|
idedeltxt
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
IF r$ = "C" THEN idecx = oldcx: idecy = oldcy: GOTO ideloop
|
IF r$ = "C" THEN
|
||||||
|
idecx = oldcx: idecy = oldcy: GOTO ideloop
|
||||||
|
IF changed THEN
|
||||||
|
ideshowtext
|
||||||
|
SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0
|
||||||
|
PCOPY 3, 0
|
||||||
|
idechanged changed
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
IF r$ = "Y" THEN
|
IF r$ = "Y" THEN
|
||||||
l$ = idegetline(idecy)
|
l$ = idegetline(idecy)
|
||||||
idechangemade = 1
|
idechangemade = 1
|
||||||
|
|
|
@ -12511,7 +12511,7 @@ IF Debug THEN PRINT #9, "ERL="; ERL
|
||||||
IF idemode AND qberrorhappenedvalue >= 0 THEN
|
IF idemode AND qberrorhappenedvalue >= 0 THEN
|
||||||
'real qb error occurred
|
'real qb error occurred
|
||||||
ideerrorline = linenumber
|
ideerrorline = linenumber
|
||||||
idemessage$ = "Compiler error (check for syntax errors) (" _ERRORMESSAGE$ + ":"
|
idemessage$ = "Compiler error (check for syntax errors) (" + _ERRORMESSAGE$ + ":"
|
||||||
IF ERR THEN idemessage$ = idemessage$ + str2$(ERR) + "-"
|
IF ERR THEN idemessage$ = idemessage$ + str2$(ERR) + "-"
|
||||||
IF _ERRORLINE THEN idemessage$ = idemessage$ + str2$(_ERRORLINE)
|
IF _ERRORLINE THEN idemessage$ = idemessage$ + str2$(_ERRORLINE)
|
||||||
IF _INCLERRORLINE THEN idemessage$ = idemessage$ + "-" + _INCLERRORFILE$ + "-" + str2$(_INCLERRORLINE)
|
IF _INCLERRORLINE THEN idemessage$ = idemessage$ + "-" + _INCLERRORFILE$ + "-" + str2$(_INCLERRORLINE)
|
||||||
|
|
Loading…
Reference in a new issue