diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-19 20:54:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-19 20:54:17 +0000 |
| commit | b1013047af876ec8de2e1b59b5817907111d1053 (patch) | |
| tree | 968dfd35a525a074ecf1fcef444b79f47857e49b /perl-install | |
| parent | d4883872a8d7ec2e4955c8f7b6ddba7ba21af901 (diff) | |
| download | drakx-b1013047af876ec8de2e1b59b5817907111d1053.tar drakx-b1013047af876ec8de2e1b59b5817907111d1053.tar.gz drakx-b1013047af876ec8de2e1b59b5817907111d1053.tar.bz2 drakx-b1013047af876ec8de2e1b59b5817907111d1053.tar.xz drakx-b1013047af876ec8de2e1b59b5817907111d1053.zip | |
in my_gtk object, set {isEmbedded} if embedded and {isWizard} if displayed wizard mode
Diffstat (limited to 'perl-install')
| -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); |