From bfb93b8300dbb59f7e51ee6da982cc0d54c988cf Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 11 Apr 2001 23:49:20 +0000
Subject: no setmodal 0 if wizard

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index fba9604c3..77f57ce97 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -40,7 +40,7 @@ sub new {
     $o->_create_window($title);
     while (my $e = shift @tempory::objects) { $e->destroy }
     foreach (@interactive::objects) {
-	$_->{rwindow}->set_modal(0);
+	$::isWizard or $_->{rwindow}->set_modal(0);
     }
     push @interactive::objects, $o if !$opts{no_interactive_objects};
     $o->{rwindow}->set_position('center_always') if $::isStandalone;
-- 
cgit v1.2.1