mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-20 10:25:15 +00:00
Removes duplicate code to clear status area (IDE).
This commit is contained in:
parent
1115ca269e
commit
6c7dda0296
|
@ -195,7 +195,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF LEFT$(c$, 1) = CHR$(12) THEN
|
IF LEFT$(c$, 1) = CHR$(12) THEN
|
||||||
f$ = RIGHT$(c$, LEN(c$) - 1)
|
f$ = RIGHT$(c$, LEN(c$) - 1)
|
||||||
LOCATE , , 0
|
LOCATE , , 0
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
|
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem
|
BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem
|
||||||
|
@ -664,7 +664,7 @@ FUNCTION ide2 (ignore)
|
||||||
'COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; 'repair menu bar
|
'COLOR 0, 7: LOCATE 1, 1: PRINT menubar$; 'repair menu bar
|
||||||
|
|
||||||
IF c$ <> CHR$(3) THEN
|
IF c$ <> CHR$(3) THEN
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
IF ready THEN
|
IF ready THEN
|
||||||
IF IDEShowErrorsImmediately THEN
|
IF IDEShowErrorsImmediately THEN
|
||||||
LOCATE idewy - 3, 2: PRINT "OK"; 'report OK status
|
LOCATE idewy - 3, 2: PRINT "OK"; 'report OK status
|
||||||
|
@ -913,7 +913,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF LEFT$(IdeInfo, 19) <> "Selection length = " THEN IdeInfo = ""
|
IF LEFT$(IdeInfo, 19) <> "Selection length = " THEN IdeInfo = ""
|
||||||
UpdateIdeInfo
|
UpdateIdeInfo
|
||||||
|
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
'scrolling unavailable, but may span multiple lines
|
'scrolling unavailable, but may span multiple lines
|
||||||
IF compfailed THEN
|
IF compfailed THEN
|
||||||
a$ = MID$(c$, 2, LEN(c$) - 5)
|
a$ = MID$(c$, 2, LEN(c$) - 5)
|
||||||
|
@ -988,7 +988,7 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
IF idechangemade THEN
|
IF idechangemade THEN
|
||||||
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
|
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
|
|
||||||
IdeInfo = ""
|
IdeInfo = ""
|
||||||
|
|
||||||
|
@ -1555,7 +1555,7 @@ FUNCTION ide2 (ignore)
|
||||||
ELSEIF result = 3 THEN
|
ELSEIF result = 3 THEN
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
LOCATE , , 0
|
LOCATE , , 0
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
LOCATE idewy - 3, 2
|
LOCATE idewy - 3, 2
|
||||||
PRINT "Compilation request canceled."
|
PRINT "Compilation request canceled."
|
||||||
GOTO specialchar
|
GOTO specialchar
|
||||||
|
@ -1567,7 +1567,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF ready <> 0 AND idechangemade = 0 THEN
|
IF ready <> 0 AND idechangemade = 0 THEN
|
||||||
|
|
||||||
LOCATE , , 0
|
LOCATE , , 0
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
|
|
||||||
IF idecompiled THEN
|
IF idecompiled THEN
|
||||||
|
|
||||||
|
@ -1636,7 +1636,7 @@ FUNCTION ide2 (ignore)
|
||||||
|
|
||||||
'correct status message
|
'correct status message
|
||||||
LOCATE , , 0
|
LOCATE , , 0
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
|
|
||||||
LOCATE idewy - 3, 2: PRINT "Checking program... (editing program will cancel request)";
|
LOCATE idewy - 3, 2: PRINT "Checking program... (editing program will cancel request)";
|
||||||
|
|
||||||
|
@ -2850,7 +2850,7 @@ FUNCTION ide2 (ignore)
|
||||||
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_Height", "25"
|
||||||
|
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
LOCATE idewy - 3, 2
|
LOCATE idewy - 3, 2
|
||||||
COLOR 15, 1
|
COLOR 15, 1
|
||||||
PRINT "Editing $INCLUDE file..."
|
PRINT "Editing $INCLUDE file..."
|
||||||
|
@ -2877,7 +2877,7 @@ FUNCTION ide2 (ignore)
|
||||||
CLOSE #backupIncludeFile
|
CLOSE #backupIncludeFile
|
||||||
|
|
||||||
dummy = DarkenFGBG(0)
|
dummy = DarkenFGBG(0)
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
|
|
||||||
IF tempInclude1$ = tempInclude2$ THEN
|
IF tempInclude1$ = tempInclude2$ THEN
|
||||||
IF IDEShowErrorsImmediately THEN
|
IF IDEShowErrorsImmediately THEN
|
||||||
|
@ -5086,7 +5086,7 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
ideQuickKeycode:
|
ideQuickKeycode:
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
LOCATE idewy - 3, 2
|
LOCATE idewy - 3, 2
|
||||||
COLOR 15, 1
|
COLOR 15, 1
|
||||||
PRINT "Press any key to insert its _KEYHIT/_KEYDOWN code..."
|
PRINT "Press any key to insert its _KEYHIT/_KEYDOWN code..."
|
||||||
|
@ -6044,7 +6044,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
|
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
|
|
||||||
IdeInfo = ""
|
IdeInfo = ""
|
||||||
|
|
||||||
|
@ -6469,7 +6469,7 @@ FUNCTION idechange$
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
idefocusline = 0
|
idefocusline = 0
|
||||||
ideshowtext
|
ideshowtext
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
|
@ -14751,7 +14751,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
|
||||||
|
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
LOCATE idewy - 3, 2
|
LOCATE idewy - 3, 2
|
||||||
COLOR 15, 1
|
COLOR 15, 1
|
||||||
PRINT "Converting... "
|
PRINT "Converting... "
|
||||||
|
@ -14760,7 +14760,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
|
||||||
convertLine$ = convertUtility$ + " " + QuotedFilename$(file$) + " -o " + QuotedFilename$(ofile$)
|
convertLine$ = convertUtility$ + " " + QuotedFilename$(file$) + " -o " + QuotedFilename$(ofile$)
|
||||||
SHELL _HIDE convertLine$
|
SHELL _HIDE convertLine$
|
||||||
|
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
dummy = DarkenFGBG(0)
|
dummy = DarkenFGBG(0)
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
|
|
||||||
|
@ -14792,7 +14792,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
SCREEN , , 3, 0
|
SCREEN , , 3, 0
|
||||||
dummy = DarkenFGBG(1)
|
dummy = DarkenFGBG(1)
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
LOCATE idewy - 3, 2
|
LOCATE idewy - 3, 2
|
||||||
COLOR 15, 1
|
COLOR 15, 1
|
||||||
PRINT "Preparing to convert..."
|
PRINT "Preparing to convert..."
|
||||||
|
@ -14803,7 +14803,7 @@ FUNCTION BinaryFormatCheck% (pathToCheck$, pathSepToCheck$, fileToCheck$)
|
||||||
SHELL _HIDE "./qb64 -x ./source/utilities/QB45BIN.bas -o ./internal/utilities/QB45BIN"
|
SHELL _HIDE "./qb64 -x ./source/utilities/QB45BIN.bas -o ./internal/utilities/QB45BIN"
|
||||||
END IF
|
END IF
|
||||||
IF _FILEEXISTS(convertUtility$) THEN GOTO ConvertIt
|
IF _FILEEXISTS(convertUtility$) THEN GOTO ConvertIt
|
||||||
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
clearStatusWindow
|
||||||
dummy = DarkenFGBG(0)
|
dummy = DarkenFGBG(0)
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
result = idemessagebox("Binary format", "Error launching conversion utility.", "")
|
result = idemessagebox("Binary format", "Error launching conversion utility.", "")
|
||||||
|
@ -14834,5 +14834,15 @@ SUB cleanSubName (n$)
|
||||||
x = INSTR(n$, " "): IF x THEN n$ = LEFT$(n$, x - 1)
|
x = INSTR(n$, " "): IF x THEN n$ = LEFT$(n$, x - 1)
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
SUB clearStatusWindow
|
||||||
|
COLOR 7, 1
|
||||||
|
LOCATE idewy - 3, 2
|
||||||
|
PRINT SPACE$(idewx - 2);
|
||||||
|
LOCATE idewy - 2, 2
|
||||||
|
PRINT SPACE$(idewx - 2);
|
||||||
|
LOCATE idewy - 1, 2
|
||||||
|
PRINT SPACE$(idewx - 2);
|
||||||
|
END SUB
|
||||||
|
|
||||||
'$INCLUDE:'wiki\wiki_methods.bas'
|
'$INCLUDE:'wiki\wiki_methods.bas'
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue