Creating the topmenu dynamically

This example shows how to create a topmenu in all forms by using the default initialization function and the om.DomNode class:
CALL ui.Form.setDefaultInitializer("myinit")
OPEN FORM f1 FROM "form1"
DISPLAY FORM f1
...
FUNCTION myinit(form)
  DEFINE form ui.Form 
  DEFINE f om.DomNode 
  LET f = form.getNode()
  ...
END FUNCTION
After getting the DOM node of the form, create a node with the "TopMenu" tag name:
DEFINE tm om.DomNode 
LET tm = f.createChild("TopMenu")
For each Topmenu group, create a subnode with the "TopMenuGroup" tag name and set the attributes to define the group:
DEFINE tmg om.DomNode 
LET tmg = tm.createChild("TopMenuGroup")
CALL tmg.setAttribute("text","Reports")
For each Topmenu option, create a sub-node in a group node with the "TopMenuCommand" tag name and set the attributes to define the option:
DEFINE tmi om.DomNode 
LET tmi = tmg.createChild("TopMenuCommand")
CALL tmi.setAttribute("name","report")
CALL tmi.setAttribute("text","Order report")
CALL tmi.setAttribute("comment","Orders entered today")
CALL tmi.setAttribute("image","smiley")
If needed, you can create a "TopMenuSeparator" node inside a group, to separate menu options:
DEFINE tms om.DomNode 
LET tms = tmg.createChild("TopMenuSeparator")