From 581d3bb7f56c7557fb5f2c0d6619b3938f8b8f00 Mon Sep 17 00:00:00 2001
From: April Ayres-Griffiths <aag6581@gmail.com>
Date: Thu, 18 Apr 2019 18:30:57 +1000
Subject: [PATCH] remove heartbeat

---
 backup/main.pas |  5 +++++
 main.pas        | 14 +++++++-------
 2 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/backup/main.pas b/backup/main.pas
index 13a3d81..281435d 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -3175,7 +3175,12 @@ procedure TGUIForm.FSTimerTimer(Sender: TObject);
 begin
   isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
   if not hidden then
+  begin
+     Caption := 'microM8 GUI';
      SimpleGet(baseUrl+'/api/control/system/heartbeat');
+  end
+  else
+     Caption := 'microM8 GUI (hide)';
 end;
 
 procedure TGUIForm.InputClick(Sender: TObject);
diff --git a/main.pas b/main.pas
index 281435d..278184c 100644
--- a/main.pas
+++ b/main.pas
@@ -3174,13 +3174,13 @@ end;
 procedure TGUIForm.FSTimerTimer(Sender: TObject);
 begin
   isFS := (GetConfig( 'video/current.fullscreen' ) = '1');
-  if not hidden then
-  begin
-     Caption := 'microM8 GUI';
-     SimpleGet(baseUrl+'/api/control/system/heartbeat');
-  end
-  else
-     Caption := 'microM8 GUI (hide)';
+  //if not hidden then
+  //begin
+  //   Caption := 'microM8 GUI';
+  //   SimpleGet(baseUrl+'/api/control/system/heartbeat');
+  //end
+  //else
+  //   Caption := 'microM8 GUI (hide)';
 end;
 
 procedure TGUIForm.InputClick(Sender: TObject);