diff options
author | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:22:54 +0000 |
---|---|---|
committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-04-29 21:22:54 +0000 |
commit | e7890036ded94384514af395d51bc8f0d067fc97 (patch) | |
tree | bf5eb70e5f44f896ac77776671e47b0122889453 /perl_checker_fake_packages/gen.pl | |
parent | f46e241cf4263ac3e75cd7fdc3b622b4aab7428f (diff) | |
download | perl_checker-e7890036ded94384514af395d51bc8f0d067fc97.tar perl_checker-e7890036ded94384514af395d51bc8f0d067fc97.tar.gz perl_checker-e7890036ded94384514af395d51bc8f0d067fc97.tar.bz2 perl_checker-e7890036ded94384514af395d51bc8f0d067fc97.tar.xz perl_checker-e7890036ded94384514af395d51bc8f0d067fc97.zip |
add a few complex functions
Diffstat (limited to 'perl_checker_fake_packages/gen.pl')
-rwxr-xr-x | perl_checker_fake_packages/gen.pl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl index ce06ab1..0fe2e88 100755 --- a/perl_checker_fake_packages/gen.pl +++ b/perl_checker_fake_packages/gen.pl @@ -6,7 +6,18 @@ sub gtk2 { my (@files) = @_; my @subroutines = ( - [ 'set_size_request', ' { my ($_self, $_x, $_y) = @_ }' ], + [ 'set_size_request', ' { my ($_self, $_x, $_y) = @_ }' ], + [ 'set_popdown_strings', ' {}' ], + [ 'signal_emit', ' {}' ], + [ 'signal_emit_by_name', ' {}' ], + [ 'signal_connect', ' { my ($_target, $_name, $_callback, $o_data) = @_ }' ], + [ 'signal_connect_swapped', ' { my ($_target, $_name, $_callback, $o_data) = @_ }' ], + [ 'signal_connect_after', ' { my ($_target, $_name, $_callback, $o_data) = @_ }' ], + [ 'signal_handler_block', ' { my ($_target, $_closure) = @_ }' ], + [ 'signal_handler_unblock', ' { my ($_target, $_closure) = @_ }' ], + [ 'signal_disconnect', ' { my ($_target, $_closure) = @_ }' ], + [ 'signal_is_connected', ' { my ($_target, $_closure) = @_ }' ], + [ 'signal_stop_emission_by_name', ' { my ($_target, $_detailed_signal) = @_ }' ], ); my $add = sub { push @subroutines, [ $_[0], $_[1] ]; |