# simple pushButton test
xtAppInitialize -class Program

xmPushButton .fred managed

. setValues -translations "<Key>r: exec(puts hello)"
. realizeWidget

. mainLoop
