summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-07-30 13:19:24 +0000
committerThierry Vignaud <tv@mandriva.org>2008-07-30 13:19:24 +0000
commitb1b008ce8376d14ac69ffd52d48d51fc230cbf68 (patch)
treea9889aa167c4df964b4e20dbe17e090525e5c3c7 /perl-install
parent79bcb7783916ecd828626865dd3cfed2d0ba8684 (diff)
downloaddrakx-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar
drakx-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar.gz
drakx-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar.bz2
drakx-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar.xz
drakx-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.zip
(_gtk__Fixed) add support for 'Gtk2::Fixed' widget
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm12
1 files changed, 12 insertions, 0 deletions
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 }