diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-07 10:50:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-07 10:50:55 +0000 |
| commit | a90958c07766976397d04eda6765bce9b84faaf6 (patch) | |
| tree | a9eba60e8bc5bd8f7d10fa857b8b6b01fd3034c0 /perl-install | |
| parent | 19a4947b30631dd24f53c254d9bf156c227e649f (diff) | |
| download | drakx-backup-do-not-use-a90958c07766976397d04eda6765bce9b84faaf6.tar drakx-backup-do-not-use-a90958c07766976397d04eda6765bce9b84faaf6.tar.gz drakx-backup-do-not-use-a90958c07766976397d04eda6765bce9b84faaf6.tar.bz2 drakx-backup-do-not-use-a90958c07766976397d04eda6765bce9b84faaf6.tar.xz drakx-backup-do-not-use-a90958c07766976397d04eda6765bce9b84faaf6.zip | |
add "Plug"
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mygtk2.pm | 4 |
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; } |