From 2f8ee0ef2b920ad8125b34339bce7b4f241e2812 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Nov 2013 13:21:02 +0100
Subject: use new Toolbar API (mga#11791)

old toolbar API is no more available:
Can't locate object method "append_item" via package Gtk3:Toolbar" at
ugtk3.pm line 954
---
 perl-install/install/NEWS | 1 +
 perl-install/ugtk3.pm     | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 6474730bc..193d30c08 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,7 @@
 - fix a warning: include dialog-warning-symbolic
 - fix left panel text being black instead of white (mga#11792)
 - fix calling "child1_shrink" via package "Gtk3::HPaned" (mga#11797)
+- fix using old toolbar API that is no more available (mga#11791)
 
 Version 16.0 - 23 November 2013
 
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index dad860cb8..ce3db3e31 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -951,7 +951,8 @@ sub ask_browse_tree_info {
     }
     my %toolbar = @toolbar;
     foreach (grep_index { $::i % 2 == 0 } @toolbar) {
-	$toolbar->append_item(undef, $toolbar{$_}[0], undef, gtkcreate_img("$_.png"), $toolbar{$_}[1]);
+	my $t = gtknew('ToolButton', tooltip => $toolbar{$_}[0], file => "$_.png", clicked => $toolbar{$_}[1]);
+	$toolbar->insert($t, -1);
     }
 
     $pixcolumn->{is_pix} = 1;
-- 
cgit v1.2.1