Sub SetTableHeaderWrap(Table As JavaObject, PrefHeight As Int)
Dim HeaderRow As Pane = Table.RunMethod("lookup",Array("TableHeaderRow"))
For Each N As JavaObject In HeaderRow.GetAllViewsRecursive
If N Is Label Then
Dim NL As Label = N
If PrefHeight <> -1 Then NL.PrefHeight = PrefHeight
'Seems to lose the text centering
CSSUtils.SetStyleProperty(NL,"-fx-text-alignment","center")
N.RunMethod("setWrapText",Array(True))
End If
Next
End Sub