summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-23 17:31:35 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-23 17:31:35 +0000
commit7c308d4d2ade8e8d6604871a0656303478c7ab93 (patch)
tree7c9634411ab9e782976069cf30e66fd91b543ad8 /perl-install
parenta872836d40a06ff578bbb1577975f5b4f1eefc96 (diff)
downloaddrakx-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.pm2
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 });