LOCAL lnBar
DEFINE POPUP lpClassList SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF lpClassList PROMPT [Rename]
DEFINE BAR 2 OF lpClassList PROMPT [Delete]

ON SELECTION POPUP lpClassList lnBar = BAR()
ACTIVATE POPUP lpClassList

DO CASE
   CASE lnBar = 1
      * Rename
      This.PopProc("Rename","lpClassList)
   CASE lnBar = 2
      * Delete
      This.PopProc("Delete","lpClassList)
ENDCASE