From 3c86bfca024532cfbee0c2ba796f93d567af203f Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 1 Sep 2003 11:24:54 +0000
Subject: _ask_file: don't forget to overwrite $o->{window} as well or else it
 will be ->show'ed as a blank window (#5083)

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ffd6c5d90..4f434ce52 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1029,7 +1029,7 @@ sub _ask_okcancel($@) {
 sub _ask_file {
     my ($o, $title, $path) = @_;
     my ($modality, $position) = ($o->{rwindow}->get_modal, $o->{rwindow}->get('window-position'));
-    my $f = $o->{rwindow} = Gtk2::FileSelection->new($title);
+    my $f = $o->{rwindow} = $o->{window} = Gtk2::FileSelection->new($title);
     $f->set_modal($modality);
     $f->set_position($position);
     $path and $f->set_filename($path);
-- 
cgit v1.2.1