.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.TH MEGA 1 "2000-12-30" "perl v5.8.0" "User Contributed Perl Documentation"
Tk::mega \- perl/Tk support to write widgets in perl
\&\ \fBpackage Tk::\fR\fIWhatever\fR;
\&\ \fBConstruct Tk::\fR\fIValidFor\fR \fI'Whatever'\fR;
\&\ \fBsub ClassInit\fR { \fImy ($mega, \f(CI$args\fI) = \f(CI@_\fI; ...\fR }
For composite widget classes:
\&\ \fBsub Populate\fR { \fImy ($composite, \f(CI$args\fI) = \f(CI@_\fI; ...\fR }
For derived widget classes:
\&\ \fBsub InitObject\fR { \fImy ($derived, \f(CI$args\fI) = \f(CI@_\fI; ...\fR }
The goal of the mega widget support of perl/Tk is to make it
easy to write mega widgets that obey the same protocol and
interface that the Tk core widgets support. There are two
.IP "\(bu Composite Widgets" 4
.IX Item "Composite Widgets"
A composite widget is composed with one or more existing widgets.
The composite widget looks to the user like a simple single widget.
A well known example is the file selection box.
.IP "\(bu Derived Widgets" 4
.IX Item "Derived Widgets"
A derived widget adds/modifies/removes properties and methods
from a single widget (this widget may itself be a mega widget).
.SH "MEGA WIDGET SUPPORT"
.IX Header "MEGA WIDGET SUPPORT"
.IX Subsection "Advertise"
Give a subwidget a symbolic name.
\&\ \fI$cw\fR\->\fBAdvertise\fR(\fBname\fR=>\fI$widget\fR);
Gives a subwidget \fI$widget\fR of the composite widget \fI$cw\fR the
name \fBname\fR. One can retrieve the reference of an advertised subwidget
with the Subwidget method.
\&\fBComment:\fR Mega Widget Writers: Please make sure to document the
advertised widgets that are intended for \fIpublic\fR use.
If there are none, document this fact, e.g.:
\& =head1 ADVERTISED WIDGETS
.IX Subsection "Callback"
Invoke a callback specified with an option.
\&\ \fI$mega\fR\->\fBCallback\fR(\fI\-option\fR ?,\fIargs\fR ...?);
\&\fBCallback\fR executes the callback defined with
\&\fI$mega\fR\->\fBConfigSpecs\fR(\fI\-option\fR, [\fB\s-1CALLBACK\s0\fR, ...]);
If \fIargs\fR are given they are passed to the callback. If
\&\fI\-option\fR is not defined it does nothing.
.IX Subsection "ClassInit"
Initialization of the mega widget class.
\&\ \fBsub ClassInit\fR { \fImy ($class, \f(CI$mw\fI) = \f(CI@_\fI;\fR ... }
\&\fBClassInit\fR is called once for \fIeach\fR MainWindow
just before the first widget instance of a class is created in
the widget tree of \fBMainWindow\fR.
\&\fBClassInit\fR is often used to define bindings and/or other
resources shared by all instances, e.g., images.
\& $mw->bind($class,"<Tab>", sub { my $w = shift; $w->Insert("\et"); $w->focus; $w->break});
\& $mw->bind($class,"<Return>", ['Insert',"\en"]);
\& $mw->bind($class,"<Delete>",'Delete');
Notice that \fI$class\fR is the class name (e.g. \fBTk::MyText\fR) and \fI$mw\fR is the mainwindow.
Don't forget to call \fI$class\fR\->\fBSUPER::ClassInit($mw)\fR in
.IX Subsection "Component"
Convenience function to create subwidgets.
\& $cw->Component('Whatever', 'AdvertisedName',
\& -delegate => ['method1', 'method2', ...],
\& ... Whatever widget options ...,
\&\fBComponent\fR does several things for you with one call:
o Advertises it with a given name (overridden by 'Name' option)
o Delegates a set of methods to this widget (optional)
\& $cw->Component('Button', 'quitButton', -command => sub{$mw->'destroy'});
.IX Subsection "ConfigSpecs"
Defines options and their treatment
\& -option => [ where, dbname, dbclass, default],
Defines the options of a mega widget and what actions
are triggered by configure/cget of an option
(see Tk::ConfigSpecs and Tk::Derived for details).
.IX Subsection "Construct"
Make the new mega widget known to \fBTk\fR.
\&\ \fBConstruct\fR \fIbaseclass\fR \fB'Name'\fR;
\&\fBConstruct\fR declares the new widget class so that your mega widget
works like normal Perl/Tk widgets.
\&\ \fBConstruct Tk::Widget\fR \fI'Whatever'\fR;
\&\ \fBConstruct Tk::Menu\fR \fI'MyItem'\fR;
First example lets one use \fI$widget\fR\->\fBWhatever\fR to create
new \fBWhatever\fR widget.
The second example restricts the usage of the \fBMyItem\fR constructor
method to widgets that are derived from \fBMenu\fR:
\&\fI$isamenu\fR\->\fIMyItem\fR.
.IX Subsection "CreateArgs"
Mess with options before any widget is created
\&\ \fBsub CreateArgs\fR { \fImy ($package, \f(CI$parent\fI, \f(CI$args\fI) = \f(CI@_\fI; ...; return \f(CI@newargs\fI;\fR }
\&\fI$package\fR is the package of the mega widget (e.g., \fBTk::MyText\fR,
\&\fI$parent\fR the parent of the widget to be created and \f(CW$args\fR the hash
reference to the options specified in the widget constructor call.
Don't forget to call \fI$package\fR\->\fBSUPER::CreateArgs\fR(\fI$parent\fR, \fI$args\fR) in
.IX Subsection "Delegates"
Redirect a method of the mega widget to a subwidget of
\& 'method1' => $subwidget1,
\& 'method2' => 'advertived_name',
\& 'Construct' => $subwidget2,
\& 'DEFAULT' => $subwidget3,
The \fB'Construct'\fR delegation has a special meaning. After
\&'Construct' is delegated all Widget constructors are redirected.
\&\ \fI$mega\fR\->\fBDelegates\fR(\fB'Construct'\fR=>\fI$subframe\fR);
a \fI$mega\fR\->\fBButton\fR does really a \fI$subframe\fR\->\fBButton\fR
so the created button is a child of \fI$subframe\fR and not \fI$mega\fR.
\&\fBComment:\fR Delegates works only with methods that \fI$cw\fR does
.IX Subsection "InitObject"
Defines construction and interface of derived widgets.
\& my ($derived, $args) = @_;
where \fI$derived\fR is the widget reference of the already created
baseclass widget and \fI$args\fR is the reference to a hash of
\&\fI\-option\-value\fR pairs.
\&\fBInitObject\fR is almost identical to Populate method.
\&\fBPopulate\fR does some more 'magic' things useful for mega widgets
Don't forget to call \fI$derived\fR\->\fBSUPER::InitObject\fR(\fI$args\fR) in
.IX Subsection "OnDestroy"
Define callback invoked when widget is destroyed.
\&\ \fI$widget\fR\->\fBOnDestroy\fR(\fIcallback\fR);
\&\fBOnDestroy\fR installs a callback that's called
when a widget is going to to be destroyed. Useful
for special cleanup actions. It differs from a normal \fBdestroy\fR
in that all the widget's data structures are still intact.
\&\fBComment:\fR This method could be used with any widgets not just
for mega widgets. It's listed here because of it's usefulness.
.IX Subsection "Populate"
Defines construction and interface of the composite
\& my ($mega, $args) = @_;
where \fI$mega\fR is the widget reference of the already created baseclass
widget and \fI$args\fR is the
reference to a hash of \fI\-option\-value\fR pairs.
Most the other support function are normally used inside the \fBPopulate\fR
Don't forget to call \fI$cw\fR\->\fBSUPER::Populate\fR(\fI$args\fR) in
.IX Subsection "privateData"
Set/get a private hash of a widget to storage
\&\ \fI$hashref\fR = \fI$mega\fR\->\fBprivateData\fR();
\&\ \fI$another\fR = \fI$mega\fR\->\fBprivateData\fR(\fIunique_key\fR|\fIpackage\fR);
.IX Subsection "Subwidget"
Get the widget reference of an advertised subwidget.
\&\ \fI$subwidget\fR = \fI$cw\fR\->\fBSubwidget\fR(\fIname\fR);
\&\ \fI@subwidget\fR = \fI$cw\fR\->\fBSubwidget\fR(\fIname\fR ?,...?);
Returns the widget reference(s) of the subwidget known under the
name \fIname\fR. See Advertise method how to define
\&\fIname\fR for a subwidget.
\&\fBComment:\fR Mega Widget Users: Use \fBSubwidget\fR to get \fIonly\fR
.IP "\(bu Resource \s-1DB\s0 class name" 4
.IX Item "Resource DB class name"
Some of the standard options use a resource date base class
that is not equal to the resource database name. E.g.,
\& -activerelief activeRelief Relief
\& -activebackground activeBackground Foreground
One should do the same when one defines one of these
options via \fBConfigSpecs\fR.
.IP "\(bu Method delegation" 4
.IX Item "Method delegation"
Redirecting methods to a subwidget with \fBDelegate\fR
can only work if the base widget itself does have a
method with this name. Therefore one can't ``\fIdelegate\fR''
any of the methods listed in Tk::Widget.
A common problematic method is \fBbind\fR. In this case
one as to explicitely redirect the method.
\& my $to = $mega->privateData->{'my_bind_target'};
Graham Barr wrote: ... It is probably
more private than most people think. Not all calls to privateData will
return that same \s-1HASH\s0 reference. The \s-1HASH\s0 reference that is returned
depends on the package it was called from, a different \s-1HASH\s0 is returned
for each package. This allows a widget to hold private data, but then
if it is sub-classed the sub-class will get a different \s-1HASH\s0 and so not
cause duplicate name clashes.
But privateData does take an optional argument if you want to
force which \s-1HASH\s0 is returned.
.IP "\(bu Scrolled and Composite" 4
.IX Item "Scrolled and Composite"
\&\fBScrolled\fR(\fIKind\fR,...) constructor can not be used with \fBComposite\fR.
One has to use \f(CW$cw\fR\->\fBComposite\fR(\fBScrl\fR\fIKind\fR => \fB'name'\fR, ...);
Of course perl/Tk does not define support function for
all necessities. Here's a short list of things you have to
no support to define construction-time only options.
no support to remove an option that is known to the
it's hard to define \fBundef\fR as fallback for an widget
option that is not already \fBundef\fR.
Frame in perl/Tk carries magic and overhead not needed
for composite widget class definition.
No support methods for bindings that are shared between all
widgets of a composite widget (makes sense at all?)
mega, composite, derived, widget
projects / OpenSPARC-T2-DV / blob