summaryrefslogtreecommitdiffstats
path: root/perl_checker_fake_packages/gen.pl
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-04-29 21:22:54 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-04-29 21:22:54 +0000
commitd2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222 (patch)
treec62608eb8e637b7d17c16eceb4a8a0fc4811cd7e /perl_checker_fake_packages/gen.pl
parentde0d786f0ebc3b96f8f27132aba17d17e9d682cc (diff)
downloadperl-MDK-Common-d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222.tar
perl-MDK-Common-d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222.tar.gz
perl-MDK-Common-d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222.tar.bz2
perl-MDK-Common-d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222.tar.xz
perl-MDK-Common-d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222.zip
add a few complex functions
Diffstat (limited to 'perl_checker_fake_packages/gen.pl')
-rwxr-xr-xperl_checker_fake_packages/gen.pl13
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] ];