summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-07 13:22:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-07 13:22:12 +0000
commit3bd2c32983f5d5352d5a1ba6362704fa1ac274bc (patch)
treeffe2ed7c30905563e2fd3eb7e93b09b609889c34 /perl-install/my_gtk.pm
parent69772d4a6d5a625154c787a0bc69694de6e968a3 (diff)
downloaddrakx-3bd2c32983f5d5352d5a1ba6362704fa1ac274bc.tar
drakx-3bd2c32983f5d5352d5a1ba6362704fa1ac274bc.tar.gz
drakx-3bd2c32983f5d5352d5a1ba6362704fa1ac274bc.tar.bz2
drakx-3bd2c32983f5d5352d5a1ba6362704fa1ac274bc.tar.xz
drakx-3bd2c32983f5d5352d5a1ba6362704fa1ac274bc.zip
ensure no more than one child is in the Plug
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});