some small additions for lord titi

2 files changed, 6 insertions, 3 deletions

diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm
index 7f301a6..37f1d79 100644
--- a/perl_checker_fake_packages/Gtk2.pm
+++ b/perl_checker_fake_packages/Gtk2.pm
@@ -1655,7 +1655,6 @@ sub Gtk2::_END() {}
 sub Gtk2::_debug_print { my ($_expr, $_expect, $_check, $_eval_error) = @_ }
 sub Gtk2::_do_checks { my ($_eval, $_expect, $_check) = @_ }
 sub Gtk2::_flag_setget_wrap { my ($_self, $_flag_name, $_set) = @_ }
-sub Gtk2::_get { my ($iter, $nb) = @_ }
 sub Gtk2::accel_group { my ($_socket) = @_ }
 sub Gtk2::action_area { my ($_DUMMY0) = @_ }
 sub Gtk2::activate { my ($_DUMMY0) = @_ }
@@ -1864,7 +1863,7 @@ sub Gtk2::forward_to_end { my ($_iter) = @_ }
 sub Gtk2::forward_to_line_end { my ($_iter) = @_ }
 sub Gtk2::forward_word_end { my ($_iter) = @_ }
 sub Gtk2::forward_word_ends { my ($_iter, $_count) = @_ }
-sub Gtk2::fraction { my ($_self, $_frac) = @_ }
+sub Gtk2::fraction { my ($_progress_bar, $o_fraction) = @_ }
 sub Gtk2::free { my ($_DUMMY0) = @_ }
 sub Gtk2::freeze { my ($_DUMMY0) = @_ }
 sub Gtk2::freeze_child_notify { my ($_widget) = @_ }
@@ -2061,6 +2060,7 @@ sub Gtk2::get_scrollable { my ($_notebook) = @_ }
 sub Gtk2::get_select_multiple { my ($_filesel) = @_ }
 sub Gtk2::get_selectable {}
 sub Gtk2::get_selected { my ($_o) = @_ }
+sub Gtk2::get_selected_rows { my ($_tree_selection) = @_ }
 sub Gtk2::get_selection { my ($_tree_view) = @_ }
 sub Gtk2::get_selection_bound { my ($_buffer) = @_ }
 sub Gtk2::get_selection_bounds { my ($_DUMMY0) = @_ }
@@ -2265,7 +2265,7 @@ sub Gtk2::next_page { my ($_notebook) = @_ }
 sub Gtk2::ok_button { my ($_DUMMY0) = @_ }
 sub Gtk2::optimal_column_width { my ($_clist, $_column) = @_ }
 sub Gtk2::order { my ($_class, $_first, $_second) = @_ }
-sub Gtk2::orientation { my ($_self, $_ori) = @_ }
+sub Gtk2::orientation { my ($_progress_bar, $o_orientation) = @_ }
 sub Gtk2::owner_get { my ($_class, $_selection) = @_ }
 sub Gtk2::pack { my ($_boxchild) = @_ }
 sub Gtk2::pack1 { my ($_paned, $_child, $_resize, $_shrink) = @_ }
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index 9e5c364..6122f52 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -42,6 +42,9 @@ sub gtk2 {
       [ 'resizable',                    ' { my ($_window, $o_bool) = @_ }' ],
       [ 'window_position',              ' { my ($_window, $o_pos) = @_ }' ],
       [ 'expand_to_path',               ' { my ($_treeview, $_path) = @_ }' ],
+      [ 'fraction',                     ' { my ($_progress_bar, $o_fraction) = @_ }' ],
+      [ 'orientation',                  ' { my ($_progress_bar, $o_orientation) = @_ }' ],
+      [ 'get_selected_rows',            ' { my ($_tree_selection) = @_ }' ],
                       );
     my @added_subroutines;
     my $add = sub {