B4J Question css with treeview

Treeview1.Style= "-fx-background-color: #00ff00; -fx-text-fill: #333333; -fx-Font-size: 12px; "

.tree-view, .tree-cell {
    -fx-background-color:#ff0000;
  -fx-text-fill:#ffffff ;
}
.tree-cell:expanded, .tree-cell:sub-tree-item {
  -fx-background-color: #404040 ;
}
.tree-cell:selected {
  -fx-font-weight: bold ;
}
.tree-cell {
  -fx-padding: 0.75em 0em 0.75em 0em ;
}
.tree-cell:sub-tree-item {
  -fx-padding: 0.25em ;
}

Sub AppStart (Form1 As Form, Args() As String)
...
   MainForm.Stylesheets.Add(File.GetUri(File.DirAssets, "project.css"))   
...
End Sub

'Set the cell background color of all treeview items (cells)
'Example: setTreeCellsColors(TreeView1, fx.colors.yellow)
Sub setTreeCellsColors(tv As TreeView, clr As Paint)
   Dim joTV As JavaObject = tv
   'Get all treecells
   Dim joTCL As JavaObject = joTV.RunMethodJo("lookupAll", Array(".tree-cell"))
   'Add those to an arraylist
   Dim joAL As JavaObject
   joAL.InitializeNewInstance("java.util.ArrayList", Array(joTCL))
   'Create a B4J list from the java arraylist
   Dim l As List = joAL
   'Set the color of the treecells
   For i = 0 To l.size - 1
     CSSUtils.SetBackgroundColor(l.Get(i), clr)
     ' CSSUtils.SetStyleProperty(l.Get(i), "-fx-text-fill", "red")  ' enhance if text color needs to change
   Next
End Sub

[ATTACH=full]54936[/ATTACH]

'Set the background color of a treeview cell depending its value.
'Note: Ensure to expand all items and use subdelayed after treeview been build
'Example: CallSubDelayed3(Me, "SetTreeCellsBackgroundColor2", TreeView1, 20)
Sub SetTreeCellsBackgroundColor2(tv As TreeView, threshold As Int)   'ignore
   Dim joTV As JavaObject = tv
   'Get all treecells
   Dim joTCL As JavaObject = joTV.RunMethodJo("lookupAll", Array(".tree-cell"))
   'Add those to an arraylist
   Dim joAL As JavaObject
   joAL.InitializeNewInstance("java.util.ArrayList", Array(joTCL))
   'Create a List
   Dim l As List = joAL
   'Set the color of the treecells
   For i = 0 To l.size - 1
     'Get the treecell
     Dim joIP As JavaObject = l.Get(i)
     'Get the treeitem belonging to the treecell
     Dim ti As TreeItem = joIP.RunMethod("getTreeItem", Null)
     'Check if treeitem is initialized and a number - f.e. if root is visible then not a number
     If ti.IsInitialized And IsNumber(ti.Text) Then
       'Set the cell color depending threshold
       If ti.Text < threshold Then
         CSSUtils.SetBackgroundColor(l.Get(i), fx.Colors.green)
       Else
         CSSUtils.SetBackgroundColor(l.Get(i), fx.Colors.red)
       End If
     End If
   Next
End Sub