diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tk/Derived.pod')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tk/Derived.pod | 89 |
1 files changed, 0 insertions, 89 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tk/Derived.pod b/Master/tlpkg/tlperl/lib/Tk/Derived.pod deleted file mode 100644 index 4b99934d5bd..00000000000 --- a/Master/tlpkg/tlperl/lib/Tk/Derived.pod +++ /dev/null @@ -1,89 +0,0 @@ - -=head1 NAME - -Tk::Derived - Base class for widgets derived from others - -=for pm Tk/Derived.pm - -=for category Derived Widgets - -=head1 SYNOPSIS - - package Tk::MyNewWidget; - - use Tk::widgets qw/ BaseWidget, list of Tk widgets /; - use base qw/ Tk::Derived Tk::BaseWidget /; - - Construct Tk::Widget 'MyNewWidget'; - - sub ClassInit { - my( $class, $mw ) = @_; - #... e.g., class bindings here ... - $class->SUPER::ClassInit( $mw ); - } - - sub Populate { - my( $self, $args ) = @_; - - my $flag = delete $args->{-flag}; - if( defined $flag ) { - # handle -flag => xxx which can only be done at create - # time the delete above ensures that new() does not try - # and do $self->configure( -flag => xxx ); - } - - $self->SUPER::Populate( $args ); - - $self = $self->Component( ... ); - - $self->Delegates( ... ); - - $self->ConfigSpecs( - '-cursor' => [ SELF, 'cursor', 'Cursor', undef ], - '-something' => [ METHOD, dbName, dbClass, default ], - '-text' => [ $label, dbName, dbClass, default ], - '-heading' => [ {-text => $head}, - heading, Heading, 'My Heading' ], - ); - } - - sub something { - my( $self, $value) = @_; - if ( @_ > 1 ) { - # set it - } - return # current value - } - -=head1 DESCRIPTION - -Tk::Derived is used with Perl's multiple inheritance to override some -methods normally inherited from Tk::Widget. - -Tk::Derived should precede any Tk widgets in the class's base class -definition. - -Tk::Derived's main purpose is to apply wrappers to C<configure> and C<cget> -methods of widgets to allow the derived widget to add to or modify behaviour -of the configure options supported by the base widget. - -The derived class should normally override the C<Populate> method provided -by Tk::Derived and call C<ConfigSpecs> to declare configure options. - -The public methods provided by Tk::Derived are as follows: - -=over 4 - -=item -E<gt>ConfigSpecs(-I<key> =E<gt> [I<kind>, I<name>, I<Class>, I<default>], ...) - -=back - -=head1 SEE ALSO - -L<Tk::ConfigSpecs|Tk::ConfigSpecs> -L<Tk::mega|Tk::mega> -L<Tk::composite|Tk::composite> - - -=cut - |