Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ListSelectionView1 As ListSelectionView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
ListSelectionView1.SourceItems.Clear
ListSelectionView1.TargetItems.Clear
Dim LSVJO As JavaObject = ListSelectionView1
Dim TargetItems As JavaObject = LSVJO.RunMethod("getTargetItems",Null)
Dim Listener As Object = TargetItems.CreateEvent("javafx.beans.InvalidationListener","TargetChanged","")
TargetItems.RunMethod("addListener",Array(Listener))
ListSelectionView1.SourceItems.AddAll(Array As String(1,2,3,4,5,6,7))
End Sub
Sub TargetChanged_Event(MethodName As String, Args() As Object) As Object
Dim L As List = Args(0)
For i = 0 To L.Size - 1
Log(L.get(i))
Next
End Sub
