Event.COMPLETE doesn't fire...

class MNet
{
  public function HttpGet( url:String, timeoutConnection:int ):void
  {
    var request:URLRequest = new URLRequest();
    request.url = url;
    request.method = URLRequestMethod.GET;
    var loader:URLLoader = new URLLoader();
    loader.dataFormat = URLLoaderDataFormat.TEXT;
    loader.addEventListener( Event.OPEN,             onConnectionEstablished );
    loader.addEventListener( ProgressEvent.PROGRESS, onRequestProcessing );
    loader.addEventListener( Event.COMPLETE,         onCompleted );
    loader.addEventListener( IOErrorEvent.IO_ERROR,  onIOError );
    try
    {
      loader.load( request );
    }
    catch( error:Error )
    {
      trace( "Unable to load URL: " + error );
    }
    print(url);
  }

  public function onConnectionEstablished():void
  {
    print("onConnectionEstablished");
  }

  public function onRequestReceived():void
  {
    print("onRequestReceived");
  }

  public function onRequestProcessing():void
  {
    print("onRequestProcessing");
  }

  public function onCompleted( e:Event ):void
  {
    print("onCompleted");
    onRequestComplete( e.target.data );
  }

  public function onIOError():void
  {
    print("onIOError");
  }

  public function onRequestComplete( response:String ):void
  {
    print("onRequestComplete");
  }
}

Strict

Extern

Class MNet = "MNet"
  Method HttpGet:Void( url:String, timeoutConnection:Int = 5000 )
  Method onConnectionEstablished:Void() Abstract
  Method onRequestProcessing:Void() Abstract
  Method onIOError:Void() Abstract
  Method onRequestComplete:Void( response:String ) Abstract
  Method onRequestReceived:Void() Abstract
End Class

Public

Class AsyncHttpGet Extends MNet
  Method New()
  End Method

  Method onConnectionEstablished:Void()
    Print "Connection established"
  End Method
  
  Method onRequestProcessing:Void()
    Print "Processing request"
  End Method
  
  Method onIOError:Void()
    Print "Error"
  End Method

  Method onRequestComplete:Void( response:String )
    Print "Request complete"
  End Method	

  Method onRequestReceived:Void()
    Print "Request received"
  End Method
End Class

Strict

Import mojo
Import mnet
Global testApp:HttpGetTest

Class MyHttpGet Extends AsyncHttpGet
  Field result:String

  Method onRequestComplete:Void( response:String )
    Print "R: " + response
    Self.result = response
  End Method
  
  Method getResult:String()
    Return result
  End Method
End Class

Function Main:Int()
  testApp = New HttpGetTest()
  Return 0
End Function

Class HttpGetTest Extends App
  Field myhttp:MyHttpGet

  Method OnCreate:Int()
    SetUpdateRate(30)
    myhttp = New MyHttpGet()
    myhttp.HttpGet( "http://www.hexbattles.com/test/test.php" )
    Return 0
  End Method

  Method OnUpdate:Int()
    Return 0
  End Method
  
  Method OnSuspend:Int()
    Return 0
  End Method
  
  Method OnResume:Int()
    Return 0
  End Method

  Method OnRender:Int()
    Cls
    DrawText( "Result: " + myhttp.getResult(), 10, 10 )
    Return 0
  End Method

End Class