diff options
Diffstat (limited to 'perl-install')
| -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; } |