fix GimmeChoice by using interactive (do not quit the whole program on

success, wait the answer to really return the choice made by the user)
(#10246)

1 files changed, 1 insertions, 13 deletions

diff --git a/userdrake b/userdrake
index 9fa7ade..94cade4 100755
--- a/userdrake
+++ b/userdrake
@@ -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 {