QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00
Code Issues Releases Wiki Activity

Prevents update errors when the process is interrupted.

Browse source
This commit is contained in:
FellippeHeitor 2018-11-08 16:47:42 -02:00
parent f948874064
commit a3e8eb93e8
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
InForm/UiEditor.bas
View file

@ -1288,8 +1288,8 @@ SUB __UI_BeforeUpdateDisplay
STATIC serverVersion$, isBeta$, serverBeta%% STATIC serverVersion$, isBeta$, serverBeta%%
STATIC updateDescription$ STATIC updateDescription$
localVersionNumber! = VAL(ReadSetting("InForm/InFormVersion.bas", "", "CONST __UI_VersionNumber")) localVersionNumber! = __UI_VersionNumber
localVersionIsBeta%% = ReadSetting("InForm/InFormVersion.bas", "", "CONST __UI_VersionIsBeta") = "True" localVersionIsBeta%% = __UI_VersionIsBeta
serverVersion$ = ReadSetting("InForm/InFormUpdate.ini", "", "version") serverVersion$ = ReadSetting("InForm/InFormUpdate.ini", "", "version")
isBeta$ = ReadSetting("InForm/InFormUpdate.ini", "", "beta") isBeta$ = ReadSetting("InForm/InFormUpdate.ini", "", "beta")

6
InForm/updater/InFormUpdater.bas
View file

@ -67,9 +67,9 @@ SUB __UI_BeforeUpdateDisplay STATIC
END SELECT END SELECT
CASE 2 'compare with current version CASE 2 'compare with current version
IF NextEvent THEN NextEvent = False: Report "Parsing update script..." IF NextEvent THEN NextEvent = False: Report "Parsing update script..."
localVersion$ = ReadSetting("InForm/InFormVersion.bas", "", "CONST __UI_Version") localVersion$ = __UI_Version
localVersionNumber! = VAL(ReadSetting("InForm/InFormVersion.bas", "", "CONST __UI_VersionNumber")) localVersionNumber! = __UI_VersionNumber
localVersionisBeta%% = ReadSetting("InForm/InFormVersion.bas", "", "CONST __UI_VersionIsBeta") = "True" localVersionisBeta%% = __UI_VersionIsBeta
IF localVersionisBeta%% THEN localBeta$ = " Beta version " ELSE localBeta$ = " " IF localVersionisBeta%% THEN localBeta$ = " Beta version " ELSE localBeta$ = " "
Report "Local version:" + localBeta$ + LTRIM$(STR$(localVersionNumber!)) Report "Local version:" + localBeta$ + LTRIM$(STR$(localVersionNumber!))