summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-06 18:20:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-06 18:20:31 +0000
commit256c1b6fad5ccb85a8ac5bef1ac65b63e25ac1c8 (patch)
tree25bbde590a953593fdf7ffdccbe842c9d34dc334 /perl-install
parentc232617b2a0156f5a512a4ad5238f084d63b30ed (diff)
downloaddrakx-256c1b6fad5ccb85a8ac5bef1ac65b63e25ac1c8.tar
drakx-256c1b6fad5ccb85a8ac5bef1ac65b63e25ac1c8.tar.gz
drakx-256c1b6fad5ccb85a8ac5bef1ac65b63e25ac1c8.tar.bz2
drakx-256c1b6fad5ccb85a8ac5bef1ac65b63e25ac1c8.tar.xz
drakx-256c1b6fad5ccb85a8ac5bef1ac65b63e25ac1c8.zip
prevent one to pop up hundred of windows: make browse dialog be modal
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksplash4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 4819698ad..c1d60608a 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -159,7 +159,9 @@ $first{widgets}{combo}{res}->entry->signal_connect(changed => sub {
#$first{widgets}{button}{boot_conf}->signal_connect(clicked => sub{show_act(\%boot_conf_frame) } );
#- image file selection for new theme
$first{widgets}{button}{file}->signal_connect(clicked => sub {
- my $file_dialog = new Gtk2::FileSelection(N("choose image"));
+ my $file_dialog = gtkset_modal(Gtk2::FileSelection->new(N("choose image")), 1);
+ $file_dialog->set_transient_for($window->{rwindow});
+
$file_dialog->set_filename($first{widgets}{label}{file}->get_text ne N("choose image file") ? $first{widgets}{label}{file}->get_text : '~/');
$file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
$file_dialog->ok_button->signal_connect(clicked => sub { $first{widgets}{label}{file}->set_text($file_dialog->get_filename); $file_dialog->destroy });