#!../wafe --f
# Wafe script to demonstrate how to create popup menus
# in Wafe    -- Gustaf Neumann    Jun  2 15:03:59 EDT 1994

mergeResources topLevel \
    *background wheat \
    *foreground black \
    *SmeBSB.callback {echo %w}

Label pressMe topLevel \
    translations {#override 
       <Btn1Down>: XtMenuPopup(menu) 
    }

SimpleMenu menu pressMe
      SmeBSB one menu
      SmeBSB two menu
      SmeBSB three menu
      SmeLine line menu
      SmeBSB quit menu callback %w
callback menu popupCallback positionCursor 0

realize
