diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-14 03:11:59 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-14 03:11:59 +0000 |
| commit | e2b89187c23d32a83021a2e17ec0b02f71ce07ae (patch) | |
| tree | 8ecc6485a58582dd446b60ee7aecb1e0f5802dce /perl-install | |
| parent | 1e2d80af3fcf6a7deab711903d58f9380f2c1cf4 (diff) | |
| download | drakx-e2b89187c23d32a83021a2e17ec0b02f71ce07ae.tar drakx-e2b89187c23d32a83021a2e17ec0b02f71ce07ae.tar.gz drakx-e2b89187c23d32a83021a2e17ec0b02f71ce07ae.tar.bz2 drakx-e2b89187c23d32a83021a2e17ec0b02f71ce07ae.tar.xz drakx-e2b89187c23d32a83021a2e17ec0b02f71ce07ae.zip | |
sanitize capitale usage on buttons
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakTermServ | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakbackup | 3 | ||||
| -rwxr-xr-x | perl-install/standalone/drakfont | 2 |
3 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index cc696b0fd..b5dce9d55 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -198,7 +198,7 @@ sub display_error { $error_box = gtkpack_(Gtk2::VBox->new(0,0), 1, Gtk2::Label->new($message), 0, gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'spread'), - gtksignal_connect(Gtk2::Button->new(N("OK")), clicked => sub { + gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { destroy_widget(); }), ), @@ -471,7 +471,7 @@ sub text_view { ), ), 0, gtkpack(gtkset_layout(Gtk2::HButtonBox->new, 'spread'), - gtksignal_connect(my $ok_button = Gtk2::Button->new(N("OK")), clicked => sub { + gtksignal_connect(my $ok_button = Gtk2::Button->new(N("Ok")), clicked => sub { destroy_widget() if $option eq "close"; do_wizard() if $option eq "wizard"; }), diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 1c92f310d..9edfe6c13 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -2516,8 +2516,7 @@ sub system_state() { } #- tape and CDRW share some features - my $erase_media = N("NO"); - $erase_media = N("YES") if $conf{MEDIA_ERASE} && ($conf{USE_CD} || $conf{USE_TAPE}); + my $erase_media = $conf{MEDIA_ERASE} && ($conf{USE_CD} || $conf{USE_TAPE}) ? N("Yes") : N("No"); $conf{USE_CD} and $system_state .= N("\n- Burn to CD"); $conf{USE_CD} and $conf{CDRW} and $system_state .= N("RW"); $conf{USE_CD} and $system_state .= N(" on device: %s", $conf{CD_DEVICE}); diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 828a969ac..1bf891793 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -574,7 +574,7 @@ sub appli_choice() { ), ], [ - gtksignal_connect(Gtk2::Button->new(N("OK")), + gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => \&exitdialog, ), ], |