diff options
Diffstat (limited to 'fake_packages/Gtk2.pm')
| -rw-r--r-- | fake_packages/Gtk2.pm | 359 |
1 files changed, 359 insertions, 0 deletions
diff --git a/fake_packages/Gtk2.pm b/fake_packages/Gtk2.pm index 6b25db6..4aaf7e5 100644 --- a/fake_packages/Gtk2.pm +++ b/fake_packages/Gtk2.pm @@ -46,6 +46,10 @@ sub quit_add_destroy { my ($_class, $_main_level, $_object) = @_ } sub quit_remove { my ($_class, $_quit_handler_id) = @_ } sub set_locale { my ($_class) = @_ } sub show_about_dialog { my ($_class, $_parent, $_first_property_name, @_more_paras) = @_ } +sub targets_include_image { my ($_class, $_writable, $_first_target_atom, @_more_paras) = @_ } +sub targets_include_rich_text { my ($_class, $_buffer, $_first_target_atom, @_more_paras) = @_ } +sub targets_include_text { my ($_class, $_first_target_atom, @_more_paras) = @_ } +sub targets_include_uri { my ($_class, $_first_target_atom, @_more_paras) = @_ } package Gtk2::AboutDialog; our @ISA = qw(); @@ -205,6 +209,31 @@ our @ISA = qw(); sub new { my ($_class, $_label, $_xalign, $_yalign, $_ratio, $_obey_child) = @_ } sub set_params { my ($_aspect_frame, $_xalign, $_yalign, $_ratio, $_obey_child) = @_ } +package Gtk2::Assistant; +our @ISA = qw(); +sub add_action_widget { my ($_assistant, $_child) = @_ } +sub append_page { my ($_assistant, $_page) = @_ } +sub get_current_page { my ($_assistant) = @_ } +sub get_n_pages { my ($_assistant) = @_ } +sub get_nth_page { my ($_assistant, $_page_num) = @_ } +sub get_page_complete { my ($_assistant, $_page) = @_ } +sub get_page_header_image { my ($_assistant, $_page) = @_ } +sub get_page_side_image { my ($_assistant, $_page) = @_ } +sub get_page_title { my ($_assistant, $_page) = @_ } +sub get_page_type { my ($_assistant, $_page) = @_ } +sub insert_page { my ($_assistant, $_page, $_position) = @_ } +sub new { my ($_class) = @_ } +sub prepend_page { my ($_assistant, $_page) = @_ } +sub remove_action_widget { my ($_assistant, $_child) = @_ } +sub set_current_page { my ($_assistant, $_page_num) = @_ } +sub set_forward_page_func { my ($_assistant, $_func, $_o_data) = @_ } +sub set_page_complete { my ($_assistant, $_page, $_complete) = @_ } +sub set_page_header_image { my ($_assistant, $_page, $_pixbuf) = @_ } +sub set_page_side_image { my ($_assistant, $_page, $_pixbuf) = @_ } +sub set_page_title { my ($_assistant, $_page, $_title) = @_ } +sub set_page_type { my ($_assistant, $_page, $_type) = @_ } +sub update_buttons_state { my ($_assistant) = @_ } + package Gtk2::Bin; our @ISA = qw(); sub child { my ($_bin) = @_ } @@ -231,6 +260,7 @@ sub enter { my ($_button) = @_ } sub get_alignment { my ($_button) = @_ } sub get_focus_on_click { my ($_button) = @_ } sub get_image { my ($_button) = @_ } +sub get_image_position { my ($_button) = @_ } sub get_label { my ($_button) = @_ } sub get_relief { my ($_button) = @_ } sub get_use_stock { my ($_button) = @_ } @@ -245,6 +275,7 @@ sub released { my ($_button) = @_ } sub set_alignment { my ($_button, $_xalign, $_yalign) = @_ } sub set_focus_on_click { my ($_button, $_focus_on_click) = @_ } sub set_image { my ($_button, $_image) = @_ } +sub set_image_position { my ($_button, $_position) = @_ } sub set_label { my ($_button, $_label) = @_ } sub set_relief { my ($_button, $_newstyle) = @_ } sub set_use_stock { my ($_button, $_use_stock) = @_ } @@ -316,6 +347,10 @@ sub set_fixed_size { my ($_cell, $_width, $_height) = @_ } sub start_editing { my ($_cell, $_event, $_widget, $_path, $_background_area, $_cell_area, $_flags) = @_ } sub stop_editing { my ($_cell, $_canceled) = @_ } +package Gtk2::CellRendererAccel; +our @ISA = qw(); +sub new { my ($_class) = @_ } + package Gtk2::CellRendererCombo; our @ISA = qw(); sub new { my ($_class) = @_ } @@ -328,6 +363,10 @@ package Gtk2::CellRendererProgress; our @ISA = qw(); sub new { my ($_class) = @_ } +package Gtk2::CellRendererSpin; +our @ISA = qw(); +sub new { my ($_class) = @_ } + package Gtk2::CellRendererText; our @ISA = qw(); sub new { my ($_class) = @_ } @@ -383,6 +422,7 @@ sub get_for_display { my ($_class, $_display, $_selection) = @_ } sub get_owner { my ($_clipboard) = @_ } sub request_contents { my ($_clipboard, $_target, $_callback, $_o_user_data) = @_ } sub request_image { my ($_clipboard, $_callback, $_o_user_data) = @_ } +sub request_rich_text { my ($_clipboard, $_buffer, $_callback, $_o_user_data) = @_ } sub request_targets { my ($_clipboard, $_callback, $_o_user_data) = @_ } sub request_text { my ($_clipboard, $_callback, $_o_user_data) = @_ } sub set_can_store { my ($_clipboard, @_more_paras) = @_ } @@ -393,9 +433,11 @@ sub set_with_owner { my ($_clipboard, $_get_func, $_clear_func, $_owner, @_more_ sub store { my ($_clipboard) = @_ } sub wait_for_contents { my ($_clipboard, $_target) = @_ } sub wait_for_image { my ($_clipboard) = @_ } +sub wait_for_rich_text { my ($_clipboard, $_buffer) = @_ } sub wait_for_targets { my ($_clipboard) = @_ } sub wait_for_text { my ($_clipboard) = @_ } sub wait_is_image_available { my ($_clipboard) = @_ } +sub wait_is_rich_text_available { my ($_clipboard, $_buffer) = @_ } sub wait_is_target_available { my ($_clipboard, $_target) = @_ } sub wait_is_text_available { my ($_clipboard) = @_ } @@ -463,6 +505,7 @@ sub get_column_span_column { my ($_combo_box) = @_ } sub get_focus_on_click { my ($_combo_box) = @_ } sub get_model { my ($_combo_box) = @_ } sub get_row_span_column { my ($_combo_box) = @_ } +sub get_title { my ($_combo_box) = @_ } sub get_wrap_width { my ($_combo_box) = @_ } sub insert_text { my ($_combo_box, $_position, $_text) = @_ } sub new { my ($_class, $_o_model) = @_ } @@ -480,6 +523,7 @@ sub set_focus_on_click { my ($_combo_box, $_focus_on_click) = @_ } sub set_model { my ($_combo_box, $_model) = @_ } sub set_row_separator_func { my ($_combo_box, $_func, $_o_data) = @_ } sub set_row_span_column { my ($_combo_box, $_row_span) = @_ } +sub set_title { my ($_combo_box, $_title) = @_ } sub set_wrap_width { my ($_combo_box, $_width) = @_ } package Gtk2::ComboBoxEntry; @@ -579,6 +623,7 @@ sub get_activates_default { my ($_entry) = @_ } sub get_alignment { my ($_entry) = @_ } sub get_completion { my ($_entry) = @_ } sub get_has_frame { my ($_entry) = @_ } +sub get_inner_border { my ($_entry) = @_ } sub get_invisible_char { my ($_entry) = @_ } sub get_layout { my ($_entry) = @_ } sub get_layout_offsets { my ($_entry) = @_ } @@ -596,6 +641,7 @@ sub set_alignment { my ($_entry, $_xalign) = @_ } sub set_completion { my ($_entry, $_completion) = @_ } sub set_editable { my ($_entry, $_editable) = @_ } sub set_has_frame { my ($_entry, $_setting) = @_ } +sub set_inner_border { my ($_entry, $_border) = @_ } sub set_invisible_char { my ($_entry, $_ch) = @_ } sub set_max_length { my ($_entry, $_max) = @_ } sub set_position { my ($_entry, $_position) = @_ } @@ -707,11 +753,13 @@ sub unselect_uri { my ($_chooser, $_uri) = @_ } package Gtk2::FileChooserButton; our @ISA = qw(); +sub get_focus_on_click { my ($_button) = @_ } sub get_title { my ($_button) = @_ } sub get_width_chars { my ($_button) = @_ } sub new { my ($_class, $_title, $_action) = @_ } sub new_with_backend { my ($_class, $_title, $_action, $_backend) = @_ } sub new_with_dialog { my ($_class, $_dialog) = @_ } +sub set_focus_on_click { my ($_button, $_focus_on_click) = @_ } sub set_title { my ($_button, $_title) = @_ } sub set_width_chars { my ($_button, $_n_chars) = @_ } @@ -922,6 +970,7 @@ sub rectangle { my ($_cr, @_more_paras) = @_ } sub region { my ($_cr, $_region) = @_ } sub set_source_color { my ($_cr, $_color) = @_ } sub set_source_pixbuf { my ($_cr, $_pixbuf, $_pixbuf_x, $_pixbuf_y) = @_ } +sub set_source_pixmap { my ($_cr, $_pixmap, $_pixmap_x, $_pixmap_y) = @_ } package Gtk2::Gdk::Color; our @ISA = qw(); @@ -1009,7 +1058,9 @@ sub store_clipboard { my ($_display, $_clipboard_window, $_time_, @_more_paras) sub supports_clipboard_persistence { my ($_display) = @_ } sub supports_cursor_alpha { my ($_display) = @_ } sub supports_cursor_color { my ($_display) = @_ } +sub supports_input_shapes { my ($_display) = @_ } sub supports_selection_notification { my ($_display) = @_ } +sub supports_shapes { my ($_display) = @_ } sub sync { my ($_display) = @_ } sub ungrab { my ($_display) = @_ } sub warp_pointer { my ($_display, $_screen, $_x, $_y) = @_ } @@ -1414,6 +1465,7 @@ sub create_from_xpm { my ($_class, $_drawable, $_transparent_color, $_filename) sub create_from_xpm_d { my ($_class, $_drawable, $_transparent_color, $_data, @_more_paras) = @_ } sub foreign_new { my ($_class, $_anid) = @_ } sub foreign_new_for_display { my ($_class, $_display, $_anid) = @_ } +sub foreign_new_for_screen { my ($_class, $_screen, $_anid, $_width, $_height, $_depth) = @_ } sub lookup { my ($_class, $_anid) = @_ } sub lookup_for_display { my ($_class, $_display, $_anid) = @_ } sub new { my ($_class, $_drawable, $_width, $_height, $_depth) = @_ } @@ -1460,9 +1512,11 @@ sub set_verbose { my ($_class, $_verbose) = @_ } package Gtk2::Gdk::Screen; our @ISA = qw(); sub broadcast_client_message { my ($_screen, $_event) = @_ } +sub get_active_window { my ($_screen) = @_ } sub get_default { my ($_class) = @_ } sub get_default_colormap { my ($_screen) = @_ } sub get_display { my ($_screen) = @_ } +sub get_font_options { my ($_screen) = @_ } sub get_height { my ($_screen) = @_ } sub get_height_mm { my ($_screen) = @_ } sub get_monitor_at_point { my ($_screen, $_x, $_y) = @_ } @@ -1470,6 +1524,7 @@ sub get_monitor_at_window { my ($_screen, $_window) = @_ } sub get_monitor_geometry { my ($_screen, $_monitor_num) = @_ } sub get_n_monitors { my ($_screen) = @_ } sub get_number { my ($_screen) = @_ } +sub get_resolution { my ($_screen) = @_ } sub get_rgb_colormap { my ($_screen) = @_ } sub get_rgb_visual { my ($_screen) = @_ } sub get_rgba_colormap { my ($_screen) = @_ } @@ -1483,9 +1538,13 @@ sub get_toplevel_windows { my ($_screen) = @_ } sub get_width { my ($_screen) = @_ } sub get_width_mm { my ($_screen) = @_ } sub get_window_manager_name { my ($_screen) = @_ } +sub get_window_stack { my ($_screen) = @_ } +sub is_composited { my ($_screen) = @_ } sub list_visuals { my ($_screen) = @_ } sub make_display_name { my ($_screen) = @_ } sub set_default_colormap { my ($_screen, $_colormap) = @_ } +sub set_font_options { my ($_screen, $_options) = @_ } +sub set_resolution { my ($_screen, $_dpi) = @_ } sub supports_net_wm_hint { my ($_screen, $_property) = @_ } package Gtk2::Gdk::Selection; @@ -1566,11 +1625,14 @@ sub get_root_origin { my ($_window) = @_ } sub get_state { my ($_window) = @_ } sub get_toplevel { my ($_window) = @_ } sub get_toplevels { my ($_class) = @_ } +sub get_type_hint { my ($_window) = @_ } sub get_update_area { my ($_window) = @_ } sub get_user_data { my ($_window) = @_ } sub get_window_type { my ($_window) = @_ } sub hide { my ($_window) = @_ } sub iconify { my ($_window) = @_ } +sub input_shape_combine_mask { my ($_window, $_mask, $_x, $_y) = @_ } +sub input_shape_combine_region { my ($_window, $_shape, $_offset_x, $_offset_y) = @_ } sub invalidate_maybe_recurse { my ($_window, $_region, $_func, $_o_data) = @_ } sub invalidate_rect { my ($_window, $_rectangle, $_invalidate_children) = @_ } sub invalidate_region { my ($_window, $_region, $_invalidate_children) = @_ } @@ -1580,6 +1642,7 @@ sub lookup { my ($_class, $_anid) = @_ } sub lookup_for_display { my ($_class, $_display, $_anid) = @_ } sub lower { my ($_window) = @_ } sub maximize { my ($_window) = @_ } +sub merge_child_input_shapes { my ($_window) = @_ } sub merge_child_shapes { my ($_window) = @_ } sub move { my ($_window, $_x, $_y) = @_ } sub move_region { my ($_window, $_region, $_dx, $_dy) = @_ } @@ -1600,6 +1663,7 @@ sub scroll { my ($_window, $_dx, $_dy) = @_ } sub set_accept_focus { my ($_window, $_accept_focus) = @_ } sub set_back_pixmap { my ($_window, $_pixmap, $_o_parent_relative) = @_ } sub set_background { my ($_window, $_color) = @_ } +sub set_child_input_shapes { my ($_window) = @_ } sub set_child_shapes { my ($_window) = @_ } sub set_cursor { my ($_window, $_cursor) = @_ } sub set_debug_updates { my ($_class_or_instance, $_enable) = @_ } @@ -1910,6 +1974,7 @@ sub get_label { my ($_label) = @_ } sub get_layout { my ($_label) = @_ } sub get_layout_offsets { my ($_label) = @_ } sub get_line_wrap { my ($_label) = @_ } +sub get_line_wrap_mode { my ($_label) = @_ } sub get_max_width_chars { my ($_label) = @_ } sub get_mnemonic_keyval { my ($_label) = @_ } sub get_mnemonic_widget { my ($_label) = @_ } @@ -1929,6 +1994,7 @@ sub set_ellipsize { my ($_label, $_mode) = @_ } sub set_justify { my ($_label, $_jtype) = @_ } sub set_label { my ($_label, $_str) = @_ } sub set_line_wrap { my ($_label, $_wrap) = @_ } +sub set_line_wrap_mode { my ($_label, $_wrap_mode) = @_ } sub set_markup { my ($_label, $_str) = @_ } sub set_markup_with_mnemonic { my ($_label, $_str) = @_ } sub set_max_width_chars { my ($_label, $_n_chars) = @_ } @@ -1956,6 +2022,14 @@ sub set_size { my ($_layout, $_width, $_height) = @_ } sub set_vadjustment { my ($_layout, $_adjustment) = @_ } sub thaw { my ($_layout) = @_ } +package Gtk2::LinkButton; +our @ISA = qw(); +sub get_uri { my ($_link_button) = @_ } +sub new { my ($_class, $_url, $_o_label) = @_ } +sub new_with_label { my ($_class, $_url, $_o_label) = @_ } +sub set_uri { my ($_link_button, $_uri) = @_ } +sub set_uri_hook { my ($_class, $_func, $_o_data) = @_ } + package Gtk2::List; our @ISA = qw(); sub append_items { my ($_list, @_more_paras) = @_ } @@ -2087,6 +2161,7 @@ sub format_secondary_markup { my ($_message_dialog, $_message) = @_ } sub format_secondary_text { my ($_message_dialog, $_message_format, @_more_paras) = @_ } sub new { my ($_class, $_parent, $_flags, $_type, $_buttons, $_format, @_more_paras) = @_ } sub new_with_markup { my ($_class, $_parent, $_flags, $_type, $_buttons, $_message) = @_ } +sub set_image { my ($_dialog, $_image) = @_ } sub set_markup { my ($_message_dialog, $_str) = @_ } package Gtk2::Misc; @@ -2101,6 +2176,7 @@ our @ISA = qw(); sub append_page { my ($_notebook, $_child, $_o_tab_label) = @_ } sub append_page_menu { my ($_notebook, $_child, $_tab_label, $_menu_label) = @_ } sub get_current_page { my ($_notebook) = @_ } +sub get_group_id { my ($_notebook) = @_ } sub get_menu_label { my ($_notebook, $_child) = @_ } sub get_menu_label_text { my ($_notebook, $_child) = @_ } sub get_n_pages { my ($_notebook) = @_ } @@ -2108,9 +2184,11 @@ sub get_nth_page { my ($_notebook, $_page_num) = @_ } sub get_scrollable { my ($_notebook) = @_ } sub get_show_border { my ($_notebook) = @_ } sub get_show_tabs { my ($_notebook) = @_ } +sub get_tab_detachable { my ($_notebook, $_child) = @_ } sub get_tab_label { my ($_notebook, $_child) = @_ } sub get_tab_label_text { my ($_notebook, $_child) = @_ } sub get_tab_pos { my ($_notebook) = @_ } +sub get_tab_reorderable { my ($_notebook, $_child) = @_ } sub insert_page { my ($_notebook, $_child, $_tab_label, $_position) = @_ } sub insert_page_menu { my ($_notebook, $_child, $_tab_label, $_menu_label, $_position) = @_ } sub new { my ($_class) = @_ } @@ -2125,18 +2203,22 @@ sub query_tab_label_packing { my ($_notebook, $_child) = @_ } sub remove_page { my ($_notebook, $_page_num) = @_ } sub reorder_child { my ($_notebook, $_child, $_position) = @_ } sub set_current_page { my ($_notebook, $_page_num) = @_ } +sub set_group_id { my ($_notebook, $_group_id) = @_ } sub set_menu_label { my ($_notebook, $_child, $_o_menu_label) = @_ } sub set_menu_label_text { my ($_notebook, $_child, $_menu_text) = @_ } sub set_scrollable { my ($_notebook, $_scrollable) = @_ } sub set_show_border { my ($_notebook, $_show_border) = @_ } sub set_show_tabs { my ($_notebook, $_show_tabs) = @_ } sub set_tab_border { my ($_notebook, $_border_width) = @_ } +sub set_tab_detachable { my ($_notebook, $_child, $_detachable) = @_ } sub set_tab_hborder { my ($_notebook, $_tab_hborder) = @_ } sub set_tab_label { my ($_notebook, $_child, $_o_tab_label) = @_ } sub set_tab_label_packing { my ($_notebook, $_child, $_expand, $_fill, $_pack_type) = @_ } sub set_tab_label_text { my ($_notebook, $_child, $_tab_text) = @_ } sub set_tab_pos { my ($_notebook, $_pos) = @_ } +sub set_tab_reorderable { my ($_notebook, $_child, $_reorderable) = @_ } sub set_tab_vborder { my ($_notebook, $_tab_vborder) = @_ } +sub set_window_creation_hook { my ($_class, $_func, $_o_data) = @_ } package Gtk2::Object; our @ISA = qw(); @@ -2152,6 +2234,27 @@ sub remove_menu { my ($_option_menu) = @_ } sub set_history { my ($_option_menu, $_index) = @_ } sub set_menu { my ($_option_menu, $_menu) = @_ } +package Gtk2::PageSetup; +our @ISA = qw(); +sub get_bottom_margin { my ($_setup, $_unit) = @_ } +sub get_left_margin { my ($_setup, $_unit) = @_ } +sub get_orientation { my ($_setup) = @_ } +sub get_page_height { my ($_setup, $_unit) = @_ } +sub get_page_width { my ($_setup, $_unit) = @_ } +sub get_paper_height { my ($_setup, $_unit) = @_ } +sub get_paper_size { my ($_setup) = @_ } +sub get_paper_width { my ($_setup, $_unit) = @_ } +sub get_right_margin { my ($_setup, $_unit) = @_ } +sub get_top_margin { my ($_setup, $_unit) = @_ } +sub new { my ($_class) = @_ } +sub set_bottom_margin { my ($_setup, $_margin, $_unit) = @_ } +sub set_left_margin { my ($_setup, $_margin, $_unit) = @_ } +sub set_orientation { my ($_setup, $_orientation) = @_ } +sub set_paper_size { my ($_setup, $_size) = @_ } +sub set_paper_size_and_default_margins { my ($_setup, $_size) = @_ } +sub set_right_margin { my ($_setup, $_margin, $_unit) = @_ } +sub set_top_margin { my ($_setup, $_margin, $_unit) = @_ } + package Gtk2::Paned; our @ISA = qw(); sub add1 { my ($_paned, $_child) = @_ } @@ -2190,8 +2293,10 @@ sub scale_xx_small { my ($_class) = @_ } package Gtk2::Pango::Cairo; our @ISA = qw(); sub create_layout { my ($_cr) = @_ } +sub error_underline_path { my ($_cr, $_x, $_y, $_width, $_height) = @_ } sub glyph_string_path { my ($_cr, $_font, $_glyphs) = @_ } sub layout_path { my ($_cr, $_layout) = @_ } +sub show_error_underline { my ($_cr, $_x, $_y, $_width, $_height) = @_ } sub show_glyph_string { my ($_cr, $_font, $_glyphs) = @_ } sub show_layout { my ($_cr, $_layout) = @_ } sub update_context { my ($_cr, $_context) = @_ } @@ -2231,6 +2336,8 @@ sub set_matrix { my ($_context, $_matrix) = @_ } package Gtk2::Pango::Font; our @ISA = qw(); sub describe { my ($_font) = @_ } +sub describe_with_absolute_size { my ($_font) = @_ } +sub get_font_map { my ($_font) = @_ } sub get_glyph_extents { my ($_font, $_glyph) = @_ } sub get_metrics { my ($_font, $_language) = @_ } @@ -2416,6 +2523,25 @@ sub new_with_positions { my ($_class, $_initial_size, $_positions_in_pixels, @_m sub resize { my ($_tab_array, $_new_size) = @_ } sub set_tab { my ($_tab_array, $_tab_index, $_alignment, $_location) = @_ } +package Gtk2::PaperSize; +our @ISA = qw(); +sub get_default { my ($_class) = @_ } +sub get_default_bottom_margin { my ($_size, $_unit) = @_ } +sub get_default_left_margin { my ($_size, $_unit) = @_ } +sub get_default_right_margin { my ($_size, $_unit) = @_ } +sub get_default_top_margin { my ($_size, $_unit) = @_ } +sub get_display_name { my ($_size) = @_ } +sub get_height { my ($_size, $_unit) = @_ } +sub get_name { my ($_size) = @_ } +sub get_ppd_name { my ($_size) = @_ } +sub get_width { my ($_size, $_unit) = @_ } +sub is_custom { my ($_size) = @_ } +sub is_equal { my ($_size1, $_size2) = @_ } +sub new { my ($_class, $_name) = @_ } +sub new_custom { my ($_class, $_name, $_display_name, $_width, $_height, $_unit) = @_ } +sub new_from_ppd { my ($_class, $_ppd_name, $_ppd_display_name, $_width, $_height) = @_ } +sub set_size { my ($_size, $_width, $_height, $_unit) = @_ } + package Gtk2::Plug; our @ISA = qw(); sub construct { my ($_plug, $_socket_id) = @_ } @@ -2424,6 +2550,63 @@ sub get_id { my ($_plug) = @_ } sub new { my ($_class, $_socket_id) = @_ } sub new_for_display { my ($_display, $_socket_id) = @_ } +package Gtk2::Print; +our @ISA = qw(); +sub run_page_setup_dialog { my ($_class, $_parent, $_page_setup, $_settings) = @_ } +sub run_page_setup_dialog_async { my ($_class, $_parent, $_page_setup, $_settings, $_func, $_o_data) = @_ } + +package Gtk2::PrintContext; +our @ISA = qw(); +sub create_pango_context { my ($_context) = @_ } +sub create_pango_layout { my ($_context) = @_ } +sub get_cairo_context { my ($_context) = @_ } +sub get_dpi_x { my ($_context) = @_ } +sub get_dpi_y { my ($_context) = @_ } +sub get_height { my ($_context) = @_ } +sub get_page_setup { my ($_context) = @_ } +sub get_pango_fontmap { my ($_context) = @_ } +sub get_width { my ($_context) = @_ } +sub set_cairo_context { my ($_context, $_cr, $_dpi_x, $_dpi_y) = @_ } + +package Gtk2::PrintOperation; +our @ISA = qw(); +sub cancel { my ($_op) = @_ } +sub get_default_page_setup { my ($_op) = @_ } +sub get_error { my ($_op) = @_ } +sub get_print_settings { my ($_op) = @_ } +sub get_status { my ($_op) = @_ } +sub get_status_string { my ($_op) = @_ } +sub is_finished { my ($_op) = @_ } +sub new { my ($_class) = @_ } +sub run { my ($_op, $_action, $_parent) = @_ } +sub set_allow_async { my ($_op, $_allow_async) = @_ } +sub set_current_page { my ($_op, $_current_page) = @_ } +sub set_custom_tab_label { my ($_op, $_label) = @_ } +sub set_default_page_setup { my ($_op, $_default_page_setup) = @_ } +sub set_export_filename { my ($_op, $_filename) = @_ } +sub set_job_name { my ($_op, $_job_name) = @_ } +sub set_n_pages { my ($_op, $_n_pages) = @_ } +sub set_print_settings { my ($_op, $_print_settings) = @_ } +sub set_show_progress { my ($_op, $_show_progress) = @_ } +sub set_track_print_status { my ($_op, $_track_status) = @_ } +sub set_unit { my ($_op, $_unit) = @_ } +sub set_use_full_page { my ($_op, $_full_page) = @_ } + +package Gtk2::PrintOperationPreview; +our @ISA = qw(); +sub end_preview { my ($_preview) = @_ } +sub is_selected { my ($_preview, $_page_nr) = @_ } +sub render_page { my ($_preview, $_page_nr) = @_ } + +package Gtk2::PrintSettings; +our @ISA = qw(); +sub Gtk2::PrintSettings::foreach { my ($_settings, $_func, $_o_data) = @_ } +sub get { my ($_settings, $_key) = @_ } +sub has_key { my ($_settings, $_key) = @_ } +sub new { my ($_class) = @_ } +sub set { my ($_settings, $_key, $_value) = @_ } +sub unset { my ($_settings, $_key) = @_ } + package Gtk2::ProgressBar; our @ISA = qw(); sub get_ellipsize { my ($_pbar) = @_ } @@ -2443,6 +2626,7 @@ package Gtk2::RadioAction; our @ISA = qw(); sub get_current_value { my ($_action) = @_ } sub get_group { my ($_action) = @_ } +sub set_current_value { my ($_action, $_value) = @_ } sub set_group { my ($_action, $_member_or_listref) = @_ } package Gtk2::RadioButton; @@ -2480,13 +2664,17 @@ package Gtk2::Range; our @ISA = qw(); sub get_adjustment { my ($_range) = @_ } sub get_inverted { my ($_range) = @_ } +sub get_lower_stepper_sensitivity { my ($_range) = @_ } sub get_update_policy { my ($_range) = @_ } +sub get_upper_stepper_sensitivity { my ($_range) = @_ } sub get_value { my ($_range) = @_ } sub set_adjustment { my ($_range, $_adjustment) = @_ } sub set_increments { my ($_range, $_step, $_page) = @_ } sub set_inverted { my ($_range, $_setting) = @_ } +sub set_lower_stepper_sensitivity { my ($_range, $_sensitivity) = @_ } sub set_range { my ($_range, $_min, $_max) = @_ } sub set_update_policy { my ($_range, $_policy) = @_ } +sub set_upper_stepper_sensitivity { my ($_range, $_sensitivity) = @_ } sub set_value { my ($_range, $_value) = @_ } package Gtk2::Rc; @@ -2521,6 +2709,113 @@ sub text { my ($_style, $_state, $_o_new) = @_ } sub xthickness { my ($_style, $_o_new) = @_ } sub ythickness { my ($_style, $_o_new) = @_ } +package Gtk2::RecentChooser; +our @ISA = qw(); +sub add_filter { my ($_chooser, $_filter) = @_ } +sub get_current_item { my ($_chooser) = @_ } +sub get_current_uri { my ($_chooser) = @_ } +sub get_filter { my ($_chooser) = @_ } +sub get_items { my ($_chooser) = @_ } +sub get_limit { my ($_chooser) = @_ } +sub get_local_only { my ($_chooser) = @_ } +sub get_select_multiple { my ($_chooser) = @_ } +sub get_show_icons { my ($_chooser) = @_ } +sub get_show_not_found { my ($_chooser) = @_ } +sub get_show_private { my ($_chooser) = @_ } +sub get_show_tips { my ($_chooser) = @_ } +sub get_sort_type { my ($_chooser) = @_ } +sub get_uris { my ($_chooser) = @_ } +sub list_filters { my ($_chooser) = @_ } +sub remove_filter { my ($_chooser, $_filter) = @_ } +sub select_all { my ($_chooser) = @_ } +sub select_uri { my ($_chooser, $_uri) = @_ } +sub set_current_uri { my ($_chooser, $_uri) = @_ } +sub set_filter { my ($_chooser, $_filter) = @_ } +sub set_limit { my ($_chooser, $_limit) = @_ } +sub set_local_only { my ($_chooser, $_local_only) = @_ } +sub set_select_multiple { my ($_chooser, $_select_multiple) = @_ } +sub set_show_icons { my ($_chooser, $_show_icons) = @_ } +sub set_show_not_found { my ($_chooser, $_show_not_found) = @_ } +sub set_show_private { my ($_chooser, $_show_private) = @_ } +sub set_show_tips { my ($_chooser, $_show_tips) = @_ } +sub set_sort_func { my ($_chooser, $_sort_func, $_o_sort_data) = @_ } +sub set_sort_type { my ($_chooser, $_sort_type) = @_ } +sub unselect_all { my ($_chooser) = @_ } +sub unselect_uri { my ($_chooser, $_uri) = @_ } + +package Gtk2::RecentChooserDialog; +our @ISA = qw(); +sub new { my ($_class, $_title, $_parent, @_more_paras) = @_ } +sub new_for_manager { my ($_class, $_title, $_parent, @_more_paras) = @_ } + +package Gtk2::RecentChooserMenu; +our @ISA = qw(); +sub get_show_numbers { my ($_menu) = @_ } +sub new { my ($_class) = @_ } +sub new_for_manager { my ($_class, $_manager) = @_ } +sub set_show_numbers { my ($_menu, $_show_numbers) = @_ } + +package Gtk2::RecentChooserWidget; +our @ISA = qw(); +sub new { my ($_class) = @_ } +sub new_for_manager { my ($_class, $_manager) = @_ } + +package Gtk2::RecentFilter; +our @ISA = qw(); +sub add_age { my ($_filter, $_days) = @_ } +sub add_application { my ($_filter, $_application) = @_ } +sub add_custom { my ($_filter, $_needed, $_func, $_o_data) = @_ } +sub add_group { my ($_filter, $_group) = @_ } +sub add_mime_type { my ($_filter, $_mime_type) = @_ } +sub add_pattern { my ($_filter, $_pattern) = @_ } +sub add_pixbuf_formats { my ($_filter) = @_ } +sub filter { my ($_filter, $_filter_info) = @_ } +sub get_name { my ($_filter) = @_ } +sub get_needed { my ($_filter) = @_ } +sub new { my ($_class) = @_ } +sub set_name { my ($_filter, $_name) = @_ } + +package Gtk2::RecentInfo; +our @ISA = qw(); +sub exists { my ($_info) = @_ } +sub get_added { my ($_info) = @_ } +sub get_age { my ($_info) = @_ } +sub get_application_info { my ($_info, $_app_name) = @_ } +sub get_applications { my ($_info) = @_ } +sub get_description { my ($_info) = @_ } +sub get_display_name { my ($_info) = @_ } +sub get_groups { my ($_info) = @_ } +sub get_icon { my ($_info, $_size) = @_ } +sub get_mime_type { my ($_info) = @_ } +sub get_modified { my ($_info) = @_ } +sub get_private_hint { my ($_info) = @_ } +sub get_short_name { my ($_info) = @_ } +sub get_uri { my ($_info) = @_ } +sub get_uri_display { my ($_info) = @_ } +sub get_visited { my ($_info) = @_ } +sub has_application { my ($_info, $_app_name) = @_ } +sub has_group { my ($_info, $_group_name) = @_ } +sub is_local { my ($_info) = @_ } +sub last_application { my ($_info) = @_ } +sub match { my ($_info, $_other_info) = @_ } + +package Gtk2::RecentManager; +our @ISA = qw(); +sub add_full { my ($_manager, $_uri, $_data) = @_ } +sub add_item { my ($_manager, $_uri) = @_ } +sub get_default { my ($_class) = @_ } +sub get_for_screen { my ($_class, $_screen) = @_ } +sub get_items { my ($_manager) = @_ } +sub get_limit { my ($_manager) = @_ } +sub has_item { my ($_manager, $_uri) = @_ } +sub lookup_item { my ($_manager, $_uri) = @_ } +sub move_item { my ($_manager, $_old_uri, $_new_uri) = @_ } +sub new { my ($_class) = @_ } +sub purge_items { my ($_manager) = @_ } +sub remove_item { my ($_manager, $_uri) = @_ } +sub set_limit { my ($_manager, $_limit) = @_ } +sub set_screen { my ($_manager, $_screen) = @_ } + package Gtk2::Requisition; our @ISA = qw(); sub height { my ($_requisition, $_o_newval) = @_ } @@ -2563,6 +2858,7 @@ sub set_placement { my ($_scrolled_window, $_window_placement) = @_ } sub set_policy { my ($_scrolled_window, $_hscrollbar_policy, $_vscrollbar_policy) = @_ } sub set_shadow_type { my ($_scrolled_window, $_type) = @_ } sub set_vadjustment { my ($_scrolled_window, $_hadjustment) = @_ } +sub unset_placement { my ($_scrolled_window) = @_ } package Gtk2::Selection; our @ISA = qw(); @@ -2589,7 +2885,9 @@ sub set_text { my ($_selection_data, $_str, $_o_len) = @_ } sub set_uris { my ($_selection_data, @_more_paras) = @_ } sub target { my ($_d) = @_ } sub targets_include_image { my ($_selection_data, $_writable) = @_ } +sub targets_include_rich_text { my ($_selection_data, $_buffer) = @_ } sub targets_include_text { my ($_selection_data) = @_ } +sub targets_include_uri { my ($_selection_data) = @_ } sub type { my ($_d) = @_ } package Gtk2::SeparatorMenuItem; @@ -2607,6 +2905,7 @@ our @ISA = qw(); sub add_widget { my ($_size_group, $_widget) = @_ } sub get_ignore_hidden { my ($_size_group) = @_ } sub get_mode { my ($_size_group) = @_ } +sub get_widgets { my ($_size_group) = @_ } sub new { my ($_class, $_mode) = @_ } sub remove_widget { my ($_size_group, $_widget) = @_ } sub set_ignore_hidden { my ($_size_group, $_ignore_hidden) = @_ } @@ -2646,6 +2945,31 @@ sub set_wrap { my ($_spin_button, $_wrap) = @_ } sub spin { my ($_spin_button, $_direction, $_increment) = @_ } sub update { my ($_spin_button) = @_ } +package Gtk2::StatusIcon; +our @ISA = qw(); +sub get_blinking { my ($_status_icon) = @_ } +sub get_geometry { my ($_status_icon) = @_ } +sub get_icon_name { my ($_status_icon) = @_ } +sub get_pixbuf { my ($_status_icon) = @_ } +sub get_size { my ($_status_icon) = @_ } +sub get_stock { my ($_status_icon) = @_ } +sub get_storage_type { my ($_status_icon) = @_ } +sub get_visible { my ($_status_icon) = @_ } +sub is_embedded { my ($_status_icon) = @_ } +sub new { my ($_class) = @_ } +sub new_from_file { my ($_class, $_filename) = @_ } +sub new_from_icon_name { my ($_class, $_icon_name) = @_ } +sub new_from_pixbuf { my ($_class, $_pixbuf) = @_ } +sub new_from_stock { my ($_class, $_stock_id) = @_ } +sub position_menu { my ($_menu, $_x, $_y, $_icon) = @_ } +sub set_blinking { my ($_status_icon, $_blinking) = @_ } +sub set_from_file { my ($_status_icon, $_filename) = @_ } +sub set_from_icon_name { my ($_status_icon, $_icon_name) = @_ } +sub set_from_pixbuf { my ($_status_icon, $_pixbuf) = @_ } +sub set_from_stock { my ($_status_icon, $_stock_id) = @_ } +sub set_tooltip { my ($_status_icon, $_tooltip_text) = @_ } +sub set_visible { my ($_status_icon, $_visible) = @_ } + package Gtk2::Statusbar; our @ISA = qw(); sub get_context_id { my ($_statusbar, $_context_description) = @_ } @@ -2684,6 +3008,7 @@ sub fg_gc { my ($_style, $_state) = @_ } sub font_desc { my ($_style) = @_ } sub light { my ($_style, $_state) = @_ } sub light_gc { my ($_style, $_state) = @_ } +sub lookup_color { my ($_style, $_color_name) = @_ } sub lookup_icon_set { my ($_style, $_stock_id) = @_ } sub mid { my ($_style, $_state) = @_ } sub mid_gc { my ($_style, $_state) = @_ } @@ -2741,6 +3066,7 @@ our @ISA = qw(); sub DESTROY { my ($_list) = @_ } sub add { my ($_list, $_target, $_flags, $_info) = @_ } sub add_image_targets { my ($_list, $_info, $_writable) = @_ } +sub add_rich_text_targets { my ($_list, $_info, $_deserializable, $_buffer) = @_ } sub add_table { my ($_list, @_more_paras) = @_ } sub add_text_targets { my ($_list, $_info) = @_ } sub add_uri_targets { my ($_list, $_info) = @_ } @@ -2774,10 +3100,16 @@ sub delete_interactive { my ($_buffer, $_start_iter, $_end_iter, $_default_edita sub delete_mark { my ($_buffer, $_mark) = @_ } sub delete_mark_by_name { my ($_buffer, $_name) = @_ } sub delete_selection { my ($_buffer, $_interactive, $_default_editable) = @_ } +sub deserialize { my ($_register_buffer, $_content_buffer, $_format, $_iter, $_data) = @_ } +sub deserialize_get_can_create_tags { my ($_buffer, $_format) = @_ } +sub deserialize_set_can_create_tags { my ($_buffer, $_format, $_can_create_tags) = @_ } sub end_user_action { my ($_buffer) = @_ } sub get_bounds { my ($_buffer) = @_ } sub get_char_count { my ($_buffer) = @_ } +sub get_copy_target_list { my ($_buffer) = @_ } +sub get_deserialize_formats { my ($_buffer) = @_ } sub get_end_iter { my ($_buffer) = @_ } +sub get_has_selection { my ($_buffer) = @_ } sub get_insert { my ($_buffer) = @_ } sub get_iter_at_child_anchor { my ($_buffer, $_anchor) = @_ } sub get_iter_at_line { my ($_buffer, $_line_number) = @_ } @@ -2788,8 +3120,10 @@ sub get_iter_at_offset { my ($_buffer, $_char_offset) = @_ } sub get_line_count { my ($_buffer) = @_ } sub get_mark { my ($_buffer, $_name) = @_ } sub get_modified { my ($_buffer) = @_ } +sub get_paste_target_list { my ($_buffer) = @_ } sub get_selection_bound { my ($_buffer) = @_ } sub get_selection_bounds { my ($_buffer) = @_ } +sub get_serialize_formats { my ($_buffer) = @_ } sub get_slice { my ($_buffer, $_start, $_end, $_include_hidden_chars) = @_ } sub get_start_iter { my ($_buffer) = @_ } sub get_tag_table { my ($_buffer) = @_ } @@ -2809,13 +3143,20 @@ sub move_mark_by_name { my ($_buffer, $_name, $_where) = @_ } sub new { my ($_class, $_o_tagtable) = @_ } sub paste_clipboard { my ($_buffer, $_clipboard, $_override_location, $_default_editable) = @_ } sub place_cursor { my ($_buffer, $_where) = @_ } +sub register_deserialize_format { my ($_buffer, $_mime_type, $_function, $_o_user_data) = @_ } +sub register_deserialize_tagset { my ($_buffer, $_tagset_name) = @_ } +sub register_serialize_format { my ($_buffer, $_mime_type, $_function, $_o_user_data) = @_ } +sub register_serialize_tagset { my ($_buffer, $_tagset_name) = @_ } sub remove_all_tags { my ($_buffer, $_start, $_end) = @_ } sub remove_selection_clipboard { my ($_buffer, $_clipboard) = @_ } sub remove_tag { my ($_buffer, $_tag, $_start, $_end) = @_ } sub remove_tag_by_name { my ($_buffer, $_name, $_start, $_end) = @_ } sub select_range { my ($_buffer, $_ins, $_bound) = @_ } +sub serialize { my ($_register_buffer, $_content_buffer, $_format, $_start, $_end) = @_ } sub set_modified { my ($_buffer, $_setting) = @_ } sub set_text { my ($_buffer, $_text, $_text) = @_ } +sub unregister_deserialize_format { my ($_buffer, $_format) = @_ } +sub unregister_serialize_format { my ($_buffer, $_format) = @_ } package Gtk2::TextChildAnchor; our @ISA = qw(); @@ -3258,6 +3599,7 @@ sub clear { my ($_tree_store) = @_ } sub insert { my ($_tree_store, $_parent, $_position) = @_ } sub insert_after { my ($_tree_store, $_parent, $_sibling) = @_ } sub insert_before { my ($_tree_store, $_parent, $_sibling) = @_ } +sub insert_with_values { my ($_tree_store, $_parent, $_position, @_more_paras) = @_ } sub is_ancestor { my ($_tree_store, $_iter, $_descendant) = @_ } sub iter_depth { my ($_tree_store, $_iter) = @_ } sub iter_is_valid { my ($_tree_store, $_iter) = @_ } @@ -3293,17 +3635,22 @@ sub get_cursor { my ($_tree_view) = @_ } sub get_dest_row_at_pos { my ($_tree_view, $_drag_x, $_drag_y) = @_ } sub get_drag_dest_row { my ($_tree_view) = @_ } sub get_enable_search { my ($_tree_view) = @_ } +sub get_enable_tree_lines { my ($_tree_view) = @_ } sub get_expander_column { my ($_tree_view) = @_ } sub get_fixed_height_mode { my ($_treeview) = @_ } +sub get_grid_lines { my ($_tree_view) = @_ } sub get_hadjustment { my ($_tree_view) = @_ } +sub get_headers_clickable { my ($_tree_view) = @_ } sub get_headers_visible { my ($_tree_view) = @_ } sub get_hover_expand { my ($_treeview) = @_ } sub get_hover_selection { my ($_treeview) = @_ } sub get_model { my ($_tree_view) = @_ } sub get_path_at_pos { my ($_tree_view, $_x, $_y) = @_ } sub get_reorderable { my ($_tree_view) = @_ } +sub get_rubber_banding { my ($_tree_view) = @_ } sub get_rules_hint { my ($_tree_view) = @_ } sub get_search_column { my ($_tree_view) = @_ } +sub get_search_entry { my ($_tree_view) = @_ } sub get_selection { my ($_tree_view) = @_ } sub get_vadjustment { my ($_tree_view) = @_ } sub get_visible_range { my ($_tree_view) = @_ } @@ -3325,8 +3672,10 @@ sub set_cursor { my ($_tree_view, $_path, $_o_focus_column, $_o_start_editing) = sub set_cursor_on_cell { my ($_tree_view, $_path, $_focus_column, $_focus_cell, $_start_editing) = @_ } sub set_drag_dest_row { my ($_tree_view, $_path, $_pos) = @_ } sub set_enable_search { my ($_tree_view, $_enable_search) = @_ } +sub set_enable_tree_lines { my ($_tree_view, $_enabled) = @_ } sub set_expander_column { my ($_tree_view, $_column) = @_ } sub set_fixed_height_mode { my ($_treeview, $_enable) = @_ } +sub set_grid_lines { my ($_tree_view, $_grid_lines) = @_ } sub set_hadjustment { my ($_tree_view, $_adjustment) = @_ } sub set_headers_clickable { my ($_tree_view, $_setting) = @_ } sub set_headers_visible { my ($_tree_view, $_headers_visible) = @_ } @@ -3335,9 +3684,12 @@ sub set_hover_selection { my ($_treeview, $_hover) = @_ } sub set_model { my ($_tree_view, $_model) = @_ } sub set_reorderable { my ($_tree_view, $_reorderable) = @_ } sub set_row_separator_func { my ($_tree_view, $_func, $_o_data) = @_ } +sub set_rubber_banding { my ($_tree_view, $_enable) = @_ } sub set_rules_hint { my ($_tree_view, $_setting) = @_ } sub set_search_column { my ($_tree_view, $_column) = @_ } +sub set_search_entry { my ($_tree_view, $_entry) = @_ } sub set_search_equal_func { my ($_tree_view, $_func, $_o_data) = @_ } +sub set_search_position_func { my ($_tree_view, $_func, $_o_user_data) = @_ } sub set_vadjustment { my ($_tree_view, $_adjustment) = @_ } sub tree_to_widget_coords { my ($_tree_view, $_tx, $_ty) = @_ } sub unset_rows_drag_dest { my ($_tree_view) = @_ } @@ -3491,9 +3843,11 @@ sub drag_dest_add_text_targets { my ($_widget) = @_ } sub drag_dest_add_uri_targets { my ($_widget) = @_ } sub drag_dest_find_target { my ($_widget, $_context, $_target_list) = @_ } sub drag_dest_get_target_list { my ($_widget) = @_ } +sub drag_dest_get_track_motion { my ($_widget) = @_ } sub drag_dest_set { my ($_widget, $_flags, $_actions, @_more_paras) = @_ } sub drag_dest_set_proxy { my ($_widget, $_proxy_window, $_protocol, $_use_coordinates) = @_ } sub drag_dest_set_target_list { my ($_widget, $_target_list) = @_ } +sub drag_dest_set_track_motion { my ($_widget, $_track_motion) = @_ } sub drag_dest_unset { my ($_widget) = @_ } sub drag_get_data { my ($_widget, $_context, $_target, $_time_) = @_ } sub drag_highlight { my ($_widget) = @_ } @@ -3515,6 +3869,7 @@ sub event { my ($_widget, $_event) = @_ } sub flags { my ($_widget) = @_ } sub freeze_child_notify { my ($_widget) = @_ } sub get_accessible { my ($_widget) = @_ } +sub get_action { my ($_widget) = @_ } sub get_ancestor { my ($_widget, $_ancestor_package) = @_ } sub get_child_requisition { my ($_widget) = @_ } sub get_child_visible { my ($_widget) = @_ } @@ -3552,6 +3907,7 @@ sub has_grab { my ($_widget, @_more_paras) = @_ } sub has_screen { my ($_widget) = @_ } sub hide { my ($_widget) = @_ } sub hide_all { my ($_widget) = @_ } +sub input_shape_combine_mask { my ($_widget, $_shape_mask, $_offset_x, $_offset_y) = @_ } sub intersect { my ($_widget, $_area) = @_ } sub is_ancestor { my ($_widget, $_ancestor) = @_ } sub is_focus { my ($_widget) = @_ } @@ -3656,11 +4012,13 @@ sub get_accept_focus { my ($_window) = @_ } sub get_decorated { my ($_window) = @_ } sub get_default_icon_list { my ($_class) = @_ } sub get_default_size { my ($_window) = @_ } +sub get_deletable { my ($_window) = @_ } sub get_destroy_with_parent { my ($_window) = @_ } sub get_focus { my ($_window) = @_ } sub get_focus_on_map { my ($_window) = @_ } sub get_frame_dimensions { my ($_window) = @_ } sub get_gravity { my ($_window) = @_ } +sub get_group { my ($_window) = @_ } sub get_has_frame { my ($_window) = @_ } sub get_icon { my ($_window) = @_ } sub get_icon_list { my ($_window) = @_ } @@ -3704,6 +4062,7 @@ sub set_default_icon_from_file { my ($_class_or_instance, $_filename) = @_ } sub set_default_icon_list { my ($_class, $_pixbuf, @_more_paras) = @_ } sub set_default_icon_name { my ($_class, $_name) = @_ } sub set_default_size { my ($_window, $_width, $_height) = @_ } +sub set_deletable { my ($_window, $_setting) = @_ } sub set_destroy_with_parent { my ($_window, $_setting) = @_ } sub set_focus { my ($_window, $_o_focus) = @_ } sub set_focus_on_map { my ($_window, $_setting) = @_ } |