major move. now ask_from_list returns false when canceled (it doesn't die 'ask_from_list canceled' anymore)

1 files changed, 4 insertions, 0 deletions

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 69140aad9..8cc04ac79 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -28,6 +28,10 @@ sub exit {
     c::_exit($_[0]) #- workaround 
 }
 
+sub ask_warn {
+    local $my_gtk::pop_it = 1;
+    &interactive::ask_warn;
+}
 sub create_clist {
     my ($e, $may_go_to_next, $changed) = @_;
     my (@widgets, $curr);