summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mygtk2.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index efd136178..de0a60810 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -396,12 +396,16 @@ sub _gtk__Frame {
sub _gtk__Window { &_gtk_any_Window }
sub _gtk__Dialog { &_gtk_any_Window }
+sub _gtk__Plug { &_gtk_any_Window }
sub _gtk_any_Window {
my ($w, $opts, $class) = @_;
if (!$w) {
if ($class eq 'Window') {
$w = "Gtk2::$class"->new(delete $opts->{type} || 'toplevel');
+ } elsif ($class eq 'Plug') {
+ $opts->{socket_id} or internal_error("can not create a Plug without a socket_id");
+ $w = "Gtk2::$class"->new(delete $opts->{socket_id});
} else {
$w = "Gtk2::$class"->new;
}