From 498282d5ee4da1eafb6a910065d1bade333e6b7c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 27 Mar 2008 13:25:31 +0000
Subject: allow to create buttons with stock icons (for drakguard)

---
 perl-install/NEWS      | 2 ++
 perl-install/mygtk2.pm | 3 +++
 2 files changed, 5 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 6493b6642..e61fb6625 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -6,6 +6,8 @@
   o fix reading grub conf (#39346)
 - services backend:
   o handle services with "-" as default chkconfig level in more places
+- mygtk2:
+  o allow to create buttons with stock icons (for drakguard)
 
 Version 10.20 - 25 March 2008
 
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 9c2d100ca..6f5bc48d1 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -179,6 +179,9 @@ sub _gtk_any_Button {
 	$set->();
     } elsif (exists $opts->{text}) {
 	$w->set_label(delete $opts->{text});
+    } elsif (exists $opts->{stock}) {
+	$w->set_label(delete $opts->{stock});
+	$w->set_use_stock(1);
     }
 
     if ($class eq 'Button') {
-- 
cgit v1.2.1