diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 41240ac46..6445b39b5 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -751,6 +751,7 @@ sub ask_browse_tree_info_refW { sub wait_messageW($$$) { my ($o, $title, $messages) = @_; + local $my_gtk::pop_it = 1; my $w = my_gtk->new($title, %$o, grab => 1); gtkadd($w->{window}, my $hbox = new Gtk::HBox(0,0)); $hbox->pack_start(my $box = new Gtk::VBox(0,0), 1, 1, 10); |