....
Dim treev As TreeView
treev.Initialize("treev")
For a = 1 To 5
Dim cbi As JavaObject
Dim cb As CheckBox
cb.Initialize("")
cbi.InitializeNewInstance("javafx.scene.control.TreeItem",Array("parent "&a,cb))
treev.Root.Children.Add(cbi)
For b = 1 To 5
Dim ti As TreeItem
ti.Initialize("","child "&b)
asTI(cbi).Children.Add(ti)
Next
Next
MainForm.RootPane.AddNode(treev,0,0,-1,-1)
End Sub
Sub asTI(o As TreeItem) As TreeItem
Return o
End Sub
Sub asJO(o As JavaObject)As JavaObject
Return o
End Sub
Sub treev_SelectedItemChanged(SelectedItem As TreeItem)
Log(SelectedItem)
Try
Log("checkbox is "&asJO(SelectedItem).RunMethodJO("getGraphic",Null).RunMethod("isSelected",Null))
Catch
End Try
End Sub