summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index d2effe1ee..f3af1e0b9 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -419,7 +419,7 @@ sub ask_fromW {
if ($e->{image}) {
$w = gtkadd(Gtk2::CheckButton->new, gtkshow(gtkcreate_img($e->{image})));
} else {
- $w = Gtk2::CheckButton->new($e->{text});
+ $w = Gtk2::CheckButton->new_from_stock($e->{text});
}
$w->signal_connect(clicked => $changed);
$set = sub { $w->set_active($_[0]) };
@@ -489,7 +489,7 @@ sub ask_fromW {
%buttons = map {
my $action = $_;
- $action => gtksignal_connect(Gtk2::Button->new(translate($action)),
+ $action => gtksignal_connect(Gtk2::Button->new_from_stock(translate($action)),
clicked => sub { $do_action->($action) });
} @actions;
$real_w = gtkpack_(Gtk2::HBox->new(0,0),
@@ -649,7 +649,7 @@ sub ask_fromW {
1, $create_widgets->($advanced_total_size, @widgets_advanced));
my @help = if_($common->{interactive_help},
- [ N("Help"), sub {
+ [ 'gtk-help', sub {
my $message = $common->{interactive_help}->() or return;
$o->ask_warn(N("Help"), $message);
}, 1 ]);