>DEFINE POPUP _popShortcutMenu ; > FROM MROW(),MCOL() ; > MARGIN ; > RELATIVE ; > SHORTCUT >DEFINE POPUP _SubMenu ; > SHORTCUT RELATIVE >DEFINE BAR 1 OF _popShortcutMenu PROMPT "Item 1" >DEFINE BAR 2 OF _popShortcutMenu PROMPT "Item 2 With sub" >DEFINE BAR 3 OF _popShortcutMenu PROMPT "Item 3" >ON BAR 2 OF _popShortcutMenu ACTIVATE Popup _SubMenu >Define Bar 1 Of _SubMenu Prompt "SubMenu 1" >Define Bar 2 Of _SubMenu Prompt "SubMenu 2" >ACTIVATE POPUP _popShortcutMenu >>