B4J Question Is there any way to include a ContextMenu on a B4XTable?

Sub B4XTable1_CellLongClicked (ColumnId As String, RowId As Long)
   Log("CellLongClicked: " & B4XTable1.GetRow(RowId).Get(ColumnId))
   Dim col As B4XTableColumn = B4XTable1.GetColumn(ColumnId)
   Dim i As Int = B4XTable1.VisibleRowIds.IndexOf(RowId)
   Dim cell As B4XView = col.CellsLayouts.Get(i)
   Dim jo As JavaObject = cm '<--------------------------- global ContextMenu object
   Dim x As Double = robot.RunMethod("getMouseX",Null)' <----- global JavaObject object
   Dim y As Double = robot.RunMethod("getMouseY",Null)
   jo.RunMethod("show", Array(cell, x, y))
End Sub

robot = robot.InitializeStatic("com.sun.glass.ui.Application").RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)