From ae907464eec088d4dd61d38f1d83f9283271208e Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 29 Apr 2003 22:01:39 +0000 Subject: add some missing funcs --- perl_checker_fake_packages/Gtk2.pm | 10 ++++++++++ perl_checker_fake_packages/gen.pl | 10 ++++++++++ 2 files changed, 20 insertions(+) (limited to 'perl_checker_fake_packages') 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 { -- cgit v1.2.1