# testing scrolled object in form
xtAppInitialize -class Program

xmForm .f managed
xmPushButton .f.p managed
xmScrolledText .f.l managed
set s [.f.l parent]
puts stdout "hidden parent $s"
$s setValues -topAttachment attach_widget -topWidget .f.p

. realizeWidget

. mainLoop
