Hierarchical Tree Items question, in Oracle9i forms builder ^^;

Question

Hi,I'm kind of new to using the Hierachical Tree item in Oracle9i Forms builder. so anyway,in the book it was explaining how it's done clearly,but, what I want to do using that item is kind of different;
in the book it has the way of making it like a navigator for the items/fields/tables in the database,either by creating a view for those fields by using Select Statements or using the whole table itself.
however,what I'm trying to do is to have that tree list the names of Forms I have already created and probably the list of Reports I got,so it would sort of like a Menu and I could add a trigger to open the form/report once an item in the tree is double clicked on
here's an example of what I'm talking about :
http://i7.photobucket.com/albums/y264/_Crzy_Chck_/Htree.jpg
sorry the screen shot isn't the best ^^;
that's from a company my friend works at,they have that tree as a menu for their forms and reports,once u double click on a form name or a report,it opens up ^^;
I tried google/yahoo,I got the same info I found on the book.

Answer 1

Or you may want to check out this code:
   PROCEDURE next_menu(
      menu_in                                        IN OUT   NUMBER
    , master_menu_in                                 IN       NUMBER
    , master_name_in                                 IN       VARCHAR2
    , context_menu_in                                IN       VARCHAR2
    , node_in                                        IN       ftree.node
    , no_rows_out                                    IN OUT   BOOLEAN )
   IS
      CURSOR c_menu(
         b_master_menu                                           NUMBER
       , b_prev_menu                                             NUMBER
       , b_context_menu                                          gba_tpivmnu.kmenu%TYPE )
      IS
         SELECT   p.ofnk MASTER
                , m.ofnk
                , m.napp || m.kfnk_sub napplus
                , m.rid
                , m.rid_mas
             FROM gba_tpivmnu p                                             -- parent menu
                , gba_tpivmnu m                                                    -- menu
            WHERE m.rid_mas = p.rid
              AND m.kmenu = b_context_menu
              AND (
                      m.rid_mas = b_master_menu
                   OR (    b_master_menu IS NULL
                       AND m.rid_mas IS NULL ) )
              AND (   m.rid > b_prev_menu
                   OR b_prev_menu IS NULL )
         ORDER BY m.rid;
      r_menu                                       c_menu%ROWTYPE;
      l_prev_menu                                  tmenu.kode%TYPE;
      l_teller                                     PLS_INTEGER := 0;
      new_node                                     ftree.node;
      this_node                                    ftree.node;
      tree_itm                                     item := FIND_ITEM( tree_item );
      l_top_node_name                              VARCHAR2( 512 );
   BEGIN
      IF master_menu_in IS NOT NULL
      THEN
         IF node_in IS NULL
         THEN
            /* eerste keer, dus dit wordt de bovenste node */
            l_top_node_name := master_name_in;
            glob.set_current_menu( context_menu_in );
            new_node :=
               ftree.ADD_TREE_NODE(
                  tree_itm
                , ftree.root_node
                , ftree.parent_offset
                , ftree.last_child
                , ftree.expanded_node
                , master_name_in
                , 'favorites'
                , master_menu_in );
         END IF;
         LOOP
            r_menu.rid := NULL;
            OPEN c_menu(
                   master_menu_in
                 , l_prev_menu
                 , context_menu_in );
            FETCH c_menu
             INTO r_menu;
            CLOSE c_menu;
            l_teller := l_teller + 1;
            l_prev_menu := r_menu.rid;
            EXIT WHEN r_menu.rid IS NULL;
            this_node :=
               ftree.ADD_TREE_NODE(
                  tree_itm
                , NVL( node_in, new_node )
                , ftree.parent_offset
                , ftree.last_child
                , ftree.expanded_node
                , r_menu.ofnk
                , NULL
                , r_menu.napplus );
            next_menu(
               menu_in                                 => menu_in
             , master_menu_in                          => r_menu.rid
             , master_name_in                          => r_menu.ofnk
             , context_menu_in                         => context_menu_in
             , node_in                                 => this_node
             , no_rows_out                             => no_rows_out );
         END LOOP;
         IF l_teller = 0
         THEN
            no_rows_out := TRUE;
         END IF;
         IF l_top_node_name IS NOT NULL
         THEN
            set_tree_item_top_node( l_top_node_name );
         END IF;
      END IF;
   END next_menu;tree_item contains the name of the tree item you are using. the select statement is based on a table that is like EMP, where one EMP van be another EMP's manager. In this table a menu-option can be another menu-option's master.
this is a recursive function that keeps calling itself untill the query finds no more record.
Good Luck!