# NOTE: Derived from blib/lib/Tk/Frame.pm.
# Changes made here will be lost when autosplit is run again.
#line 359 "blib/lib/Tk/Frame.pm (autosplit into blib/lib/auto/Tk/Frame/FindMenu.al)"
foreach $child ($w->children)
next unless (ref $child);
$match = $child->FindMenu($char);
return $match if (defined $match);
# end of Tk::Frame::FindMenu