summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-02-20 12:20:47 +0000
committerdamien <damien@mandriva.com>2002-02-20 12:20:47 +0000
commitc13991fce7b52fb9a134533a75993f877a65bd04 (patch)
tree53a0525ea0906c0a7101473663644b23fd1041af /perl-install/my_gtk.pm
parentc49849db1716200b49714c213bea7c794c686790 (diff)
downloaddrakx-c13991fce7b52fb9a134533a75993f877a65bd04.tar
drakx-c13991fce7b52fb9a134533a75993f877a65bd04.tar.gz
drakx-c13991fce7b52fb9a134533a75993f877a65bd04.tar.bz2
drakx-c13991fce7b52fb9a134533a75993f877a65bd04.tar.xz
drakx-c13991fce7b52fb9a134533a75993f877a65bd04.zip
added mcc kill if wait message
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm15
1 files changed, 8 insertions, 7 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 0a0c721e0..d77434780 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -95,13 +95,14 @@ sub new {
$::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0);
}
- $::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child } or return $o;
- $o->{window} = new Gtk::HBox(0,0);
- $o->{rwindow} = $o->{window};
- $::Plug ||= new Gtk::Plug ($::XID);
- $::Plug->show;
- flush();
- $::Plug->add($o->{window});
+ if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child }) {
+ $o->{window} = new Gtk::HBox(0,0);
+ $o->{rwindow} = $o->{window};
+ $::Plug ||= new Gtk::Plug ($::XID);
+ $::Plug->show;
+ flush();
+ $::Plug->add($o->{window});
+ }
$::CCPID and kill "USR2", $::CCPID;
$o;
}