summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk3.pm27
1 files changed, 27 insertions, 0 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 2662439ce..564af1d3f 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -753,6 +753,33 @@ sub _gtk__Expander {
+sub _gtk__Popover {
+ my ($w, $opts) = @_;
+
+ if ($w) {
+ $w->set_relative_to(delete $opts->{text}) if exists $opts->{text};
+ } else {
+ $w = Gtk3::Popover->new(delete $opts->{relative_to});
+ }
+ $w->set_use_markup(delete $opts->{use_markup}) if exists $opts->{use_markup};
+ $w->set_position(delete $opts->{position}) if exists $opts->{position};
+ $w->set_relative_to(delete $opts->{relative_to}) if exists $opts->{relative_to};
+ if (my $widget = delete $opts->{child}) {
+ $w->add($widget);
+ $widget->show;
+ }
+
+ $w->signal_connect(activate => delete $opts->{activate}) if exists $opts->{activate};
+
+ if (my $child = delete $opts->{child}) {
+ $w->add($child);
+ $child->show;
+ }
+ $w;
+}
+
+
+
sub _gtk__MDV_Notebook {
my ($w, $opts, $_class, $_action) = @_;
if (!$w) {