visualobliq/src/DialogMenu.i3

 Copyright (C) 1993, Digital Equipment Corporation 
 All rights reserved. 
 See the file COPYRIGHT for a full description. 
 
 Last modified on Sat Sep  4 16:41:01 PDT 1993 by bharat 
 modified on Fri Jul 2 16:33:31 PDT 1993 by mhb 

<* PRAGMA LL *>

INTERFACE DialogMenu;

IMPORT ZHandleVBT;

 In this implementation only 2 level menus are supported 


TYPE
 T = RECORD
   Level : CARDINAL := 0;
   (* 0 is the top level - subsequent levels are 1, 2... *)
   Label, Name : TEXT;
   (* The Name "RIDGE" is  reserved for ridges *)
   inForeGround : BOOLEAN := TRUE;
   isLocal : BOOLEAN := TRUE;
   executeAt : TEXT := "";
   initialState : TEXT := "Active";
   callback : TEXT := "";
 END;

PROCEDURE Initialize();

 attach to procs 

PROCEDURE LoadAttributes(nv : ZHandleVBT.T);

 this loads up the attribute page with the menu in the given formnode  
 ZHandleVBT is NARROWed to a NodeVBT.FormNode 
 (ZHandleVBT.T is being used  to avoid circular imports ) 
 if nv.Menu is NIL then the menu browser will be empty                 
 subsequently, pressing apply causes the new menu to be installed in   
 place of the old one. Till then a duplicate array is maintained for   
 internal use                                                          
 Note that the Apply button for the Menu applies to the menu alone     
 The regular Apply button saves the attributes of the remaining fields 
 in the form 




PROCEDURE ComputeMenuSX (n : ZHandleVBT.T) : TEXT;

 generates s-expression as a sequence of terms in the menu bar (hbox) 

PROCEDURE ComputeMenuObjDefs (n : ZHandleVBT.T) : TEXT;

 generates a sequence of object defs 

PROCEDURE ComputeMenuCallbacks (n : ZHandleVBT.T) : TEXT;

 generates a sequence of callback definitions 

PROCEDURE ComputeMenuAttachments (n: ZHandleVBT.T): TEXT;

 generates a sequence of attachments  
 PROCEDURE RenderMenuBar (n : ZHandleVBT.T); (* render the menu bar  
*)

END DialogMenu.