Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private TextArea1 As TextArea
Private fc As FileChooser
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
fc.Initialize
Dim f As String = fc.ShowOpen(MainForm)
If f <> "" Then
TextArea1.Text = File.ReadString(f, "")
End If
End Sub