fix methods with no arguments

2 files changed, 30 insertions, 1 deletions

diff --git a/perl_checker_fake_packages/Gtk2.pm b/perl_checker_fake_packages/Gtk2.pm
index df62941..69bf025 100644
--- a/perl_checker_fake_packages/Gtk2.pm
+++ b/perl_checker_fake_packages/Gtk2.pm
@@ -351,6 +351,7 @@ sub Gtk2::apply_button { my ($_dialog) = @_ }
 sub Gtk2::apply_tag { my ($_buffer, $_tag, $_start, $_end) = @_ }
 sub Gtk2::apply_tag_by_name { my ($_buffer, $_name, $_start, $_end) = @_ }
 sub Gtk2::area { my ($_event) = @_ }
+sub Gtk2::at_pointer { my ($_self) = @_ }
 sub Gtk2::atom { my ($_event) = @_ }
 sub Gtk2::attach { my ($_table, $_child, $_left_attach, $_right_attach, $_top_attach, $_bottom_attach, $_xoptions, $_yoptions, $_xpadding, $_ypadding) = @_ }
 sub Gtk2::attach_defaults { my ($_table, $_widget, $_left, $_right, $_top, $_bottom) = @_ }
@@ -388,6 +389,7 @@ sub Gtk2::check_resize { my ($_container) = @_ }
 sub Gtk2::child_focus { my ($_widget, $_direction) = @_ }
 sub Gtk2::child_notify { my ($_widget, $_child_property) = @_ }
 sub Gtk2::child_position { my ($_list, $_child) = @_ }
+sub Gtk2::children { my ($_self) = @_ }
 sub Gtk2::clamp_page { my ($_adjustment, $_lower, $_upper) = @_ }
 sub Gtk2::clear { my ($_DUMMY0) = @_ }
 sub Gtk2::clear_area { my ($_window, $_x, $_y, $_width, $_height) = @_ }
@@ -534,6 +536,7 @@ sub Gtk2::get_bits_per_sample { my ($_pixbuf) = @_ }
 sub Gtk2::get_black_gc { my ($_style) = @_ }
 sub Gtk2::get_border_width { my ($_container) = @_ }
 sub Gtk2::get_border_window_size { my ($_text_view, $_type) = @_ }
+sub Gtk2::get_bounds { my ($_self) = @_ }
 sub Gtk2::get_buffer { my ($_DUMMY0) = @_ }
 sub Gtk2::get_bytes_in_line { my ($_iter) = @_ }
 sub Gtk2::get_cell_type { my ($_clist, $_row, $_column) = @_ }
@@ -543,6 +546,7 @@ sub Gtk2::get_chars_in_line { my ($_iter) = @_ }
 sub Gtk2::get_child { my ($_bin) = @_ }
 sub Gtk2::get_child_requisition { my ($_widget, $_requisition) = @_ }
 sub Gtk2::get_child_visible { my ($_widget) = @_ }
+sub Gtk2::get_children { my ($_self) = @_ }
 sub Gtk2::get_clickable { my ($_tree_column) = @_ }
 sub Gtk2::get_col_spacing { my ($_table, $_column) = @_ }
 sub Gtk2::get_colormap { my ($_drawable) = @_ }
@@ -552,16 +556,21 @@ sub Gtk2::get_column_type { my ($_tree_model, $_index) = @_ }
 sub Gtk2::get_composite_name { my ($_widget) = @_ }
 sub Gtk2::get_context { my ($_layout) = @_ }
 sub Gtk2::get_context_id { my ($_statusbar, $_context_description) = @_ }
+sub Gtk2::get_coords { my ($_self) = @_ }
 sub Gtk2::get_current_color { my ($_colorsel) = @_ }
 sub Gtk2::get_current_page { my ($_notebook) = @_ }
+sub Gtk2::get_cursor { my ($_self) = @_ }
 sub Gtk2::get_cursor_visible { my ($_text_view) = @_ }
 sub Gtk2::get_dark_gc { my ($_style, $_state) = @_ }
 sub Gtk2::get_data { my ($_self, $_key) = @_ }
+sub Gtk2::get_date { my ($_self) = @_ }
 sub Gtk2::get_decorated { my ($_window) = @_ }
 sub Gtk2::get_decorations { my ($_window) = @_ }
 sub Gtk2::get_default_col_spacing { my ($_table) = @_ }
 sub Gtk2::get_default_direction { my ($_class) = @_ }
+sub Gtk2::get_default_files { my ($_self) = @_ }
 sub Gtk2::get_default_row_spacing { my ($_table) = @_ }
+sub Gtk2::get_default_size { my ($_self) = @_ }
 sub Gtk2::get_default_style { my ($_class) = @_ }
 sub Gtk2::get_deleted { my ($_mark) = @_ }
 sub Gtk2::get_depth { my ($_DUMMY0) = @_ }
@@ -587,7 +596,9 @@ sub Gtk2::get_font_desc { my ($_style) = @_ }
 sub Gtk2::get_font_description { my ($_context) = @_ }
 sub Gtk2::get_font_name { my ($_DUMMY0) = @_ }
 sub Gtk2::get_fraction { my ($_pbar) = @_ }
+sub Gtk2::get_frame_dimensions { my ($_self) = @_ }
 sub Gtk2::get_frame_extents { my ($_window) = @_ }
+sub Gtk2::get_geometry { my ($_self) = @_ }
 sub Gtk2::get_gravity { my ($_window) = @_ }
 sub Gtk2::get_group { my ($_DUMMY0) = @_ }
 sub Gtk2::get_hadjustment { my ($_DUMMY0) = @_ }
@@ -602,10 +613,12 @@ sub Gtk2::get_height { my ($_pixbuf) = @_ }
 sub Gtk2::get_history { my ($_option_menu) = @_ }
 sub Gtk2::get_homogeneous { my ($_DUMMY0) = @_ }
 sub Gtk2::get_icon { my ($_window) = @_ }
+sub Gtk2::get_icon_set { my ($_self) = @_ }
 sub Gtk2::get_icon_size { my ($_toolbar) = @_ }
 sub Gtk2::get_id { my ($_DUMMY0) = @_ }
 sub Gtk2::get_inconsistent { my ($_DUMMY0) = @_ }
 sub Gtk2::get_indent { my ($_DUMMY0) = @_ }
+sub Gtk2::get_indices { my ($_self) = @_ }
 sub Gtk2::get_insert { my ($_buffer) = @_ }
 sub Gtk2::get_inverted { my ($_range) = @_ }
 sub Gtk2::get_iter { my ($_tree_model, $_path) = @_ }
@@ -624,6 +637,7 @@ sub Gtk2::get_label_align { my ($_o) = @_ }
 sub Gtk2::get_label_widget { my ($_frame) = @_ }
 sub Gtk2::get_language { my ($_DUMMY0) = @_ }
 sub Gtk2::get_layout { my ($_label) = @_ }
+sub Gtk2::get_layout_offsets { my ($_self) = @_ }
 sub Gtk2::get_left_gravity { my ($_mark) = @_ }
 sub Gtk2::get_left_margin { my ($_text_view) = @_ }
 sub Gtk2::get_length { my ($_text) = @_ }
@@ -635,6 +649,7 @@ sub Gtk2::get_line_offset { my ($_iter) = @_ }
 sub Gtk2::get_line_wrap { my ($_label) = @_ }
 sub Gtk2::get_lower { my ($_adjustment) = @_ }
 sub Gtk2::get_mark { my ($_buffer, $_name) = @_ }
+sub Gtk2::get_marks { my ($_self) = @_ }
 sub Gtk2::get_max_width { my ($_tree_column) = @_ }
 sub Gtk2::get_menu_label_text { my ($_notebook, $_child) = @_ }
 sub Gtk2::get_metric { my ($_ruler) = @_ }
@@ -654,6 +669,7 @@ sub Gtk2::get_name { my ($_DUMMY0) = @_ }
 sub Gtk2::get_nth_page { my ($_notebook, $_page_num) = @_ }
 sub Gtk2::get_offset { my ($_iter) = @_ }
 sub Gtk2::get_orientation { my ($_DUMMY0) = @_ }
+sub Gtk2::get_origin { my ($_self) = @_ }
 sub Gtk2::get_padding { my ($_misc) = @_ }
 sub Gtk2::get_page_increment { my ($_adjustment) = @_ }
 sub Gtk2::get_page_size { my ($_adjustment) = @_ }
@@ -663,10 +679,14 @@ sub Gtk2::get_parent_window { my ($_widget) = @_ }
 sub Gtk2::get_path { my ($_tree_model, $_iter) = @_ }
 sub Gtk2::get_path_str { my ($_self, $_iter) = @_ }
 sub Gtk2::get_pixbuf { my ($_DUMMY0) = @_ }
+sub Gtk2::get_pixel_size { my ($_self) = @_ }
 sub Gtk2::get_pixels_above_lines { my ($_text_view) = @_ }
 sub Gtk2::get_pixels_below_lines { my ($_text_view) = @_ }
 sub Gtk2::get_pixels_inside_wrap { my ($_text_view) = @_ }
+sub Gtk2::get_pixmap { my ($_self) = @_ }
 sub Gtk2::get_placement { my ($_scrolled_window) = @_ }
+sub Gtk2::get_pointer { my ($_self) = @_ }
+sub Gtk2::get_policy { my ($_self) = @_ }
 sub Gtk2::get_position { my ($_DUMMY0) = @_ }
 sub Gtk2::get_preview_text { my ($_DUMMY0) = @_ }
 sub Gtk2::get_previous_color { my ($_colorsel) = @_ }
@@ -679,6 +699,8 @@ sub Gtk2::get_reorderable { my ($_DUMMY0) = @_ }
 sub Gtk2::get_resizable { my ($_DUMMY0) = @_ }
 sub Gtk2::get_resize_mode { my ($_container) = @_ }
 sub Gtk2::get_right_margin { my ($_text_view) = @_ }
+sub Gtk2::get_root_coords { my ($_self) = @_ }
+sub Gtk2::get_root_origin { my ($_self) = @_ }
 sub Gtk2::get_root_window { my ($_widget) = @_ }
 sub Gtk2::get_row_spacing { my ($_table, $_row) = @_ }
 sub Gtk2::get_rowstride { my ($_pixbuf) = @_ }
@@ -689,6 +711,7 @@ sub Gtk2::get_selectable {}
 sub Gtk2::get_selected { my ($_o) = @_ }
 sub Gtk2::get_selection { my ($_tree_view) = @_ }
 sub Gtk2::get_selection_bound { my ($_buffer) = @_ }
+sub Gtk2::get_selection_bounds { my ($_DUMMY0) = @_ }
 sub Gtk2::get_sensitive { my ($_DUMMY0) = @_ }
 sub Gtk2::get_set { my ($_self, $_prop, $_arg) = @_ }
 sub Gtk2::get_shadow_type { my ($_DUMMY0) = @_ }
@@ -697,7 +720,9 @@ sub Gtk2::get_show_events { my ($_class) = @_ }
 sub Gtk2::get_show_tabs { my ($_notebook) = @_ }
 sub Gtk2::get_single_paragraph_mode { my ($_layout) = @_ }
 sub Gtk2::get_size { my ($_DUMMY0) = @_ }
+sub Gtk2::get_size_request { my ($_self) = @_ }
 sub Gtk2::get_size_wildcarded { my ($_source) = @_ }
+sub Gtk2::get_sizes { my ($_self) = @_ }
 sub Gtk2::get_sizing { my ($_tree_column) = @_ }
 sub Gtk2::get_slice {}
 sub Gtk2::get_snap_edge { my ($_handle_box) = @_ }
@@ -709,6 +734,7 @@ sub Gtk2::get_start_iter { my ($_buffer) = @_ }
 sub Gtk2::get_state { my ($_DUMMY0) = @_ }
 sub Gtk2::get_state_wildcarded { my ($_source) = @_ }
 sub Gtk2::get_step_increment { my ($_adjustment) = @_ }
+sub Gtk2::get_stock { my ($_self) = @_ }
 sub Gtk2::get_storage_type { my ($_image) = @_ }
 sub Gtk2::get_string_from_iter { my ($_tree_model, $_iter) = @_ }
 sub Gtk2::get_style {}
@@ -716,6 +742,7 @@ sub Gtk2::get_style_by_paths { my ($_class, $_settings, $_widget_path, $_class_p
 sub Gtk2::get_tab_label { my ($_notebook, $_child) = @_ }
 sub Gtk2::get_tab_label_text { my ($_notebook, $_child) = @_ }
 sub Gtk2::get_tab_pos { my ($_notebook) = @_ }
+sub Gtk2::get_tags { my ($_self) = @_ }
 sub Gtk2::get_text {}
 sub Gtk2::get_text_aa_gc { my ($_style, $_state) = @_ }
 sub Gtk2::get_text_gc { my ($_style, $_state) = @_ }
@@ -825,6 +852,7 @@ sub Gtk2::leave { my ($_button) = @_ }
 sub Gtk2::length { my ($_DUMMY0) = @_ }
 sub Gtk2::light_gc { my ($_state, $o_gc) = @_ }
 sub Gtk2::list { my ($_combo) = @_ }
+sub Gtk2::list_properties { my ($_self) = @_ }
 sub Gtk2::log_fail { my ($_call, $_err) = @_ }
 sub Gtk2::lookup { my ($_class, $_anid) = @_ }
 sub Gtk2::lookup_icon_set { my ($_style, $_stock_id) = @_ }
@@ -1332,6 +1360,7 @@ sub Gtk2::update_ui { my ($_class) = @_ }
 sub Gtk2::upper { my ($_self, $_value) = @_ }
 sub Gtk2::value { my ($_self, $_value) = @_ }
 sub Gtk2::value_changed { my ($_adjustment) = @_ }
+sub Gtk2::values { my ($_DUMMY0) = @_ }
 sub Gtk2::variant_new { my ($_class, $_variant) = @_ }
 sub Gtk2::vbox { my ($_dialog) = @_ }
 sub Gtk2::vscrollbar { my ($_scrolled_window) = @_ }
diff --git a/perl_checker_fake_packages/gen.pl b/perl_checker_fake_packages/gen.pl
index 0a42db2..7b45b7d 100755
--- a/perl_checker_fake_packages/gen.pl
+++ b/perl_checker_fake_packages/gen.pl
@@ -55,7 +55,7 @@ sub gtk2 {
 
                 #- methods with no argument
                 #-   my $values = shift->_get_size_request;
-                if (/$subroutine_decl\shift->\w+\s*;/) {
+                if (/$subroutine_decl\my.*=\s*shift->\w+\s*;/) {
                     $add->($fun, ' { my ($_self) = @_ }');
                 }