From b1013047af876ec8de2e1b59b5817907111d1053 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 19 Aug 2002 20:54:17 +0000
Subject: in my_gtk object, set {isEmbedded} if embedded and {isWizard} if
 displayed wizard mode

---
 perl-install/my_gtk.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/my_gtk.pm')

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);
-- 
cgit v1.2.1