From 6d7ea2ef97db70b37e21f80e473e54dc9102a73c Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 29 Apr 2003 20:58:59 +0000 Subject: add undetected functions --- perl_checker_fake_packages/Gtk2.pm | 1 + perl_checker_fake_packages/gen.pl | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) 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] ]; }; -- cgit v1.2.1