View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Rob Seegel > Tk-JComboBox-1.12 > Tk::CWidget



Annotate this POD


New  2
Open  1
View/Report Bugs
Module Version: 0.01   Source   Latest Release: Tk-JComboBox-1.14


Tk::CWidget - Frame-based Composite Base class.


CWidget is a base class for Frame-based Composite widgets. It contains methods that may be useful for Composites, and is used as a way of extending or overriding the Widget, Derived, or Frame modules without directly changing them. It is not intended for use as a standalone widget. Currently, it has few methods, but will likely increase as common code is moved from subclasses to this one.


Name subwidgets
Class Subwidgets
Switch -subwidgets

Specifies one or more configuration options for subwidgets contained within the Composite. Assuming a Composite that contains two subwidgets: LabelA and LabelB (both Label widgets), the following examples show how these might be configured.

The first example shows that for each named subwidget, one or more options can be set.

   $cwidget->configure(-subwidgets => [
      LabelA => { -background => 'blue', -foreground => 'white' },
      LabelB => { -background => 'white', -foreground => 'blue' }

The second example show that more than one subwidget can be associated with a set of options.

   $cwidget->configure(-subwidgets => [
      ['LabelA', 'LabelB'] => { -bg => 'blue', -fg  => 'white'},
      LabelA               => { -text => 'A'},
      LabelB               => { -text => 'B'}

Why is this useful? If you have several composites that have the same option configurations, this allows the options to be defined once in a variable, and then passed to each one, eliminating some of the common code from repeatedly calling:




Provides an alternative to using the -subwidgets option. This method take either an array reference or an array. Either way the contents of the array reference or array are identical.

      ['LabelA', 'LabelB'] => { -bg => 'blue', -fg  => 'white'},
      LabelA               => { -text => 'A'},
      LabelB               => { -text => 'B'}


      ['LabelA', 'LabelB'] => { -bg => 'blue', -fg  => 'white'},
      LabelA               => { -text => 'A'},
      LabelB               => { -text => 'B'}


Rob Seegel (

syntax highlighting: