Context Menu For Tree Table

Here is a self-contained example with two procedures. The first one creates a tree table with two items in it and an associated context menu. The second procedure "TestCreateMyTreeTable()" calls the first to create a tree table and then creates a form and displays it. You will see that if you choose any of the items and right-click then the context menu will come up. However if you right-click anywhere on the table without choosing an item then the context menu won't show up. I'm not sure why this is happening.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;procedure that creates the tree table
procedure( CreateMyTreeTable(dimensions)
  let( (table_headers)

    table_headers = list(list("C1" 200 'center) list("C2" 200 'center)
                                                        list("C3" 200 'center))
    ;;create the tree
    my_tree = hiCreateTree('my_tree)
   
    ;;get the handle of the field
    my_tree_table = hiCreateTreeTable(
      ?name 'my_tree_table
      ?title ""
      ?choice my_tree
      ?headers table_headers
      ?titleAlignment 'left
    )
  
    item_1 = hiCreateTreeItem('item_1 list("E1" "E2" "E3"))
    item_2 = hiCreateTreeItem('item_2 list("F1" "F2" "F3"))
    hiTreeAppendItem(my_tree item_1)
    hiTreeAppendItem(my_tree item_2)
   
    ;;context menu item
    context_item = hiCreateMenuItem(?name 'context_item
                                    ?itemText "An Item"
                                    ?callback "printf(\"hello\n\")")

    context_menu = hiCreateMenu('context_menu "" list(context_item))
   
    my_tree_table->hiContextMenu = context_menu  

    my_tree_table
  );let
);procedure

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests

procedure( TestCreateMyTreeTable()
  let( (origin dimensions prompt_height test_field test_field_2D
                                                               form_dimensions)
   
    ;;create the tree table 
    origin = 10:70
    dimensions = 500:500
    prompt_height = 20
    test_field = CreateMyTreeTable(dimensions)
    test_field_2D = list(test_field origin dimensions prompt_height)  

    ;;create the form
    form_dimensions = 600:600
    ;create a dummy field the form
    tree_test_form = hiCreateAppForm(
                      ?name 'tree_test_form
                      ?formTitle "test form"
                      ?callback "printf(\"Test Done!\n\")"
                      ?fields list(test_field_2D)
                      ?dontBlock t
                      ?initialSize form_dimensions
                      ?help nil )

    hiDisplayForm(tree_test_form)
    tree_test_form
  );let
);procedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


 

Here is a self-contained example with two procedures. The first one creates a tree table with two items in it and an associated context menu. The second procedure "TestCreateMyTreeTable()" calls the first to create a tree table and then creates a form and displays it. You will see that if you choose any of the items and right-click then the context menu will come up. However if you right-click anywhere on the table without choosing an item then the context menu won't show up. I'm not sure why this is happening.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;procedure that creates the tree table
procedure( CreateMyTreeTable(dimensions)
  let( (table_headers)

    table_headers = list(list("C1" 200 'center) list("C2" 200 'center)
                                                        list("C3" 200 'center))
    ;;create the tree
    my_tree = hiCreateTree('my_tree)
   
    ;;get the handle of the field
    my_tree_table = hiCreateTreeTable(
      ?name 'my_tree_table
      ?title ""
      ?choice my_tree
      ?headers table_headers
      ?titleAlignment 'left
    )
  
    item_1 = hiCreateTreeItem('item_1 list("E1" "E2" "E3"))
    item_2 = hiCreateTreeItem('item_2 list("F1" "F2" "F3"))
    hiTreeAppendItem(my_tree item_1)
    hiTreeAppendItem(my_tree item_2)
   
    ;;context menu item
    context_item = hiCreateMenuItem(?name 'context_item
                                    ?itemText "An Item"
                                    ?callback "printf(\"hello\n\")")

    context_menu = hiCreateMenu('context_menu "" list(context_item))
   
    my_tree_table->hiContextMenu = context_menu  

    my_tree_table
  );let
);procedure

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tests

procedure( TestCreateMyTreeTable()
  let( (origin dimensions prompt_height test_field test_field_2D
                                                               form_dimensions)
   
    ;;create the tree table 
    origin = 10:70
    dimensions = 500:500
    prompt_height = 20
    test_field = CreateMyTreeTable(dimensions)
    test_field_2D = list(test_field origin dimensions prompt_height)  

    ;;create the form
    form_dimensions = 600:600
    ;create a dummy field the form
    tree_test_form = hiCreateAppForm(
                      ?name 'tree_test_form
                      ?formTitle "test form"
                      ?callback "printf(\"Test Done!\n\")"
                      ?fields list(test_field_2D)
                      ?dontBlock t
                      ?initialSize form_dimensions
                      ?help nil )

    hiDisplayForm(tree_test_form)
    tree_test_form
  );let
);procedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;