diff options
| -rw-r--r-- | perl-install/my_gtk.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index e11f3d3c8..64781733a 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -99,8 +99,7 @@ sub new { $::WizardTable->attach($o->{window}, 1, 2, 1, 2, {'fill', 'expand'}, {'fill', 'expand'}, 0, 0); } - $::isEmbedded or return $o; - $::Plug and return $o; + ($::isEmbedded && !$my_gtk::pop_it) or return $o; $o->{window} = new Gtk::HBox(0,0); $o->{rwindow} = $o->{window}; defined($::Plug) or $::Plug = new Gtk::Plug ($::XID); |