diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-07-30 13:19:24 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-07-30 13:19:24 +0000 |
commit | b1b008ce8376d14ac69ffd52d48d51fc230cbf68 (patch) | |
tree | a9889aa167c4df964b4e20dbe17e090525e5c3c7 /perl-install | |
parent | 79bcb7783916ecd828626865dd3cfed2d0ba8684 (diff) | |
download | drakx-backup-do-not-use-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar drakx-backup-do-not-use-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar.gz drakx-backup-do-not-use-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar.bz2 drakx-backup-do-not-use-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.tar.xz drakx-backup-do-not-use-b1b008ce8376d14ac69ffd52d48d51fc230cbf68.zip |
(_gtk__Fixed) add support for 'Gtk2::Fixed' widget
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/mygtk2.pm | 12 |
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 } |