diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2006-02-09 16:47:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2006-02-09 16:47:27 +0000 |
| commit | 73b8a09f0186a8f7559235f85f8317a35cd91118 (patch) | |
| tree | 1da7ea3eadab7488cc05384cf1a72917589a0afb /perl-install | |
| parent | 51966d938c3dece2a3145f6f83027fc087f13149 (diff) | |
| download | drakx-73b8a09f0186a8f7559235f85f8317a35cd91118.tar drakx-73b8a09f0186a8f7559235f85f8317a35cd91118.tar.gz drakx-73b8a09f0186a8f7559235f85f8317a35cd91118.tar.bz2 drakx-73b8a09f0186a8f7559235f85f8317a35cd91118.tar.xz drakx-73b8a09f0186a8f7559235f85f8317a35cd91118.zip | |
(show_list_to_remove) nicer GUI:
- use standard verbs on button
- use a standard & meaningfull title
- add a sentence explaining the purpose of the dialog
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index d8ad60215..258d99af0 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -676,14 +676,15 @@ sub show_list_to_remove() { $model->append_set(undef, [ 0 => $_ ]) foreach @uninstall; - dialog(N("Uninstall"), + dialog(N("Warning"), [ + 0, Gtk2::Label->new(N("Are you sure you want to uninstall the following fonts?")), 1, gtkpack_(Gtk2::HBox->new(0, 4), 1, create_scrolled_window($list)), ], [ - gtksignal_connect(Gtk2::Button->new(N("click here if you are sure.")), + gtksignal_connect(Gtk2::Button->new(N("Yes")), clicked => sub { import_status_uninstall(); exitdialog() }), - gtksignal_connect(Gtk2::Button->new(N("here if no.")), + gtksignal_connect(Gtk2::Button->new(N("No")), clicked => \&exitdialog ), ], |