summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/my_gtk.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index e11f3d3c8..64781733a 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -99,8 +99,7 @@ sub new {
$::WizardTable->attach($o->{window}, 1, 2, 1, 2, {'fill', 'expand'}, {'fill', 'expand'}, 0, 0);
}
- $::isEmbedded or return $o;
- $::Plug and return $o;
+ ($::isEmbedded && !$my_gtk::pop_it) or return $o;
$o->{window} = new Gtk::HBox(0,0);
$o->{rwindow} = $o->{window};
defined($::Plug) or $::Plug = new Gtk::Plug ($::XID);