Here is a sample menu structure to create:

Daily
-- Transactions
----- Enter Transactions
----- Print Journal
Monthly
-- Postings
----- Balancing Report
----- Post Transactions

To create this, enter the following in pre-display:
*                                                                         
*        Restore and set defaults for creating CHILD widget records       
*                                                                         
   RESTORE  --- WIDGET                     DEFAULT RECORD                    
   SET      --- WIDGET PARENT TYPE         =      CHILD                      
   SET      --- WIDGET POSITION ROW        =      0                          
   SET      --- WIDGET POSITION COLUMN     =                                 
*                                                                         
*        Create the "Daily" top level pulldown                            
*                                                                         
   SET      --- WIDGET LABEL               =      Daily                      
   SET      --- WIDGET GROUP NAME          =                                 
   SET      --- WIDGET OPTION              =      USER 1                     
   SET      --- WIDGET SHORTCUT            =      D                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*        Create the "Transactions" pullout menu and attach to "Daily"     
*                                                                         
   SET      --- WIDGET LABEL               =      Transactions               
   SET      --- WIDGET GROUP NAME          =      Daily                      
   SET      --- WIDGET OPTION              =      USER 2                     
   SET      --- WIDGET SHORTCUT            =      T                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*     Create the "Enter Transactions" item and attach to "Transacti.." 
*                                                                         
   SET      --- WIDGET LABEL               =      Enter Transactions         
   SET      --- WIDGET GROUP NAME          =      Transactions               
   SET      --- WIDGET OPTION              =      USER 3                     
   SET      --- WIDGET SHORTCUT            =      E                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*        Create the "Print Journal" item and attach to "Transactions"     
*                                                                         
   SET      --- WIDGET LABEL               =      Print Journal              
   SET      --- WIDGET GROUP NAME          =      Transactions               
   SET      --- WIDGET OPTION              =      USER 4                     
   SET      --- WIDGET SHORTCUT            =      P                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*        Create the "Monthly" top level pulldown                          
*                                                                         
   SET      --- WIDGET LABEL               =      Monthly                    
   SET      --- WIDGET GROUP NAME          =                                 
   SET      --- WIDGET OPTION              =      USER 11                    
   SET      --- WIDGET SHORTCUT            =      M                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*        Create the "Postings" pullout menu and attach to "Monthly"       
*                                                                         
   SET      --- WIDGET LABEL               =      Postings                   
   SET      --- WIDGET GROUP NAME          =      Monthly                    
   SET      --- WIDGET OPTION              =      USER 12                    
   SET      --- WIDGET SHORTCUT            =      P                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*        Create the "Balancing Report" item and attach to "Postings"      
*                                                                         
   SET      --- WIDGET LABEL               =      Balancing Report           
   SET      --- WIDGET GROUP NAME          =      Postings                   
   SET      --- WIDGET OPTION              =      USER 12                    
   SET      --- WIDGET SHORTCUT            =      B                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
*        Create the "Post Transactions" item and attach to "Postings"     
*                                                                         
   SET      --- WIDGET LABEL               =      Post Transactions          
   SET      --- WIDGET GROUP NAME          =      Postings                   
   SET      --- WIDGET OPTION              =      USER 14                    
   SET      --- WIDGET SHORTCUT            =      P                          
   SET      --- WIDGET ADD TO MENU         =      Y                          
   GOSUB        :WRITE CHILD WIDGET                                          
*                                                                         
END                                                                       
*                                                                         
*        Write WIDGET and increment POSITION ROW to create unique keys    
*                                                                         
   LABEL    :WRITE CHILD WIDGET                                              
   WRITE    --- WIDGET                 FAIL 0                                
-  COMPUTE  --- WIDGET POSITION ROW        +      1                          
F  GOTO     :WRITE CHILD WIDGET                                              
   RETURN