diff options
author | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-04-05 22:27:26 +0000 |
commit | b56b320b5e2515160073fa1b469514002688fe11 (patch) | |
tree | 965a7100c5e45fca8ec803d22b8b6ce14fca4633 /Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod | |
parent | d26c206452d2e285c3bbf949f34011e4a55fd8f9 (diff) |
tlperl 5.22.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@40252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod | 96 |
1 files changed, 0 insertions, 96 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod b/Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod deleted file mode 100644 index dabaadb8a58..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Menu/Item.pod +++ /dev/null @@ -1,96 +0,0 @@ - -=head1 NAME - -Tk::Menu::Item - Base class for Menu items - -=for pm Tk/Menu/Item.pm - -=for category Implementation - -=head1 SYNOPSIS - - require Tk::Menu::Item; - - my $but = $menu->Button(...); - $but->configure(...); - my $what = $but->cget(); - - package Whatever; - require Tk::Menu::Item; - @ISA = qw(Tk::Menu::Item); - - sub PreInit - { - my ($class,$menu,$info) = @_; - $info->{'-xxxxx'} = ... - my $y = delete $info->{'-yyyy'}; - } - -=head1 DESCRIPTION - -Tk::Menu::Item is the base class from which Tk::Menu::Button, -Tk::Menu::Cascade, Tk::Menu::Radiobutton and Tk::Menu::Checkbutton are derived. -There is also a Tk::Menu::Separator. - -Constructors are declared so that $menu-E<gt>Button(...) etc. do what you would -expect. - -The C<-label> option is pre-processed allowing ~ to be prefixed to the character -to derive a C<-underline> value. Thus - - $menu->Button(-label => 'Goto ~Home',...) - - is equivalent to - - $menu->Button(-label => 'Goto Home', -underline => 6, ...) - -The C<Cascade> menu item creates a sub-menu and accepts -these options: - -=over 4 - -=item B<-menuitems> - -A list of items for the sub-menu. -Within this list (which is also accepted by Menu and Menubutton) the first -two elements of each item should be the "constructor" name and the label: - - -menuitems => [ - [Button => '~Quit', -command => [destroy => $mw]], - [Checkbutton => '~Oil', -variable => \$oil], - ] - -=item B<-postcommand> - -A callback to be invoked before posting the menu. - -=item B<-tearoff> - -Specifies whether sub-menu can be torn-off or not. - -=item B<-menuvar> - -Scalar reference that will be set to the newly-created sub-menu. - -=back - -The returned object is currently a blessed reference to an array of two items: -the containing Menu and the 'label'. -Methods C<configure> and C<cget> are mapped onto underlying C<entryconfigure> -and C<entrycget>. - -The main purpose of the OO interface is to allow derived item classes to -be defined which pre-set the options used to create a more basic item. - -=head1 BUGS - -This OO interface is very new. Using the label as the "key" is a problem -for separaror items which don't have one. The alternative would be to -use an index into the menu but that is a problem if items are deleted -(or inserted other than at the end). - -There should probably be a PostInit entry point too, or a more widget like -defered 'configure'. - -=cut - |