diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-17 17:02:02 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-17 17:02:02 +0000 |
| commit | 7c5efa3977d21be86dcaa49f9303e132dcc58d8d (patch) | |
| tree | 0d693ec892156aaf7eb49a46cff976bd21116987 /perl-install | |
| parent | 187adf95efa342c5b70306087fa039fc13338010 (diff) | |
| download | drakx-backup-do-not-use-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar drakx-backup-do-not-use-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar.gz drakx-backup-do-not-use-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar.bz2 drakx-backup-do-not-use-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.tar.xz drakx-backup-do-not-use-7c5efa3977d21be86dcaa49f9303e132dcc58d8d.zip | |
use stock items in wizards
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
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; |