Perl/Tk saves your favourite tools

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

Derived widget -2 Mega widget -2

Created by Mark Overmeer with PPresenter on 11 juli 2001.