From 48bc14536b460c09bd2ee1566a9fb83de64910ac Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 13 Apr 2001 11:54:43 +0000
Subject: (new): make dams happy

---
 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 ba05164fd..04dcf0364 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 $::isEmbedded or $_->{rwindow}->set_modal(0);
+	$_->{rwindow}->set_modal(0) if $_->{rwindow}->can('set_modal');
     }
     push @interactive::objects, $o if !$opts{no_interactive_objects};
     $o->{rwindow}->set_position('center_always') if $::isStandalone;
-- 
cgit v1.2.1