From 8bcf945dbec5accd4011940ad8a166d19145d8f1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 6 Jul 2003 17:58:22 +0000
Subject: increase gui coherency of drakxtools vs other gtk+ apps: use stock
 icons

---
 perl-install/interactive/gtk.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/interactive')

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 ]);
-- 
cgit v1.2.1