diff options
| -rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 3 | ||||
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 4cf9432..84bee00 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -386,6 +386,7 @@ sub Gtk2::change { my ($_list, $_attr) = @_ } sub Gtk2::changed { my ($_adjustment) = @_ } sub Gtk2::changed_mask { my ($_event) = @_ } sub Gtk2::check_resize { my ($_container) = @_ } +sub Gtk2::child { my ($_self) = @_ } sub Gtk2::child_focus { my ($_widget, $_direction) = @_ } sub Gtk2::child_notify { my ($_widget, $_child_property) = @_ } sub Gtk2::child_position { my ($_list, $_child) = @_ } @@ -1226,7 +1227,7 @@ sub Gtk2::set_show_events { my ($_class, $_show_events) = @_ } sub Gtk2::set_show_tabs { my ($_notebook, $_show_tabs) = @_ } sub Gtk2::set_single_paragraph_mode { my ($_layout, $_setting) = @_ } sub Gtk2::set_size {} -sub Gtk2::set_size_request { my ($_x, $_y) = @_ } +sub Gtk2::set_size_request { my ($_self, $_x, $_y) = @_ } sub Gtk2::set_size_wildcarded { my ($_source, $_setting) = @_ } sub Gtk2::set_sizing { my ($_tree_column, $_type) = @_ } sub Gtk2::set_snap_edge { my ($_handle_box, $_edge) = @_ } diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index b78d140..fc67919 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -57,7 +57,7 @@ sub gtk2 { #- methods with no argument #- my $values = shift->_get_size_request; - if (/$subroutine_decl\my.*=\s*shift->\w+\s*;/) { + if (/$subroutine_decl(my.*=)?\s*shift->\w+\s*((;)|(}))\s*$/) { $add->($fun, ' { my ($_self) = @_ }'); } |