summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk3.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/mygtk3.pm')
-rw-r--r--perl-install/mygtk3.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index a4f790d89..97e64290a 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -896,6 +896,7 @@ sub _gtk_any_Window {
if ($class eq 'Window') {
$w = "Gtk3::$class"->new(delete $opts->{type} || 'toplevel');
} elsif ($class eq 'Plug') {
+ delete $opts->{title};
$opts->{socket_id} or internal_error("cannot create a Plug without a socket_id");
$w = "Gtk3::$class"->new(delete $opts->{socket_id});
} elsif ($class eq 'FileChooserDialog') {