add some missing funcs

2 files changed, 20 insertions, 0 deletions

diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm
index 1f548ec..2ae8be2 100644
--- a/perl_checker_fake_packages/Gtk2.pm
+++ b/perl_checker_fake_packages/Gtk2.pm
@@ -1677,6 +1677,8 @@ sub Gtk2::add_source { my ($_icon_set, $_source) = @_ }
 sub Gtk2::add_to_test_box { my ($_widget) = @_ }
 sub Gtk2::add_with_viewport { my ($_scrolled_window, $_child) = @_ }
 sub Gtk2::allocation { my ($_widget) = @_ }
+sub Gtk2::allow_grow { my ($_window, $o_bool) = @_ }
+sub Gtk2::allow_shrink { my ($_window, $o_bool) = @_ }
 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) = @_ }
@@ -1778,6 +1780,8 @@ sub Gtk2::cut_clipboard { my ($_editable) = @_ }
 sub Gtk2::dark_gc { my ($_state, $o_gc) = @_ }
 sub Gtk2::data { my ($_self) = @_ }
 sub Gtk2::data_atom { my ($_sdata, $_index) = @_ }
+sub Gtk2::default_height { my ($_window, $o_bool) = @_ }
+sub Gtk2::default_width { my ($_window, $o_bool) = @_ }
 sub Gtk2::deiconify { my ($_DUMMY0) = @_ }
 sub Gtk2::delete { my ($_buffer, $_start, $_end) = @_ }
 sub Gtk2::delete_interactive { my ($_buffer, $_start_iter, $_end_iter, $_default_editable) = @_ }
@@ -1787,6 +1791,7 @@ sub Gtk2::delete_selection {}
 sub Gtk2::delete_text { my ($_editable, $_start_pos, $_end_pos) = @_ }
 sub Gtk2::deselect { my ($_item) = @_ }
 sub Gtk2::destroy { my ($_DUMMY0) = @_ }
+sub Gtk2::destroy_with_parent { my ($_window, $o_bool) = @_ }
 sub Gtk2::destroyed { my ($_widget, $_widget_pointer) = @_ }
 sub Gtk2::detail { my ($_event) = @_ }
 sub Gtk2::dir_list { my ($_dialog) = @_ }
@@ -2130,6 +2135,7 @@ sub Gtk2::handler_block { my ($_class, $_objref, $_closure) = @_ }
 sub Gtk2::handler_unblock { my ($_class, $_objref, $_closure) = @_ }
 sub Gtk2::hardware_keycode { my ($_event) = @_ }
 sub Gtk2::has_tag { my ($_iter, $_tag) = @_ }
+sub Gtk2::has_top_level_focus { my ($_window, $o_bool) = @_ }
 sub Gtk2::have_size { my ($_socket) = @_ }
 sub Gtk2::height { my ($_DUMMY0) = @_ }
 sub Gtk2::help_button { my ($_DUMMY0) = @_ }
@@ -2167,6 +2173,7 @@ sub Gtk2::inside_sentence { my ($_iter) = @_ }
 sub Gtk2::inside_word { my ($_iter) = @_ }
 sub Gtk2::intern { my ($_self, $_name, $_flag) = @_ }
 sub Gtk2::invalidate_rect { my ($_window, $_rect, $_invalidate_children) = @_ }
+sub Gtk2::is_active { my ($_window, $o_bool) = @_ }
 sub Gtk2::is_ancestor {}
 sub Gtk2::is_connected { my ($_class, $_objref, $_closure) = @_ }
 sub Gtk2::is_cursor_position { my ($_iter) = @_ }
@@ -2215,6 +2222,7 @@ sub Gtk2::mark_day { my ($_calendar, $_day) = @_ }
 sub Gtk2::maximize { my ($_DUMMY0) = @_ }
 sub Gtk2::merge_child_shapes { my ($_window) = @_ }
 sub Gtk2::mid_gc { my ($_state, $o_gc) = @_ }
+sub Gtk2::modal { my ($_window, $o_bool) = @_ }
 sub Gtk2::modality_window { my ($_plug) = @_ }
 sub Gtk2::mode { my ($_event) = @_ }
 sub Gtk2::modify_base { my ($_widget, $_state, $_color) = @_ }
@@ -2340,6 +2348,7 @@ sub Gtk2::requestor { my ($_event) = @_ }
 sub Gtk2::requisition { my ($_widget) = @_ }
 sub Gtk2::reset_shapes { my ($_widget) = @_ }
 sub Gtk2::reshow_with_initial_size { my ($_window) = @_ }
+sub Gtk2::resizable { my ($_window, $o_bool) = @_ }
 sub Gtk2::resize { my ($_DUMMY0, $_DUMMY1, $_DUMMY2) = @_ }
 sub Gtk2::resize_children { my ($_container) = @_ }
 sub Gtk2::response { my ($_dialog, $_response_id) = @_ }
@@ -2732,6 +2741,7 @@ sub Gtk2::white_gc { my ($_style, $o_gc) = @_ }
 sub Gtk2::widget { my ($_boxchild) = @_ }
 sub Gtk2::width { my ($_DUMMY0) = @_ }
 sub Gtk2::window { my ($_DUMMY0) = @_ }
+sub Gtk2::window_position { my ($_window, $o_pos) = @_ }
 sub Gtk2::withdraw { my ($_window) = @_ }
 sub Gtk2::x { my ($_DUMMY0) = @_ }
 sub Gtk2::x1 { my ($_segment) = @_ }
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index 404051a..4aa0708 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -31,6 +31,16 @@ sub gtk2 {
       [ '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) = @_ }' ],
+      [ 'allow_grow',                   ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'allow_shrink',                 ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'default_height',               ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'default_width',                ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'destroy_with_parent',          ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'has_top_level_focus',          ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'is_active',                    ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'modal',                        ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'resizable',                    ' { my ($_window, $o_bool) = @_ }' ],
+      [ 'window_position',              ' { my ($_window, $o_pos) = @_ }' ],
                       );
     my @added_subroutines;
     my $add = sub {