def button but label "button".
def frame f but.

def sub-menu sm
  menu-item mi1 label "mi1".
  menu-item mi2 label "mi2".

def menu ssm
  menu-item mm label "Elthon".
  sub-menu sm label "John".

assign but:popup-menu = menu ssm:handle.

enable all with frame f.

wait-for choose of but.