# option menu

xtAppInitialize -class Program

xmRowColumn .rc managed

xmPulldownMenu .rc.pulldown1
xmPushButton .rc.pulldown1.options1 managed \
    -labelString "value 1"

xmPushButton .rc.pulldown1.options2 managed \
    -labelString "value 2"

xmOptionMenu .rc.option1 managed \
    -labelString "Option set" \
    -subMenuId .rc.pulldown1

. realizeWidget

. mainLoop
