# testing scrolled object in form

form .f managed
pushButton .f.p managed
scrolledText .f.l managed
set s [.f.l parent]
puts stdout "hidden parent $s"
$s setValues -topAttachment attach_widget -topWidget .f.p
