Strict

Import mojo
Import jnet

Class myApp extends App
   Field http:XMLHttpRequest
   Field response:String
   
   Method OnCreate:Int()
      response = ""
      http = New XMLHttpRequest()
      http.open("http://sedm.de/pub/ip.php")
      http.send()
      
      SetUpdateRate(30)
      
      Return 0
   End
   
   Method OnUpdate:Int()   
      response = http.responseText()      
      Return 0
   End
   
   Method OnRender:Int()
      Cls
      DrawText("sedm.de says: " + response, 10, 10)
      Return 0
   End
End

Function Main:Int()
   New myApp
   Return 0
End

Method open:void(url:String, type:String = "GET", async:Bool = true, userName:String = "", password:String = "")
Method send:Void(body:String = "")
Method state:String()
Method status:String()
Method statusText:String()
Method responseXML:String()
Method responseText:String()
Method abort:Void()
Method getResponseHeader:String(header:String)
Method getAllResponseHeaders:String()
Method setRequestHeader:Void(header:String, value:String)