Don't call ipinfo.io at start

i-nex · Aug 1, 2014 · cad7dc9 · cad7dc9
1 parent aff4324
commit cad7dc9
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 5 deletions.
diff --git a/I-Nex/i-nex/.src/Finfosys.class b/I-Nex/i-nex/.src/Finfosys.class
@@ -250,8 +250,6 @@ Public Sub Form_Open()
       Object.Call(FGraphic, "_check")
   Logs("Check sound cards", Logger.Info)
       Object.Call(Asound_Drives, "_inits")
-  Logs("Call To ipinfo.io for network settings", Logger.Info)
-      Object.Call(Network, "IP_INFO")
   Logs("Check for default display manager", Logger.Info)
   If default_display_manager = True Then
      Label4.Visible = True
@@ -1157,3 +1155,9 @@ Public Sub Button18_Click()
  FSystemInfo.Show
 
 End
+
+Public Sub Button19_Click()
+
+ Network.IP_INFO()
+
+End
diff --git a/I-Nex/i-nex/.src/Finfosys.form b/I-Nex/i-nex/.src/Finfosys.form
@@ -1834,7 +1834,7 @@
       }
     }
     { Button9 Button
-      Move(273,448,189,28)
+      Move(273,455,189,21)
       Font = Font["Bold,8"]
       Text = ("Show Receive and Transmit")
     }
@@ -1972,7 +1972,7 @@
       Border = Border.Raised
     }
     { Frame1 Frame
-      Move(7,259,455,189)
+      Move(7,259,455,196)
       Text = ("ipinfo.io")
       { Label238 Label
         Move(98,147,336,21)
@@ -2069,6 +2069,11 @@
         Move(413,126,21,21)
         Picture = Picture["AppIcons/applications-internet.png"]
       }
+      { Button19 Button
+        Move(21,168,112,21)
+        Font = Font["8"]
+        Text = ("Call to ipinfo.io")
+      }
     }
     Index = 9
     Text = "Battery"

diff --git a/I-Nex/i-nex/.src/Network.module b/I-Nex/i-nex/.src/Network.module
@@ -67,8 +67,10 @@ End
 Public Function IP_INFO()
  Dim IPINFOIO_BUF As String
  Dim IPINFOIO_JSON As Collection
+ Inc Application.Busy
  Try Exec ["curl", "ipinfo.io"] To IPINFOIO_BUF
  Try IPINFOIO_JSON = JSON.Decode(IPINFOIO_BUF)
+ Dec Application.Busy
  'https://www.google.com/maps/search/54.6052,18.2355
  Try Finfosys.Label93.Text = IPINFOIO_JSON["ip"]
  Try Finfosys.Label233.Text = IPINFOIO_JSON["hostname"]

diff --git a/I-Nex/i-nex/.startup b/I-Nex/i-nex/.startup
@@ -2,7 +2,7 @@ MStart
 I-Nex
 0
 0
-7.2.1
+7.4.0
 
 gb.image
 gb.qt4