Select Code to Download

$parent->Widget(
    -background => ...,
...
    -padX => ...,
    -padY => ...,
)

$parent->Widget()

-optionA => valueA, -optionb => valueB, -optionC => valueC

qw{-optionA valueA -optionb valueB -optionC valueC}

qw{-option1 value 1 ... -optionN valueN -command}, sub { ... }

...
sub _std_btn_pack_opts () {
...
...
$parent->Button(...)->pack(_std_btn_pack_opts);
...

$parent->Button(...)->pack(_std_btn_pack_opts, -anchor => 'n', -side =
+> 'right');

my $frame = $parent->Frame()->pack(); # NEEDED

...
        $status1->configure(-text => $new_statmsg1);
    },
)->pack(); # NOT NEEDED