my ($ll, $sl, $rl) = ($self->{ll}, $self->{sl}, $self->{rl});
$ll->packForget;
$sl->packForget;
$rl->packForget;
$ll->pack;
$sl->pack;
$rl->pack;
});
} # end Populate
# Private methods and subroutines.
sub llabel {
my ($self, $args) = @_;
$self->{ll}->configure(@$args);
} # end llabel
sub rlabel {
my ($self, $args) = @_;
$self->{rl}->configure(@$args);
} # end rlabel
1;
package main;
use vars qw / $TOP /;
use strict;
sub slide {
my( $demo ) = @_;
$TOP = $MW->WidgetDemo(
-name => $demo,
-text => "This demonstration creates a new composite SlideSwitch widget that can be either on or off. The widget is really a customized Scale widget.",