# check that a dialog shell can be made and shown
xtAppInitialize -class Program

xmPushButton .fred managed

xmDialogShell .fred.sh

xmPushButton .fred.sh.d_button managed

. realizeWidget

. mainLoop
