#!/usr/bin/wksh -openlook

OlInitialize TOPLEVEL create Create -openlook "$@" 

XtCreatePopupShell POP pop popupWindowShell $TOPLEVEL
XtCreateManagedWidget TEXT text staticText $POP_UCA string:"Popup!"

XtAppCreateShell TOP top topLevelShell $TOPLEVEL
XtCreateManagedWidget TEXT2 text2 staticText $TOP string:"Toplevel!"
XtRealizeWidget $TOP

XtCreateManagedWidget CA ca controlArea $TOPLEVEL layoutType:fixedcols

XtCreateManagedWidget B1 b1 oblongButton $CA label:'Popup $POP'
XtAddCallback $B1 select "XtPopup $POP"

XtCreateManagedWidget B2 b2 oblongButton $CA label:'Manage $B3'
XtAddCallback $B2 select 'XtManageChildren $B3'

XtCreateWidget B3 b3 oblongButton $CA label:'Popdown $POP'
XtAddCallback $B3 select "XtPopdown $POP"

XtRealizeWidget $TOPLEVEL
XtMainLoop
