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 | d2b19e35fe1d1cf25d6a8f8ab288bdbc2c06e222 (patch) | |
tree | c62608eb8e637b7d17c16eceb4a8a0fc4811cd7e | |
parent | de0d786f0ebc3b96f8f27132aba17d17e9d682cc (diff) | |
download | perl-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
-rw-r--r-- | perl_checker_fake_packages/Gtk2.pm | 11 | ||||
-rwxr-xr-x | perl_checker_fake_packages/gen.pl | 13 |
2 files changed, 23 insertions, 1 deletions
diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm index 71ce49b..441a0c4 100644 --- a/perl_checker_fake_packages/Gtk2.pm +++ b/perl_checker_fake_packages/Gtk2.pm @@ -2532,6 +2532,7 @@ sub Gtk2::set_pixels_below_lines { my ($_text_view, $_pixels_below_lines) = @_ } sub Gtk2::set_pixels_inside_wrap { my ($_text_view, $_pixels_inside_wrap) = @_ } sub Gtk2::set_placement { my ($_scrolled_window, $_window_placement) = @_ } sub Gtk2::set_policy { my ($_scrolled_window, $_hscrollbar_policy, $_vscrollbar_policy) = @_ } +sub Gtk2::set_popdown_strings {} sub Gtk2::set_position { my ($_DUMMY0, $_DUMMY1) = @_ } sub Gtk2::set_preview_text { my ($_DUMMY0, $_DUMMY1) = @_ } sub Gtk2::set_previous_color { my ($_colorsel, $_color) = @_ } @@ -2628,6 +2629,16 @@ sub Gtk2::show_fileop_buttons { my ($_filesel) = @_ } sub Gtk2::show_now { my ($_widget) = @_ } sub Gtk2::show_tabs { my ($_self, $_flag) = @_ } sub Gtk2::show_unraised { my ($_window) = @_ } +sub Gtk2::signal_connect { my ($_target, $_name, $_callback, $o_data) = @_ } +sub Gtk2::signal_connect_after { my ($_target, $_name, $_callback, $o_data) = @_ } +sub Gtk2::signal_connect_swapped { my ($_target, $_name, $_callback, $o_data) = @_ } +sub Gtk2::signal_disconnect { my ($_target, $_closure) = @_ } +sub Gtk2::signal_emit {} +sub Gtk2::signal_emit_by_name {} +sub Gtk2::signal_handler_block { my ($_target, $_closure) = @_ } +sub Gtk2::signal_handler_unblock { my ($_target, $_closure) = @_ } +sub Gtk2::signal_is_connected { my ($_target, $_closure) = @_ } +sub Gtk2::signal_stop_emission_by_name { my ($_target, $_detailed_signal) = @_ } sub Gtk2::sink { my ($_object) = @_ } sub Gtk2::size { my ($_darea, $_width, $_height) = @_ } sub Gtk2::size_new { my ($_class, $_size) = @_ } 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] ]; |