Example 3: Using the Window Container Interface

The WCI parent program:

MAIN
  CALL ui.Interface.setName("main1")
  CALL ui.Interface.setText("This is the parent container")
  CALL ui.Interface.setType("container")
  CALL ui.Interface.setSize("600px","600px")
  CALL ui.Interface.loadStartMenu("appmenu")
  MENU "Main"
    COMMAND "Help" CALL help()
    COMMAND "About" CALL aboutbox()
    COMMAND "Exit"
      IF ui.Interface.getChildCount()>0 THEN
        ERROR "You must first exit the child programs."
      ELSE
        EXIT MENU
      END IF
  END MENU
END MAIN

The WCI child program:

MAIN
  CALL ui.Interface.setName("prog1")
  CALL ui.Interface.setText("This is module 1")
  CALL ui.Interface.setType("child")
  CALL ui.Interface.setContainer("main1")
  MENU "Test"
    COMMAND "Exit"
      EXIT MENU
  END MENU
END MAIN