From 302178358f6ade399d23ac86dd9fa540ed61ed62 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 29 Apr 2003 21:55:00 +0000
Subject: override a few functions

---
 perl_checker_fake_packages/Gtk2.pm | 6 ++++--
 perl_checker_fake_packages/gen.pl  | 4 ++++
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm
index 20741bb..1f548ec 100644
--- a/perl_checker_fake_packages/Gtk2.pm
+++ b/perl_checker_fake_packages/Gtk2.pm
@@ -1681,7 +1681,7 @@ sub Gtk2::append {}
 sub Gtk2::append_column { my ($_tree_view, $_column) = @_ }
 sub Gtk2::append_element { my ($_self, $_type, $_widget, $_text, $_tooltip, $_privat, $_icon, $_callback, $_user_data) = @_ }
 sub Gtk2::append_index { my ($_path, $_index) = @_ }
-sub Gtk2::append_item { my ($_self, $_text, $_tooltip, $_private, $_icon, $_callback, $_user_data) = @_ }
+sub Gtk2::append_item { my ($_self, $_text, $_tooltip, $_private, $_icon, $_callback, $o_user_data) = @_ }
 sub Gtk2::append_items { my ($_list, $_items) = @_ }
 sub Gtk2::append_page { my ($_self, $_child, $_tab_label) = @_ }
 sub Gtk2::append_page_menu { my ($_self, $_child, $_tab_label, $_menu_label) = @_ }
@@ -1864,6 +1864,7 @@ sub Gtk2::freeze_child_notify { my ($_widget) = @_ }
 sub Gtk2::freeze_updates { my ($_window) = @_ }
 sub Gtk2::from_string { my ($_class, $_str) = @_ }
 sub Gtk2::fullscreen { my ($_window) = @_ }
+sub Gtk2::get {}
 sub Gtk2::get_accel_widget { my ($_accel_label) = @_ }
 sub Gtk2::get_active { my ($_DUMMY0) = @_ }
 sub Gtk2::get_adjustment { my ($_range) = @_ }
@@ -2020,6 +2021,7 @@ sub Gtk2::get_pango_context { my ($_widget) = @_ }
 sub Gtk2::get_parent { my ($_DUMMY0) = @_ }
 sub Gtk2::get_parent_window { my ($_widget) = @_ }
 sub Gtk2::get_path { my ($_tree_model, $_iter) = @_ }
+sub Gtk2::get_path_at_pos { my ($_self, $_x, $_y) = @_ }
 sub Gtk2::get_path_str { my ($_self, $_iter) = @_ }
 sub Gtk2::get_pixbuf { my ($_DUMMY0) = @_ }
 sub Gtk2::get_pixel_size { my ($_self) = @_ }
@@ -2683,7 +2685,7 @@ 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) = @_ }
-sub Gtk2::toggle_expansion { my ($_self, $_path, $_open_all) = @_ }
+sub Gtk2::toggle_expansion { my ($_self, $_path, $o_open_all) = @_ }
 sub Gtk2::toggle_focus_row { my ($_list) = @_ }
 sub Gtk2::toggle_row { my ($_list, $_item) = @_ }
 sub Gtk2::toggled { my ($_DUMMY0) = @_ }
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index b512ac5..404051a 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -27,6 +27,10 @@ sub gtk2 {
       [ 'visible',                      ' { my ($_widget, $o_bool) = @_ }' ],
       [ 'white_gc',                     ' { my ($_style, $o_gc) = @_ }' ],
       [ 'black_gc',                     ' { my ($_style, $o_gc) = @_ }' ],
+      [ 'get',                          ' {}' ],
+      [ 'append_item',                  ' { my ($_self, $_text, $_tooltip, $_private, $_icon, $_callback, $o_user_data) = @_ }' ],
+      [ 'toggle_expansion',             ' { my ($_self, $_path, $o_open_all) = @_ }' ],
+      [ 'get_path_at_pos',              ' { my ($_self, $_x, $_y) = @_ }' ],
                       );
     my @added_subroutines;
     my $add = sub {
-- 
cgit v1.2.1