diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-10-05 05:47:15 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-10-05 05:47:15 +0000 |
| commit | 8d483b425f0a46466e3ee8cdb75fb2924c482001 (patch) | |
| tree | 7832912d4ce6e030df9b9c12312cbae3847ebde2 /perl-install | |
| parent | 460f4cff442cc42bdb005cad90cda0a28aafc934 (diff) | |
| download | drakx-8d483b425f0a46466e3ee8cdb75fb2924c482001.tar drakx-8d483b425f0a46466e3ee8cdb75fb2924c482001.tar.gz drakx-8d483b425f0a46466e3ee8cdb75fb2924c482001.tar.bz2 drakx-8d483b425f0a46466e3ee8cdb75fb2924c482001.tar.xz drakx-8d483b425f0a46466e3ee8cdb75fb2924c482001.zip | |
fix closing import dialog (#11052)
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 1bf891793..138746f0f 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -587,12 +587,14 @@ sub font_choice() { my $file_dialog; $select_font_msg = N("Select the font file or directory and click on 'Add'"); $file_dialog = Gtk2::FileSelection->new(N("File Selection")); + $file_dialog->signal_connect(delete_event => sub { print "DESTROY\n"; $file_dialog->response('close') }); $file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog); $file_dialog->ok_button->set_label(N("Add")); - $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy }); + $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->response('cancel') }); $file_dialog->cancel_button->set_label(N("Close")); $file_dialog->show; $file_dialog->run; + $file_dialog->destroy; } sub file_ok_sel { @@ -607,7 +609,7 @@ sub file_ok_sel { $model->append_set(undef, [ 0 => $file_name ]); } } - Gtk2->main; + $file_selection->response('ok') } sub list_remove() { #- TODO : multi-selection |