diff options
| -rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 1 | ||||
| -rwxr-xr-x | perl_checker_fake_packages/gen.pl | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 69bf025..4cf9432 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -1226,6 +1226,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_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 7b45b7d..b78d140 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -5,7 +5,9 @@ use MDK::Common; sub gtk2 { my (@files) = @_; - my @subroutines; + my @subroutines = ( + [ 'set_size_request', ' { my ($_self, $_x, $_y) = @_ }' ], + ); my $add = sub { push @subroutines, [ $_[0], $_[1] ]; }; |