# simple pushButton test
xtAppInitialize -class Program

xmForm .form managed \
    -unitType 100th_font_units

xmLabel .form.fred managed \
    -width 4000 \
    -fontList 9x15bold

.form.fred getValues \
    -unitType u \
    -width w

puts "type: $u, width: $w"

. realizeWidget

. mainLoop
