B4J Code Snippet Consistent Tooltips

Sub SetAllToolTipFonts(frm As Form, F As Font) As Int

    Dim numDone As Int = 0

    For Each n As Node In frm.RootPane.GetAllViewsRecursive
        Try
            If SetToolTipFont(n, F) Then numDone = numDone + 1
        Catch
            Log("SetAllToolTipFonts: " & LastException)
        End Try
    Next

    Return numDone

End Sub

Sub SetToolTipFont(N As Control, F As Font) As Boolean

    Try
        Dim JoN As JavaObject = N
        JoN.RunMethodJO("getTooltip",Null).RunMethod("setFont",Array (F))
        Return True
    Catch
        Return False
    End Try

End Sub

.tooltip {
    -fx-show-delay: 150ms;
    -fx-show-duration: 5000ms;
    -fx-hide-delay: 200ms;
    -fx-background-radius: 2 2 2 2;
    -fx-background-color: green;
    -fx-text-fill: white;
    -fx-font-size: 25px;
    -fx-font-family: 'monospace';
    -fx-font-style: oblique;
}