>DEFINE POPUP myPopup FROM lnRow, lnCol SHORTCUT > >DEFINE BAR 1 OF myPopup PROMPT "\<Reset to Default" >DEFINE BAR 2 OF myPopup PROMPT "Add to \<Favorites" >DEFINE BAR 3 OF myPopup PROMPT "\-" >DEFINE BAR 4 OF myPopup PROMPT "\<MemberData Editor..." >DEFINE BAR 5 OF myPopup PROMPT "\<Hello World" > >ON SELECTION BAR 1 OF myPopup loObject.ResetToDefault(lcPEM) >ON SELECTION BAR 2 OF myPopup DO (_BUILDER) with loObject, "MemberData", 11, lcPem >ON SELECTION BAR 4 OF myPopup DO (_BUILDER) with loObject, "MemberData", 1, lcPem >ON SELECTION BAR 5 OF myPopup MESSAGEBOX("Hello World") >>