summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-17 17:02:02 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-17 17:02:02 +0000
commit7c5efa3977d21be86dcaa49f9303e132dcc58d8d (patch)
tree0d693ec892156aaf7eb49a46cff976bd21116987 /perl-install/ugtk2.pm
parent187adf95efa342c5b70306087fa039fc13338010 (diff)
downloaddrakx-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar
drakx-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar.gz
drakx-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar.bz2
drakx-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar.xz
drakx-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.zip
use stock items in wizards
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 07a8d9298..cafcf1ab0 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -471,8 +471,8 @@ sub create_packtable {
sub create_okcancel {
my ($w, $o_ok, $o_cancel, $o_spread, @other) = @_;
my $wizard_buttons = $::isWizard && !$w->{pop_it};
- my $cancel = defined $o_cancel || defined $o_ok ? $o_cancel : $wizard_buttons ? N("<- Previous") : 'gtk-cancel';
- my $ok = defined $o_ok ? $o_ok : $wizard_buttons ? ($::Wizard_finished ? N("Finish") : N("Next ->")) : 'gtk-ok';
+ my $cancel = defined $o_cancel || defined $o_ok ? $o_cancel : $wizard_buttons ? 'gtk-go-back' : 'gtk-cancel';
+ my $ok = defined $o_ok ? $o_ok : $wizard_buttons ? ($::Wizard_finished ? N("Finish") : 'gtk-go-forward') : 'gtk-ok';
my $b1 = gtksignal_connect($w->{ok} = Gtk2::Button->new_from_stock($ok), clicked => $w->{ok_clicked} || sub { $w->{retval} = 1; Gtk2->main_quit });
my $b2 = $cancel && gtksignal_connect($w->{cancel} = Gtk2::Button->new_from_stock($cancel), clicked => $w->{cancel_clicked} || sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk2->main_quit });
gtksignal_connect($w->{wizcancel} = Gtk2::Button->new_from_stock('gtk-cancel'), clicked => sub { die 'wizcancel' }) if $wizard_buttons && !$::isInstall;