override some more functions

2 files changed, 12 insertions, 6 deletions

diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm
index 72aa0a0..20741bb 100644
--- a/perl_checker_fake_packages/Gtk2.pm
+++ b/perl_checker_fake_packages/Gtk2.pm
@@ -1714,7 +1714,7 @@ sub Gtk2::beep { my ($_class) = @_ }
 sub Gtk2::begin_user_action { my ($_buffer) = @_ }
 sub Gtk2::begins_tag { my ($_iter, $_tag) = @_ }
 sub Gtk2::bg_gc { my ($_state, $o_gc) = @_ }
-sub Gtk2::black_gc { my ($_self, $_set) = @_ }
+sub Gtk2::black_gc { my ($_style, $o_gc) = @_ }
 sub Gtk2::blue { my ($_self, $_v) = @_ }
 sub Gtk2::button { my ($_event) = @_ }
 sub Gtk2::button_area { my ($_dialog) = @_ }
@@ -2141,8 +2141,8 @@ sub Gtk2::homogeneous { my ($_box) = @_ }
 sub Gtk2::hscrollbar { my ($_scrolled_window) = @_ }
 sub Gtk2::hscrollbar_visible { my ($_scrolled_window) = @_ }
 sub Gtk2::iconify { my ($_DUMMY0) = @_ }
-sub Gtk2::idle_add { my ($_DUMMY0, $_DUMMY1, $_DUMMY2) = @_ }
-sub Gtk2::idle_remove { my ($_DUMMY0, $_DUMMY1) = @_ }
+sub Gtk2::idle_add { my ($_class, $_func, $o_data) = @_ }
+sub Gtk2::idle_remove { my ($_class, $_id) = @_ }
 sub Gtk2::in { my ($_event) = @_ }
 sub Gtk2::in_range { my ($_iter, $_start, $_end) = @_ }
 sub Gtk2::init { my ($_class, $_a) = @_ }
@@ -2678,8 +2678,8 @@ sub Gtk2::thaw { my ($_DUMMY0) = @_ }
 sub Gtk2::thaw_child_notify { my ($_widget) = @_ }
 sub Gtk2::thaw_updates { my ($_window) = @_ }
 sub Gtk2::time { my ($_DUMMY0) = @_ }
-sub Gtk2::timeout_add { my ($_DUMMY0, $_DUMMY1, $_DUMMY2, $_DUMMY3) = @_ }
-sub Gtk2::timeout_remove { my ($_DUMMY0, $_DUMMY1) = @_ }
+sub Gtk2::timeout_add { my ($_class, $_interval, $_func, $o_data) = @_ }
+sub Gtk2::timeout_remove { my ($_class, $_id) = @_ }
 sub Gtk2::to_string { my ($_path) = @_ }
 sub Gtk2::toggle { my ($_item) = @_ }
 sub Gtk2::toggle_add_mode { my ($_list) = @_ }
@@ -2726,7 +2726,7 @@ sub Gtk2::vscrollbar { my ($_scrolled_window) = @_ }
 sub Gtk2::vscrollbar_visible { my ($_scrolled_window) = @_ }
 sub Gtk2::weak_ref { my ($_object, $_notify, $_data) = @_ }
 sub Gtk2::weight_new { my ($_class, $_weight) = @_ }
-sub Gtk2::white_gc { my ($_self, $_set) = @_ }
+sub Gtk2::white_gc { my ($_style, $o_gc) = @_ }
 sub Gtk2::widget { my ($_boxchild) = @_ }
 sub Gtk2::width { my ($_DUMMY0) = @_ }
 sub Gtk2::window { my ($_DUMMY0) = @_ }
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index 580972d..b512ac5 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -18,9 +18,15 @@ sub gtk2 {
       [ 'signal_disconnect',            ' { my ($_target, $_closure) = @_ }' ],
       [ 'signal_is_connected',          ' { my ($_target, $_closure) = @_ }' ],
       [ 'signal_stop_emission_by_name', ' { my ($_target, $_detailed_signal) = @_ }' ],
+      [ 'timeout_add',                  ' { my ($_class, $_interval, $_func, $o_data) = @_ }' ],
+      [ 'timeout_remove',               ' { my ($_class, $_id) = @_ }' ],
+      [ 'idle_add',                     ' { my ($_class, $_func, $o_data) = @_ }' ],
+      [ 'idle_remove',                  ' { my ($_class, $_id) = @_ }' ],
       [ 'create_items',                 ' { my ($_factory, $_entries, $o_callback_data) = @_ }' ],
       [ 'style',                        ' { my ($_widget, $o_style) = @_ }' ],
       [ 'visible',                      ' { my ($_widget, $o_bool) = @_ }' ],
+      [ 'white_gc',                     ' { my ($_style, $o_gc) = @_ }' ],
+      [ 'black_gc',                     ' { my ($_style, $o_gc) = @_ }' ],
                       );
     my @added_subroutines;
     my $add = sub {