summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 39b5b743d..6ec6baaea 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -95,10 +95,10 @@ sub new {
$::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0);
}
- $::isEmbedded && !$my_gtk::pop_it or return $o;
+ $::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child } or return $o;
$o->{window} = new Gtk::HBox(0,0);
$o->{rwindow} = $o->{window};
- defined($::Plug) or $::Plug = new Gtk::Plug ($::XID);
+ $::Plug ||= new Gtk::Plug ($::XID);
$::Plug->show;
flush();
$::Plug->add($o->{window});