Apple-2-Tools
/
microm8-gui
mirror of https://github.com/paleotronic/microm8-gui.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

heartbeat support

This commit is contained in:
April Ayres-Griffiths 2019-04-18 17:40:07 +10:00
parent 41946ba7e5
commit b15be38134
5 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
backup/main.pas
View File

@ -3174,6 +3174,8 @@ end;
procedure TGUIForm.FSTimerTimer(Sender: TObject);
begin
isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
SimpleGet(baseUrl+'/api/control/system/heartbeat');
end;
procedure TGUIForm.InputClick(Sender: TObject);
@ -3288,11 +3290,8 @@ begin
exit;
if MicroM8Process.Active then
exit;
{ okay not running and we want to start it }
MicroM8Process.Active := true;
Sleep(1000);
lx := -1;
ReposWindow;
{ okay not running and we want to quit }
Application.Terminate;
end;
end.

BIN
lib/x86_64-win64/main.o
View File

Binary file not shown.

BIN
lib/x86_64-win64/main.ppu
View File

Binary file not shown.

BIN
lib/x86_64-win64/poc.obj
View File

Binary file not shown.

2
main.pas
View File

@ -3174,6 +3174,8 @@ end;
procedure TGUIForm.FSTimerTimer(Sender: TObject);
begin
isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
if not hidden then
SimpleGet(baseUrl+'/api/control/system/heartbeat');
end;
procedure TGUIForm.InputClick(Sender: TObject);