Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Contact Us
Online Help
Domain Status
Man Pages

Virtual Servers

Topology Map

Server Agreement
Year 2038

USA Flag



Man Pages

Manual Reference Pages  -  TK::CONFIGSPECS (3)

.ds Aq ’


Tk::ConfigSpecs - Defining behaviour of ’configure’ for composite widgets.



    sub Populate
     my ($composite,$args) = @_;
     $composite->ConfigSpecs(-attribute => [ where,dbName,dbClass,default ]);
     $composite->ConfigSpecs(-alias => -otherattribute);
     $composite->ConfigSpecs(DEFAULT => [ where ]);

    $composite->configure(-attribute => value);


The aim is to make the composite widget configure method look as much like a regular Tk widget’s configure as possible. (See Tk::options for a description of this behaviour.) To enable this the attributes that the composite as a whole accepts needs to be defined.

    Defining the ConfigSpecs for a class.

Typically a widget will have one or more calls like the following

    $composite->ConfigSpecs(-attribute => [where,dbName,dbClass,default]);

in its <B>PopulateB> method. When <B>ConfigSpecsB> is called this way (with arguments) the arguments are used to construct or augment/replace a hash table for the widget. (More than one -option=>value pair can be specified to a single call.)

<B>dbNameB>, <B>dbClassB> and default are only used by <B>ConfigDefaultB> described below, or to respond to ’inquiry’ configure commands.

It may be either one of the values below, or a list of such values enclosed in <B>[]B>.

The currently permitted values of <B>whereB> are:
<B>’ADVERTISEDB> Apply <B>configureB> to advertised subwidgets.
<B>’DESCENDANTSB> Apply <B>configureB> recursively to all descendants.
<B>’CALLBACKB> Setting the attribute does Tk::Callback->new($value) before storing in $composite->{Configure}{-attribute}. This is appropriate for -command => ... attributes that are handled by the composite and not forwarded to a subwidget. (E.g. <B>Tk::TilerB> has -yscrollcommand to allow it to have scrollbar attached.)

This may be the first of several ’validating’ keywords (e.g. font, cursor, anchor etc.) that core Tk makes special for C code.

<B>’CHILDRENB> Apply <B>configureB> to all children. (Children are the immediate descendants of a widget.)
<B>’METHODB> Call $cw->attribute(value)

This is the most general case. Simply have a method of the composite class with the same name as the attribute. The method may do any validation and have whatever side-effects you like. (It is probably worth ’queueing’ using <B>afterIdleB> for more complex side-effects.)

<B>’PASSIVEB> Simply store value in $composite->{Configure}{-attribute}.

This form is also a useful placeholder for attributes which you currently only handle at create time.

<B>’SELFB> Apply <B>configureB> to the core widget (e.g. <B>FrameB>) that is the basis of the composite. (This is the default behaviour for most attributes which makes a simple Frame behave the way you would expect.) Note that once you have specified <B>ConfigSpecsB> for an attribute you must explicitly include SELF in the list if you want the attribute to apply to the composite itself (this avoids nasty infinite recursion problems).
<B>B>$reference<B>B> (blessed) Call <B>B>$reference<B>B>->configure(-attribute => value)

A common case is where <B>B>$reference<B>B> is a subwidget.

$reference may also be result of


<B>Tk::ConfigB> class is used to implement all the above keyword types. The class has configure and cget methods so allows higher level code to always just call one of those methods on an object of some kind.

<B>hash referenceB> Defining:

                -option => [ { -optionX=>$w1, -optionY=>[$w2, $w3] },
                                dbname dbclass default ],

So $cw->configure(-option => value) actually does

        $w1->configure(-optionX => value);
        $w2->configure(-optionY => value);
        $w3->configure(-optionY => value);

<B>’otherstring’B> Call

    $composite->Subwidget(otherstring)->configure( -attribute => value );

While this is here for backward compatibility with Tk-b5, it is probably better just to use the subwidget reference directly. The only case for retaining this form is to allow an additional layer of abstraction - perhaps having a ’current’ subwidget - this is unproven.

<B>AliasesB> ConfigSpecs( -alias => -otherattribute ) is used to make -alias equivalent to -otherattribute. For example the aliases

    -fg => -foreground,
    -bg => -background

are provided automatically (if not already specified).

    Delegating all options of a widget class to a subwidget


The above generates a list of composite ConfigSpecs arguments, one for each valid option in $subwidget’s class, and delegates said option to $subwidget. See Tk::Widget and the widget method ConfigSpecs. Duplicating composite ConfigSpecs and widget ConfigSpecs keys will yield undefined results.

    Default values

When the <B>PopulateB> method returns <B>ConfigDefaultB> is called. This calls


(with no arguments) to return a reference to a hash. Entries in the hash take the form:

    -attribute => [ where, dbName, dbClass, default ]

<B>ConfigDefaultB> ignores ’where’ completely (and also the DEFAULT entry) and checks the ’options’ database on the widget’s behalf, and if an entry is present matching dbName/dbClass

    -attribute => value

is added to the list of options that <B>newB> will eventually apply to the widget. Likewise if there is not a match and default is defined this default value will be added.

Alias entries in the hash are used to convert user-specified values for the alias into values for the real attribute.

BINew()-time configure

Once control returns to <B>newB>, the list of user-supplied options augmented by those from <B>ConfigDefaultB> are applied to the widget using the <B>configureB> method below.

Widgets are most flexible and most Tk-like if they handle the majority of their attributes this way.

    Configuring composites

Once the above have occurred calls of the form:

    $composite->configure( -attribute => value );

should behave like any other widget as far as end-user code is concerned. <B>configureB> will be handled by <B>Tk::Derived::configureB> as follows:


is called (with no arguments) to return a reference to a hash <B>-attributeB> is looked up in this hash, if <B>-attributeB> is not present in the hash then <B>’DEFAULTB> is looked for instead. (Aliases are tried as well and cause redirection to the aliased attribute). The result should be a reference to a list like:

  [ where, dbName, dbClass, default ]

at this stage only where is of interest, it maps to a list of object references (maybe only one) foreach one

   $object->configure( -attribute => value );

is <B>evalB>ed.

    Inquiring attributes of composites

   $composite->cget( -attribute );

This is handled by <B>Tk::Derived::cgetB> in a similar manner to configure. At present if where is a list of more than one object it is ignored completely and the cached value in


is returned.


The -background and -foreground option values are automatically propagated down to all composite widget’s children. This may be sometimes not desirable, especially if some subwidgets should use own color schemes, either by using explicit options or by option database definitions. If this is the case, then just add

    -foreground => SELF,
    -background => SELF,

to ConfigSpecs.

It is the author’s intention to port as many of the Tix composite widgets as make sense. The mechanism described above may have to evolve in order to make this possible, although now aliases are handled I think the above is sufficient.


Tk::composite, Tk::options, Tk::Widget
Search for    or go to Top of page |  Section 3 |  Main Index

perl v5.20.3 CONFIGSPECS (3) 2013-11-15

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.