From 98f47ffc04b510e6263f1c294c55a77ab7e55fae Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 8 Feb 2005 09:47:56 +0000
Subject: {rwindow} is more probably a mygtk2::MagicWindow

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

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 2721fa1fe..4cb39422d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -942,10 +942,9 @@ sub _ask_okcancel($@) {
 sub _ask_file {
     my ($o, $title, $path) = @_;
     my $f = Gtk2::FileSelection->new($title);
-    if ($o->{rwindow}->isa('Gtk2::Window')) {
-	my ($modality, $position) = ($o->{rwindow}->get_modal, $o->{rwindow}->get('window-position'));
-	$f->set_modal($modality);
-	$f->set_position($position);
+    if ($o->{rwindow}->isa('mygtk2::MagicWindow')) {
+	$f->set_modal($o->{rwindow}->get_modal);
+	$f->set_position($o->{rwindow}->get('window-position'));
     }
     my $bg = $o->{window};
     $o->{rwindow} = $o->{window} = $f;
-- 
cgit v1.2.1