22 lines
1.0 KiB
Plaintext
22 lines
1.0 KiB
Plaintext
MAIN
|
|
CALL ui.Interface.loadStartMenu("StartMenu1")
|
|
-- By default the SCREEN window gets the STYLE attribute 'main'...
|
|
-- Since the default.4st file defines this style with a startmenu as
|
|
-- pull-down menu, you can see the startmenu in the SCREEN window.
|
|
MENU "StartMenu"
|
|
COMMAND "menu" "Window with startmenu as pull-down menu"
|
|
OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm1")
|
|
MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
|
|
CLOSE WINDOW w1
|
|
COMMAND "tree" "Window with startmenu as tree view"
|
|
OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm2")
|
|
MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
|
|
CLOSE WINDOW w1
|
|
COMMAND "poptree" "Window with startmenu as popup-tree view"
|
|
OPEN WINDOW w1 WITH 20 ROWS, 80 COLUMNS ATTRIBUTES(STYLE="sm3")
|
|
MENU "Test" COMMAND KEY(INTERRUPT) "Exit" EXIT MENU END MENU
|
|
CLOSE WINDOW w1
|
|
COMMAND KEY(INTERRUPT) "Exit" EXIT MENU
|
|
END MENU
|
|
END MAIN
|