my $fA = $mw->Frame(
                -background => 'purple',
                -highlightbackground => 'maroon',
                -highlightthickness  => '1',
                    )->pack(
                        -side => 'bottom',
                        #-fill => 'x',
                            );