diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-05 14:08:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-05 14:08:18 +0000 |
| commit | f0e226d2ee9b2a3b2cf122d4be445f9920fef59e (patch) | |
| tree | 29532a5b5c9422bb59e9b27f8d5b07dc64ebd0a5 /perl-install/interactive | |
| parent | ccd20f76c6ecc6abc844aef0d21f111022b6fc61 (diff) | |
| download | drakx-f0e226d2ee9b2a3b2cf122d4be445f9920fef59e.tar drakx-f0e226d2ee9b2a3b2cf122d4be445f9920fef59e.tar.gz drakx-f0e226d2ee9b2a3b2cf122d4be445f9920fef59e.tar.bz2 drakx-f0e226d2ee9b2a3b2cf122d4be445f9920fef59e.tar.xz drakx-f0e226d2ee9b2a3b2cf122d4be445f9920fef59e.zip | |
remove stock icons (per IHM team request)
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 3118e1d30..fb71a595f 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -479,7 +479,7 @@ sub ask_fromW { %buttons = map { my $action = $_; - $action => gtksignal_connect(Gtk2::Button->new_from_stock(translate($action)), + $action => gtksignal_connect(Gtk2::Button->new(translate($action)), clicked => sub { $do_action->($action) }); } @actions; $real_w = gtkpack_(Gtk2::HBox->new(0,0), @@ -644,7 +644,7 @@ sub ask_fromW { 1, $create_widgets->($advanced_total_size, @widgets_advanced)); my @help = if_($common->{interactive_help}, - [ 'gtk-help', sub { + [ N("Help"), sub { my $message = $common->{interactive_help}->() or return; $o->ask_warn(N("Help"), $message); }, 1 ]); @@ -754,11 +754,11 @@ sub kill { } sub ok { - 'gtk-ok' + N("Ok"); } sub cancel { - 'gtk-cancel' + N("Cancel"); } 1; |