From caa15d0d38a04dd4016e6d38ceccbe5d4df4d165 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 19 Feb 2003 17:10:19 +0000
Subject: clean

---
 perl-install/ugtk2.pm | 3 ---
 1 file changed, 3 deletions(-)

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a8a933b3f..bf3006214 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -737,9 +737,6 @@ sub new {
     my $o = bless { %opts }, $type;
     $o->_create_window($title);
     while (my $e = shift @tempory::objects) { $e->destroy }
-    foreach (@interactive::objects) {
-#	$_->{rwindow}->set_modal(0) if $_->{rwindow}->can('set_modal');      FIXME
-    }
     push @interactive::objects, $o if !$opts{no_interactive_objects};
     $o->{rwindow}->set_position('center-always') if $::isStandalone;
     $o->{rwindow}->set_modal(1) if ($grab || $o->{grab} || $o->{modal}) && !$::isInstall;
-- 
cgit v1.2.1