##
$yscroll=$mw->Scrollbar()->pack(-fill=>'y', -side=>'right',);
$yscroll->configure( -command => [ \&ScrollAll, $yscroll, [$p1, $p2, $p3, $p4, $p5]]);
sub ScrollAll {
my ($sb, $wigs, @args) = @_;
foreach my $w (@$wigs) {
$w->yview(@args);
}
}
####
-command => sub {
subname ($p1, $p2, $p3, $p4, $p5);
}