blob: 66e71c29b214f7f7315a081117841f5a1b779ba1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# NOTE: Derived from blib\lib\Tk\Frame.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Frame;
#line 363 "blib\lib\Tk\Frame.pm (autosplit into blib\lib\auto\Tk\Frame\FindMenu.al)"
sub FindMenu
{
my ($w,$char) = @_;
my $child;
my $match;
foreach $child ($w->children)
{
next unless (ref $child);
$match = $child->FindMenu($char);
return $match if (defined $match);
}
return undef;
}
1;
# end of Tk::Frame::FindMenu
|
