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

Trigger Updater compilation if not found at UiEditor start.

Browse source
This commit is contained in:
FellippeHeitor 2019-11-10 18:12:38 -02:00
parent 0d7750e632
commit 9cf34c84e4
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
InForm/UiEditor.bas
View file

@ -2696,14 +2696,30 @@ SUB __UI_OnLoad
ShowFontList = True
END IF
DIM TriggerUpdaterRecompile AS _BYTE
TriggerUpdaterRecompile = False
value$ = ReadSetting("InForm/InForm.ini", "InForm Settings", "Recompile updater")
IF value$ = "True" THEN
TriggerUpdaterRecompile = True
WriteSetting "InForm/InForm.ini", "InForm Settings", "Recompile updater", "False"
ELSE
$IF WIN THEN
IF _FILEEXISTS("InForm/updater/InFormUpdater.exe") = False THEN
TriggerUpdaterRecompile = True
END IF
$ELSE
IF _FILEEXISTS("InForm/updater/InFormUpdater") = False THEN
TriggerUpdaterRecompile = True
END IF
$END IF
END IF
IF TriggerUpdaterRecompile THEN
$IF WIN THEN
SHELL _HIDE _DONTWAIT "qb64.exe -x InForm/updater/InFormUpdater.bas -o InForm/updater/InFormUpdater.exe"
$ELSE
SHELL _HIDE _DONTWAIT "./qb64 -x InForm/updater/InFormUpdater.bas -o InForm/updater/InFormUpdater"
$END IF
WriteSetting "InForm/InForm.ini", "InForm Settings", "Recompile updater", "False"
END IF
$IF WIN THEN