simon
Joined: 05 Jul 2006 Posts: 268
|
Posted: Tue May 15, 2012 2:52 pm Post subject: Constructing menus |
|
|
Is it possible to add second and higher level menu items after the menu has already been created? The following code, for example, creates a menu with a sub-menu, works on a second menu item, and then attempts to add a second sub-menu item to "Menu1", but the program adds a second "Menu1".
Code: | MODULE m
CONTAINS
FUNCTION f()
INTEGER :: f
f=0
END FUNCTION f
END MODULE m
PROGRAM p
WINAPP
USE m
iw=winio@('%mn[Menu1[Menu1.1]]&',f)
iw=winio@('%mn[Menu2]&',f)
iw=winio@('%mn[Menu1[Menu1.2]]',f)
END PROGRAM p |
[/code] |
|