From a90958c07766976397d04eda6765bce9b84faaf6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 7 Jan 2005 10:50:55 +0000
Subject: add "Plug"

---
 perl-install/mygtk2.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/mygtk2.pm')

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;
 	}
-- 
cgit v1.2.1