summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-08 09:47:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-08 09:47:56 +0000
commit98f47ffc04b510e6263f1c294c55a77ab7e55fae (patch)
treeaf64b111feb2deec57c3f2c12071b794ca14ed50 /perl-install
parent64361da5e7afc49574493d694069dd8a53e9c8c7 (diff)
downloaddrakx-backup-do-not-use-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar
drakx-backup-do-not-use-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar.gz
drakx-backup-do-not-use-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar.bz2
drakx-backup-do-not-use-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar.xz
drakx-backup-do-not-use-98f47ffc04b510e6263f1c294c55a77ab7e55fae.zip
{rwindow} is more probably a mygtk2::MagicWindow
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 3 insertions, 4 deletions
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;