# demonstrates a bug in my stuff when creating widgets using parent values
# the buttons are about the same width, when one should be 40x bigger

# now fixed
xtAppInitialize -class Program

xmForm .r managed

# xmPushButton .r.l1 managed -unitType 100th_millimeters -width 50000 -height 3000
xmPushButton .r.l1 managed
	
xmPushButton .r.l2 managed -unitType 100th_millimeters
# xmPushButton .r.l2 managed
.r.l2 setValues -width 20000
.r.l2 setValues -topAttachment attach_widget -topWidget .r.l1

. realizeWidget

. mainLoop
