summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-07 10:50:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-07 10:50:55 +0000
commita90958c07766976397d04eda6765bce9b84faaf6 (patch)
treea9eba60e8bc5bd8f7d10fa857b8b6b01fd3034c0 /perl-install
parent19a4947b30631dd24f53c254d9bf156c227e649f (diff)
downloaddrakx-a90958c07766976397d04eda6765bce9b84faaf6.tar
drakx-a90958c07766976397d04eda6765bce9b84faaf6.tar.gz
drakx-a90958c07766976397d04eda6765bce9b84faaf6.tar.bz2
drakx-a90958c07766976397d04eda6765bce9b84faaf6.tar.xz
drakx-a90958c07766976397d04eda6765bce9b84faaf6.zip
add "Plug"
Diffstat (limited to 'perl-install')
-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;
}