Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ListView1 As ListView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("1")
MainForm.Show
For Each s As String In Array("item 1", "item 2", "item 3")
Dim lbl As Label
lbl.Initialize("lbl")
lbl.Text = s
ListView1.Items.Add(lbl)
Next
End Sub
Private Sub lbl_MouseClicked (EventData As MouseEvent)
Dim lbl As Label = Sender
Log($"Label: ${lbl.Text} was clicked"$)
End Sub