Select Code to Download

my $fA = $mw->Frame(
                -background => 'purple',
...
                        -fill => 'x',
                            );

my $fA = $mw->Frame(
                -background => 'purple',
...
                        -side => 'bottom',
                        #-fill => 'x',
                            );