From 3bd2c32983f5d5352d5a1ba6362704fa1ac274bc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 7 Feb 2002 13:22:12 +0000
Subject: ensure no more than one child is in the Plug

---
 perl-install/my_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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});
-- 
cgit v1.2.1