my %black_on_tan = (-fg=>'black',
                    -bg=>'tan',
                    -activebackground=>'blue',
                    -activeforeground=>'red');
my %black_on_yel = (-fg=>'black',
                    -bg=>'yellow',
                    -activebackground=>'yellow',
                    -activeforeground=>'black');
# ...

my $see_list=$w->Button(-text=>'See Deleted List', %black_on_tan);

# likewise for other buttons...