B4J Question Add a context menu on tabPane

Sub nouvelleMatiere
    Main.TabPaneMatiere.LoadLayout("FormMatiere","Nouvelle matiere")
    mapMatiere.Put(nbMatiere+1,Main.TabPaneChapitre)
End Sub
Sub nbMatiere
    Dim i As Int
    If mapMatiere.IsInitialized=False Then
        mapMatiere.Initialize
    End If
       
    i = mapMatiere.Size
    Log("il y a : " & i & " matières")
    Return i
End Sub

Sub MatiereSelectionne As TabPane   
    Dim l As List = Main.TabPaneMatiere.Tabs
    Dim num As Byte = Main.TabPaneMatiere.SelectedIndex
    Dim t As TabPage = l.Get(num)
    Dim tt As TabPane = t.Content.GetNode(0)
    
    Return tt
End Sub

{Text: "Nouveau Cour", Shortcut: {Key: "Ctrl + F7"}},

    Dim r As Reflector
   r.Target = TabPane1
   r.AddEventFilter("TabPane1", "javafx.scene.input.ContextMenuEvent.CONTEXT_MENU_REQUESTED")


Sub TabPane1_Filter (EventData As Event)
   Dim ContextMenuEvent As JavaObject = EventData
   Dim Target As JavaObject = ContextMenuEvent.RunMethod("getTarget", Null)
   If Target Is Node Then
       Dim n As Node = Target
       Do While n.IsInitialized
           If GetType(n) = "javafx.scene.control.skin.TabPaneSkin$TabHeaderSkin" Then Return
           n = n.Parent
       Loop
   End If
   EventData.Consume
End Sub