From b1b008ce8376d14ac69ffd52d48d51fc230cbf68 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 30 Jul 2008 13:19:24 +0000
Subject: (_gtk__Fixed) add support for 'Gtk2::Fixed' widget

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

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index e6ea6d493..b8bec3b43 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -574,6 +574,18 @@ sub _gtk__Expander {
     $w;
 }
 
+sub _gtk__Fixed {
+    my ($w, $opts, $_class, $action) = @_;
+	
+    if (!$w) {
+	$w = Gtk2::Fixed->new;
+	$w->set_has_window(delete $opts->{has_window}) if exists $opts->{has_window};
+        $w->put(delete $opts->{child}, delete $opts->{x}, delete $opts->{y}) if exists $opts->{child};
+    }
+    $w;
+}
+
+
 sub _gtk__Window { &_gtk_any_Window }
 sub _gtk__Dialog { &_gtk_any_Window }
 sub _gtk__Plug   { &_gtk_any_Window }
-- 
cgit v1.2.1