# simple pushButton test
xtAppInitialize -class Program

xmPushButton .fred managed

. realizeWidget

.fred defineCursor coffee_mug

. mainLoop
