diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-23 17:31:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-23 17:31:35 +0000 |
| commit | 7c308d4d2ade8e8d6604871a0656303478c7ab93 (patch) | |
| tree | 7c9634411ab9e782976069cf30e66fd91b543ad8 /perl-install | |
| parent | a872836d40a06ff578bbb1577975f5b4f1eefc96 (diff) | |
| download | drakx-7c308d4d2ade8e8d6604871a0656303478c7ab93.tar drakx-7c308d4d2ade8e8d6604871a0656303478c7ab93.tar.gz drakx-7c308d4d2ade8e8d6604871a0656303478c7ab93.tar.bz2 drakx-7c308d4d2ade8e8d6604871a0656303478c7ab93.tar.xz drakx-7c308d4d2ade8e8d6604871a0656303478c7ab93.zip | |
Force to open file selector as a modal window (bug 13942)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 1cffcb3d7..4a3bfb86c 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -940,7 +940,7 @@ sub _ask_okcancel($@) { sub create_file_selector { my (%opts) = @_; - my $w = ugtk2->new(delete $opts{title}); + my $w = ugtk2->new(delete $opts{title}, modal => 1); my ($message, $save, $want_a_dir) = (delete $opts{message}, delete $opts{save}, delete $opts{want_a_dir}); my $action = $want_a_dir ? ($save ? 'create_folder' : 'select_folder') : ($save ? 'save' : 'open'); add2hash(\%opts, { width => 480, height => 250 }); |