summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mygtk3.pm13
1 files changed, 13 insertions, 0 deletions
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) = @_;