From cca23bf47b1c008a4385beefd02410b22c9bae12 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 23 Nov 2013 03:24:07 +0100
Subject: add support for ToolButton

---
 perl-install/mygtk3.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 16988905a..68ae21467 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -218,6 +218,19 @@ sub _gtk_any_Button {
     $w;
 }
 
+sub _gtk__ToolButton {
+    my ($w, $opts, $class) = @_;
+
+    if (!$w) {
+	$w = "Gtk3::$class"->new(gtknew('Image', file => delete $opts->{file}),
+				 delete $opts->{label});
+	$w->set_tooltip_text(delete $opts->{tooltip}) if $opts->{tooltip};
+	$w->signal_connect(clicked => delete $opts->{clicked}) if exists $opts->{clicked};
+    }
+
+    $w;
+}
+
 sub _gtk__CheckMenuItem {
     my ($w, $opts, $class) = @_;
 
-- 
cgit v1.2.1