diff options
-rwxr-xr-x | userdrake | 14 |
1 files changed, 1 insertions, 13 deletions
@@ -416,19 +416,7 @@ sub ChooseGroup() { } sub GimmeChoice { my ($title, $text) = @_; - my $w = NewWindow(N("Choice"), 1); - my $choice; - gtkadd($w, - gtkpack__(Gtk2::VBox->new(0,5), - Gtk2::Label->new($text), - Gtk2::HSeparator->new, - gtkpack(create_hbox(), - gtksignal_connect(Gtk2::Button->new(N("Yes")), clicked => sub { - $choice = 1; - Gtk2->main_quit; - }), - gtksignal_connect(Gtk2::Button->new(N("No")), clicked => sub { $choice = 0; $error = 1; $w->destroy })))); - $w->show_all; + my $choice = $in->ask_yesorno($title, $text) or $error = 1; $choice; } sub AddGroup { |