sub button_setup($prog_select) {
    
    my $prog = shift;

    foreach my $key (keys %{$button{$prog}}) {

	my $key = $buttons->Button(
	    -text    =>  $key, 
	    -width   =>  '10',
	    -command =>  sub {system "$button{$prog}{$key}";}
	    )->pack(-side => 'top', -pady=>'10');
    }
}