diff options
| -rw-r--r-- | perl-install/my_gtk.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 343657ba8..356b494ea 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -42,6 +42,7 @@ sub new { $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab}; if ($::isWizard && !$my_gtk::pop_it) { + $o->{isWizard} = 1; $o->{window} = new Gtk::VBox(0,0); $o->{window}->set_border_width($::Wizard_splash ? 0 : 10); $o->{rwindow} = $o->{window}; @@ -91,6 +92,7 @@ sub new { } if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug->child }) { + $o->{isEmbedded} = 1; $o->{window} = new Gtk::HBox(0,0); $o->{rwindow} = $o->{window}; $::Plug ||= new Gtk::Plug ($::XID); |