Gambas Process Event

' Gambas class file

PUBLIC SUB _new()

    Descargar()
END

PRIVATE SUB Descargar()
  DIM hProceso AS Process

  hProceso = EXEC ["wget", "www.google.com", "-O-", "--directory-prefix=" & User.Home] FOR READ

END


PUBLIC SUB Process_Kill()

  PRINT "Finished"

END

PUBLIC SUB Process_Read()

  DIM sString AS String

  READ #LAST, sString, -256

  PRINT sString

END