
xtAppInitialize -class Program

topLevelShell .top1

topLevelShell .top2

xmPushButton .top1.fred managed
xmPushButton .top2.fred managed

.top1 popup
.top2 popup

# .*fred activateCallback {puts stdout "ouch"}

. realizeWidget

. mainLoop
