diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-08 09:47:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-08 09:47:56 +0000 |
| commit | 98f47ffc04b510e6263f1c294c55a77ab7e55fae (patch) | |
| tree | af64b111feb2deec57c3f2c12071b794ca14ed50 /perl-install/ugtk2.pm | |
| parent | 64361da5e7afc49574493d694069dd8a53e9c8c7 (diff) | |
| download | drakx-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar drakx-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar.gz drakx-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar.bz2 drakx-98f47ffc04b510e6263f1c294c55a77ab7e55fae.tar.xz drakx-98f47ffc04b510e6263f1c294c55a77ab7e55fae.zip | |
{rwindow} is more probably a mygtk2::MagicWindow
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
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; |