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

Restructure.

Browse source
This commit is contained in:
FellippeHeitor 2016-12-18 10:01:34 -02:00
parent a43283f897
commit e548322aaf
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
InForm/UiEditor.bas
View file

@ -1106,12 +1106,12 @@ SUB __UI_OnLoad
$IF WIN THEN
IF _FILEEXISTS("UiEditorPreview.exe") = 0 THEN
IF _FILEEXISTS(".\InForm\source\UiEditorPreview.bas") = 0 THEN
IF _FILEEXISTS(".\InForm\UiEditorPreview.bas") = 0 THEN
GOTO UiEditorPreviewNotFound
ELSE
b$ = "Compiling Preview component..."
GOSUB ShowMessage
SHELL "qb64.exe -x .\InForm\source\UiEditorPreview.bas -o .\UiEditorPreview.exe"
SHELL "qb64.exe -x .\InForm\UiEditorPreview.bas -o .\UiEditorPreview.exe"
IF _FILEEXISTS("UiEditorPreview.exe") = 0 THEN GOTO UiEditorPreviewNotFound
END IF
END IF
@ -1120,12 +1120,12 @@ SUB __UI_OnLoad
SHELL _DONTWAIT "UiEditorPreview.exe"
$ELSE
IF _FILEEXISTS("UiEditorPreview") = 0 THEN
IF _FILEEXISTS("UiEditorPreview.bas") = 0 THEN
IF _FILEEXISTS("./InForm/UiEditorPreview.bas") = 0 THEN
GOTO UiEditorPreviewNotFound
ELSE
b$ = "Compiling Preview component..."
GOSUB ShowMessage
SHELL "./qb64 -x UiEditorPreview.bas"
SHELL "./qb64 -x ./InForm/UiEditorPreview.bas -o ./UiEditorPreview"
IF _FILEEXISTS("UiEditorPreview") = 0 THEN GOTO UiEditorPreviewNotFound
END IF
END IF