We start by making our m_menu.per

DATABASE FORMONLY

SCREEN
{

[mx1 ]

}

ATTRIBUTES

Edit mx1 = FORMONLY.mx1, HIDDEN;

We have made a clean window for our example. Compile this file with “fcompile -xml m_menu.per“.
Then create the main program m_menu.4gl.

MAIN

OPEN WINDOW w_1 WITH FORM “m_menu”
   CALL ui.Interface.loadActionDefaults(”default”)
   CALL ui.Interface.loadStyles(”default”)
   CALL ui.Interface.setText(”Menu Styles”)
MENU “Navigation”
   COMMAND “Dialog Menu”
      MENU “Dialog”
         ATTRIBUTE(STYLE =”dialog”,
               COMMENT =”Hello, i’m a Dialog Window with an Dialog Menu”,
               IMAGE = “information”)
         COMMAND “Ok”
            EXIT MENU
      END MENU

   COMMAND “Pulldown Menu”
      MENU “Pulldown”
         ATTRIBUTES(STYLE = “pulldown”)
         COMMAND “Exit”
            EXIT MENU
      END MENU

         COMMAND “Exit”
      EXIT MENU
END MENU

END MAIN

This example is now finished. You will see the following result: