summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-19 20:54:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-19 20:54:17 +0000
commitb1013047af876ec8de2e1b59b5817907111d1053 (patch)
tree968dfd35a525a074ecf1fcef444b79f47857e49b /perl-install
parentd4883872a8d7ec2e4955c8f7b6ddba7ba21af901 (diff)
downloaddrakx-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.pm2
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);