From d3683be478c53b5576a74cdba6ab7db4b7c91aaa Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 12 Apr 2001 06:57:39 +0000
Subject: corrected set_modal

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

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 77f57ce97..2e1693304 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) {
-	$::isWizard or $_->{rwindow}->set_modal(0);
+	$::isWizard or $::isEmbedded 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