diff options
| author | damien <damien@mandriva.com> | 2002-02-20 12:20:47 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-02-20 12:20:47 +0000 |
| commit | c13991fce7b52fb9a134533a75993f877a65bd04 (patch) | |
| tree | 53a0525ea0906c0a7101473663644b23fd1041af /perl-install/my_gtk.pm | |
| parent | c49849db1716200b49714c213bea7c794c686790 (diff) | |
| download | drakx-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.pm | 15 |
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; } |