From a90958c07766976397d04eda6765bce9b84faaf6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 7 Jan 2005 10:50:55 +0000 Subject: add "Plug" --- perl-install/mygtk2.pm | 4 ++++ 1 file changed, 4 insertions(+) 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