# simple pushButton test
xtAppInitialize -class Program

xmPushButton .fred managed

. addWMProtocolCallback WM_DELETE_WINDOW {puts stdout ouch}

topLevelShell .top

.top addWMProtocolCallback WM_DELETE_WINDOW {puts stdout "ouch as well"}

xmLabel .top.top managed -width 50
.top popup

. realizeWidget

. mainLoop
