#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim shl As Shell
Private taInfo As TextArea
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
End Sub
Sub btnClone_MouseClicked (EventData As MouseEvent)
Log("clicked")
shl.Initialize("Clone", "java.exe" , Array As String("-jar", "ShellTesting.jar"))
shl.Run(-1)
End Sub
Sub clone_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success AND ExitCode = 0 Then
Log("Success")
Else
Log("Error: " & StdErr)
Log("stdout: " & StdOut)
taInfo.Text = "StdOut: " & StdOut
taInfo.Text = "Error: " & StdErr
End If
End Sub