Perl/Tk saves your favorite tools

Main
back: Derived widget -2
next: Mega widget -2

Mega widgets combine many widgets into a larger one. This is more complex than a derived widget because there are more possibilities. I keep the example simple.

You may also include a Populate which calls ConfigSpecs, because that will be called by the InitObject of the base-class. Maybe that would be nicer than where I put it.

   $self->Component('vu', 'vu1', options)->pack;

is equivalent to

   my $v = $self->vu(options)->pack;
   $self->Advertise(vu1 => $v);

The advertising means that the internal object of this widget can be reached by other widgets via

   $vumeter->Subwidget('vu1');

Derived widget -2

Mega widget -2

Created by Mark Overmeer with PPresenter on 22 May 2000.