|
|
|
|
|
|
|
|
- Listing the main menus of a window
Listing the main menus of a window This example is used to list the options found in the the drop-down menus of a window. A recursive procedure is used.
// Call to the recursive procedure
FillMenu(MyWindow..Name)
PROCEDURE FillMenu(sParent, nLevel is int = 0)
// Enumerate the menu options
sOption is string = EnumSubElement(sParent, enumFirst + enumMainMenu)
// The name of the main menu must not be specified
IF nLevel = 0 AND sOption <> "" THEN
FillMenu(sParent + "." + sOption, nLevel + 1)
RETURN
END
WHILE sOption <> ""
// Full name of the menu option
sFullName is string = sParent + "." + sOption
// Add the menu option
IF {sFullName,indGPW}..Type = typOptionMenu THEN
Trace(sFullName, typMenuOption, {sFullName,indGPW}..Caption, "", nLevel)
END
// Options of higher level
FillMenu(sFullName, nLevel + 1)
// Next option
sOption = EnumSubElement(sParent)
END
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|