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

Disable/hide 'Check for newer version' feature

Browse source 
Incompatible with new website.
This commit is contained in:
FellippeHeitor 2022-01-18 21:28:26 -03:00
parent f489d05755
commit f10b36db6a
1 changed files with 144 additions and 144 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

288
source/ide/ide_methods.bas
View file

@ -477,8 +477,8 @@ FUNCTION ide2 (ignore)
menu$(m, i) = "View Current Page On #Wiki": i = i + 1 menu$(m, i) = "View Current Page On #Wiki": i = i + 1
menuDesc$(m, i - 1) = "Launches the default browser and navigates to the current article on the wiki" menuDesc$(m, i - 1) = "Launches the default browser and navigates to the current article on the wiki"
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
menu$(m, i) = "Check for #Newer Version...": i = i + 1 'menu$(m, i) = "Check for #Newer Version...": i = i + 1
menuDesc$(m, i - 1) = "Displays the current version of QB64" 'menuDesc$(m, i - 1) = "Displays the current version of QB64"
menu$(m, i) = "#About...": i = i + 1 menu$(m, i) = "#About...": i = i + 1
menuDesc$(m, i - 1) = "Displays the current version of QB64" menuDesc$(m, i - 1) = "Displays the current version of QB64"
menusize(m) = i - 1 menusize(m) = i - 1
@ -5141,12 +5141,12 @@ FUNCTION ide2 (ignore)
GOTO ideloop GOTO ideloop
END IF END IF
IF menu$(m, s) = "Check for #Newer Version..." THEN 'IF menu$(m, s) = "Check for #Newer Version..." THEN
PCOPY 2, 0 ' PCOPY 2, 0
idecheckupdates ' idecheckupdates
PCOPY 3, 0: SCREEN , , 3, 0 ' PCOPY 3, 0: SCREEN , , 3, 0
GOTO ideloop ' GOTO ideloop
END IF 'END IF
IF menu$(m, s) = "#About..." THEN IF menu$(m, s) = "#About..." THEN
@ -15244,153 +15244,153 @@ FUNCTION ideyesnobox$ (titlestr$, messagestr$) 'returns "Y" or "N"
END FUNCTION 'yes/no box END FUNCTION 'yes/no box
SUB idecheckupdates 'SUB idecheckupdates
FOR i = 1 TO 3 ' FOR i = 1 TO 3
SELECT CASE i ' SELECT CASE i
CASE 1 ' CASE 1
remoteFile$ = "www.qb64.org/getver.php" ' remoteFile$ = "www.qb64.org/getver.php"
lookFor$ = "Version$ = " ' lookFor$ = "Version$ = "
m$ = "Connecting to qb64.org...\n" + STRING$(10, 219) + STRING$(20, 176) + "\n" ' m$ = "Connecting to qb64.org...\n" + STRING$(10, 219) + STRING$(20, 176) + "\n"
m$ = m$ + "Checking stable version (1/3)" ' m$ = m$ + "Checking stable version (1/3)"
temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "") ' temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "")
CASE 2 ' CASE 2
remoteFile$ = "www.qb64.org/getdevver.php" ' remoteFile$ = "www.qb64.org/getdevver.php"
lookFor$ = "Version$ = " ' lookFor$ = "Version$ = "
m$ = "Connecting to qb64.org...\n" + STRING$(20, 219) + STRING$(10, 176) + "\n" ' m$ = "Connecting to qb64.org...\n" + STRING$(20, 219) + STRING$(10, 176) + "\n"
m$ = m$ + "Checking development version (2/3)" ' m$ = m$ + "Checking development version (2/3)"
temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "") ' temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "")
CASE 3 ' CASE 3
remoteFile$ = "www.qb64.org/devbuilds2.php" ' remoteFile$ = "www.qb64.org/devbuilds2.php"
lookFor$ = "document.getElementById('gitlink').innerHTML = " ' lookFor$ = "document.getElementById('gitlink').innerHTML = "
m$ = "Connecting to qb64.org...\n" + STRING$(30, 219) + "\n" ' m$ = "Connecting to qb64.org...\n" + STRING$(30, 219) + "\n"
m$ = m$ + "Checking development build (3/3)" ' m$ = m$ + "Checking development build (3/3)"
temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "") ' temp$ = ideactivitybox$("setup", "Check for Newer Version", m$, "#Cancel", "")
END SELECT ' END SELECT
DO ' DO
temp$ = ideactivitybox$("update", "", "", "", "") ' temp$ = ideactivitybox$("update", "", "", "", "")
IF LEN(temp$) THEN ' IF LEN(temp$) THEN
'either ESC or click means "cancel" for this dialog in particular ' 'either ESC or click means "cancel" for this dialog in particular
Result$ = Download$("", "", "", 0) ' Result$ = Download$("", "", "", 0)
EXIT SUB ' EXIT SUB
END IF ' END IF
Result$ = Download$(remoteFile$, contents$, lookFor$, 30) ' Result$ = Download$(remoteFile$, contents$, lookFor$, 30)
SELECT CASE CVI(LEFT$(Result$, 2)) ' SELECT CASE CVI(LEFT$(Result$, 2))
CASE 1 'Success ' CASE 1 'Success
found = CVL(MID$(Result$, 3, 4)) ' found = CVL(MID$(Result$, 3, 4))
SELECT CASE i ' SELECT CASE i
CASE 1 ' CASE 1
remoteVersion$ = MID$(contents$, found + LEN(lookFor$) + 1) ' remoteVersion$ = MID$(contents$, found + LEN(lookFor$) + 1)
remoteVersion$ = LEFT$(remoteVersion$, INSTR(remoteVersion$, CHR$(34)) - 1) ' remoteVersion$ = LEFT$(remoteVersion$, INSTR(remoteVersion$, CHR$(34)) - 1)
CASE 2 ' CASE 2
remoteDevVersion$ = MID$(contents$, found + LEN(lookFor$) + 1) ' remoteDevVersion$ = MID$(contents$, found + LEN(lookFor$) + 1)
remoteDevVersion$ = LEFT$(remoteDevVersion$, INSTR(remoteDevVersion$, CHR$(34)) - 1) ' remoteDevVersion$ = LEFT$(remoteDevVersion$, INSTR(remoteDevVersion$, CHR$(34)) - 1)
CASE 3 ' CASE 3
remoteDevBuild$ = MID$(contents$, found + LEN(lookFor$) + 1) ' remoteDevBuild$ = MID$(contents$, found + LEN(lookFor$) + 1)
remoteDevBuild$ = LEFT$(remoteDevBuild$, INSTR(remoteDevBuild$, CHR$(34)) - 1) ' remoteDevBuild$ = LEFT$(remoteDevBuild$, INSTR(remoteDevBuild$, CHR$(34)) - 1)
END SELECT ' END SELECT
EXIT DO ' EXIT DO
CASE 2, 3 'Can't reach server; Timeout ' CASE 2, 3 'Can't reach server; Timeout
EXIT DO ' EXIT DO
END SELECT ' END SELECT
_LIMIT 100 ' _LIMIT 100
LOOP ' LOOP
Result$ = Download$("", "", "", 0) ' Result$ = Download$("", "", "", 0)
NEXT ' NEXT
m$ = "Current version: " + Version$ + " " + DevChannel$ ' m$ = "Current version: " + Version$ + " " + DevChannel$
IF LEN(AutoBuildMsg$) THEN m$ = m$ + ", " + AutoBuildMsg$ ' IF LEN(AutoBuildMsg$) THEN m$ = m$ + ", " + AutoBuildMsg$
m$ = m$ + ".\n" ' m$ = m$ + ".\n"
DIM button$(1 TO 3) ' DIM button$(1 TO 3)
button$(3) = "#Close" ' button$(3) = "#Close"
IF LEN(remoteVersion$) THEN ' IF LEN(remoteVersion$) THEN
button$(1) = "Get #Stable Release" ' button$(1) = "Get #Stable Release"
IF INSTR(remoteVersion$, "Cannot") = 0 THEN ' IF INSTR(remoteVersion$, "Cannot") = 0 THEN
IF remoteVersion$ > Version$ THEN ' IF remoteVersion$ > Version$ THEN
'higher version number in the stable release is newer than current version ' 'higher version number in the stable release is newer than current version
'regardless of this being a dev build ' 'regardless of this being a dev build
m$ = m$ + "\n- A new stable version is available: v" + remoteVersion$ + ";" ' m$ = m$ + "\n- A new stable version is available: v" + remoteVersion$ + ";"
ELSE ' ELSE
IF INSTR(DevChannel$, "Development") = 0 THEN ' IF INSTR(DevChannel$, "Development") = 0 THEN
'if remoteVersion$ is not higher than current and this is not ' 'if remoteVersion$ is not higher than current and this is not
'a dev build, we're all good. ' 'a dev build, we're all good.
m$ = m$ + "\n- You have the latest stable version: v" + Version$ + ";" ' m$ = m$ + "\n- You have the latest stable version: v" + Version$ + ";"
button$(1) = "#OK" ' button$(1) = "#OK"
ELSE ' ELSE
IF remoteVersion$ = Version$ THEN ' IF remoteVersion$ = Version$ THEN
'if this is a dev build and version numbers match, that probably means ' 'if this is a dev build and version numbers match, that probably means
'a stable version based on this dev build was released ' 'a stable version based on this dev build was released
m$ = m$ + "\n- A new stable version is available: v" + remoteVersion$ + ";" ' m$ = m$ + "\n- A new stable version is available: v" + remoteVersion$ + ";"
ELSE ' ELSE
'if remoteVersion$ is not higher than current and this is not ' 'if remoteVersion$ is not higher than current and this is not
'a dev build, we're all good. ' 'a dev build, we're all good.
m$ = m$ + "\n- No new stable version available;" ' m$ = m$ + "\n- No new stable version available;"
button$(1) = "#OK" ' button$(1) = "#OK"
END IF ' END IF
END IF ' END IF
END IF ' END IF
END IF ' END IF
ELSE ' ELSE
m$ = m$ + "\n- Failed to check for updates. Try again later." ' m$ = m$ + "\n- Failed to check for updates. Try again later."
button$(1) = "#OK" ' button$(1) = "#OK"
END IF ' END IF
IF LEN(remoteDevVersion$) THEN ' IF LEN(remoteDevVersion$) THEN
button$(2) = "Get #Dev Build" ' button$(2) = "Get #Dev Build"
IF INSTR(remoteDevVersion$, "error: ") = 0 THEN ' IF INSTR(remoteDevVersion$, "error: ") = 0 THEN
IF INSTR(DevChannel$, "Development") = 0 THEN ' IF INSTR(DevChannel$, "Development") = 0 THEN
'if this is not a dev build, it'll be offered ' 'if this is not a dev build, it'll be offered
m$ = m$ + "\n- Development build available: v" + remoteDevVersion$ ' m$ = m$ + "\n- Development build available: v" + remoteDevVersion$
IF LEN(remoteDevBuild$) THEN m$ = m$ + ", " + remoteDevBuild$ ' IF LEN(remoteDevBuild$) THEN m$ = m$ + ", " + remoteDevBuild$
m$ = m$ + ";" ' m$ = m$ + ";"
ELSE ' ELSE
IF remoteDevVersion$ >= Version$ THEN ' IF remoteDevVersion$ >= Version$ THEN
'this is a dev build and remote version is same or higher ' 'this is a dev build and remote version is same or higher
m$ = m$ + "\n- Latest dev build available: v" + remoteDevVersion$ ' m$ = m$ + "\n- Latest dev build available: v" + remoteDevVersion$
IF LEN(remoteDevBuild$) THEN m$ = m$ + ", " + remoteDevBuild$ ' IF LEN(remoteDevBuild$) THEN m$ = m$ + ", " + remoteDevBuild$
m$ = m$ + ";" ' m$ = m$ + ";"
END IF ' END IF
END IF ' END IF
END IF ' END IF
ELSE ' ELSE
m$ = m$ + "\n- Failed to check for dev builds. Try again later." ' m$ = m$ + "\n- Failed to check for dev builds. Try again later."
button$(2) = "#Close" ' button$(2) = "#Close"
IF button$(1) = "#OK" THEN button$(2) = "" ' IF button$(1) = "#OK" THEN button$(2) = ""
button$(3) = "" ' button$(3) = ""
END IF ' END IF
buttons$ = "" ' buttons$ = ""
FOR i = 1 TO 3 ' FOR i = 1 TO 3
IF LEN(button$(i)) THEN ' IF LEN(button$(i)) THEN
IF LEN(buttons$) THEN buttons$ = buttons$ + ";" ' IF LEN(buttons$) THEN buttons$ = buttons$ + ";"
buttons$ = buttons$ + button$(i) ' buttons$ = buttons$ + button$(i)
END IF ' END IF
NEXT ' NEXT
result = idemessagebox("Check for Newer Version", m$, buttons$) ' result = idemessagebox("Check for Newer Version", m$, buttons$)
IF result = 0 THEN EXIT SUB ' IF result = 0 THEN EXIT SUB
url$ = "" ' url$ = ""
SELECT CASE button$(result) ' SELECT CASE button$(result)
CASE "Get #Dev Build" ' CASE "Get #Dev Build"
url$ = "https://www.qb64.org/portal/development-build/" ' url$ = "https://www.qb64.org/portal/development-build/"
CASE "Get #Stable Release" ' CASE "Get #Stable Release"
url$ = "https://github.com/QB64Team/qb64/releases/latest" ' url$ = "https://github.com/QB64Team/qb64/releases/latest"
END SELECT ' END SELECT
IF LEN(url$) = 0 THEN EXIT SUB ' IF LEN(url$) = 0 THEN EXIT SUB
IF INSTR(_OS$, "WIN") THEN ' IF INSTR(_OS$, "WIN") THEN
SHELL _HIDE _DONTWAIT "start " + url$ ' SHELL _HIDE _DONTWAIT "start " + url$
ELSEIF INSTR(_OS$, "MAC") THEN ' ELSEIF INSTR(_OS$, "MAC") THEN
SHELL _HIDE _DONTWAIT "open " + url$ ' SHELL _HIDE _DONTWAIT "open " + url$
ELSE ' ELSE
SHELL _HIDE _DONTWAIT "xdg-open " + url$ ' SHELL _HIDE _DONTWAIT "xdg-open " + url$
END IF ' END IF
END SUB 'END SUB
FUNCTION ideactivitybox$ (action$, titlestr$, messagestr$, buttons$, extras$) STATIC FUNCTION ideactivitybox$ (action$, titlestr$, messagestr$, buttons$, extras$) STATIC