| User interface programming / Window containers (WCI) | |
MAIN
CALL ui.Interface.setName("custapp")
CALL ui.Interface.setType("child")
CALL ui.Interface.setText("Customers")
CALL ui.Interface.setContainer("parent1")
...
END MAIN
Multiple container programs can be used to group programs by application modules.
The client displays a system error and the programs stops when:
MAIN
CALL ui.Interface.setName("parent1")
CALL ui.Interface.setType("container")
CALL ui.Interface.setText("SoftStore Manager")
CALL ui.Interface.setSize("600px","1000px")
CALL ui.Interface.loadStartMenu("mystartmenu")
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