my $t_button = $nb->Button(-text=>'OK',
                           -command=>sub{exit});