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