mplisp

gtk.ffi (17801B)

---

 # -*- picolisp -*-
 
 (load "@src/mod/ffi.l")
 
 (module 'gtk)
 #(module 'gtk '((X) (pack "gtk:" (cddddr (chop X)))))
 
 (include "gtk/gtk.h" "glade/glade.h")
 
 (cfun void* gtk_window_new long)
 (cfun void gtk_window_set_title void* cstr)
 (cfun cstr gtk_window_get_title void*)
 (cfun void gtk_window_set_default_size void* long long)
 (cfun void gtk_window_set_position void* long)
 (cfun void gtk_window_set_resizable void* bool)
 (cfun void gtk_window_set_transient_for void* void*)
 (cfun void gtk_window_maximize void*)
 (cfun void* gtk_message_dialog_new void* long long long cstr)
 (cfun bool gtk_window_set_icon_from_file void* cstr null)
 (cfun void gtk_window_set_keep_above void* bool)
 (cfun void gtk_window_set_keep_below void* bool)
 (cfun void gtk_about_dialog_set_version void* cstr)
 (cfun void* gtk_table_new long long bool)
 (cfun void gtk_table_attach_defaults void* void* long long long long)
 (cfun void gtk_container_add void* void*)
 (cfun void gtk_container_remove void* void*)
 (cfun void gtk_container_set_border_width void* long)
 (cfun void* gtk_hbox_new bool long)
 (cfun void* gtk_vbox_new bool long)
 (cfun void gtk_box_pack_start void* void* bool bool long)
 (cfun void gtk_box_pack_end void* void* bool bool long)
 (cfun void gtk_box_pack_start_defaults void* void*)
 (cfun void gtk_box_pack_end_defaults void* void*)
 (cfun void* gtk_button_new)
 (cfun void* gtk_button_new_with_label cstr)
 (cfun void* gtk_button_new_from_stock cstr)
 (cfun void* gtk_button_new_with_mnemonic cstr)
 (cfun void gtk_button_set_use_stock void* bool)
 (cfun void gtk_button_set_label void* cstr)
 (cfun void gtk_button_set_relief void* long)
 (cfun void* gtk_toggle_button_new)
 (cfun void* gtk_toggle_button_new_with_label cstr)
 (cfun bool gtk_toggle_button_get_active void*)
 (cfun void gtk_toggle_button_set_active void* bool)
 (cfun void* gtk_check_button_new_with_label cstr)
 (cfun void* gtk_entry_new)
 (cfun cstr gtk_entry_get_text void*)
 (cfun void gtk_entry_set_text void* cstr)
 (cfun void gtk_entry_set_visibility void* bool)
 (cfun void gtk_editable_delete_text void* long long)
 (cfun cstr gtk_editable_get_chars void* long long)
 (cfun void gtk_editable_set_editable void* bool)
 (cfun void gtk_editable_select_region void* long long)
 (cfun void* gtk_text_buffer_new null)
 (cfun void gtk_text_buffer_set_text void* cstr long)
 (cfun void gtk_text_buffer_insert_at_cursor void* cstr long)
 (cfun void* gtk_text_buffer_get_insert void*)
 (cfun void gtk_text_buffer_get_start_iter void* void*)
 (cfun void gtk_text_buffer_get_end_iter void* void*)
 (cfun void gtk_text_buffer_get_bounds void* void* void*)
 (cfun bool gtk_text_buffer_get_selection_bounds void* void* void*)
 (cfun void gtk_text_buffer_get_iter_at_offset void* void* long)
 (cfun cstr gtk_text_buffer_get_text void* void* void* bool)
 (cfun void gtk_text_buffer_insert void* void* cstr long)
 (cfun void* gtk_text_buffer_create_tag void* cstr cstr long null)
 (cfun void gtk_text_buffer_insert_with_tags_by_name void* void* cstr long cstr cstr cstr null)
 (cfun void gtk_text_buffer_apply_tag_by_name void* cstr void* void*)
 (cfun void gtk_text_buffer_remove_tag_by_name void* cstr void* void*)
 (cfun void gtk_text_buffer_remove_all_tags void* void* void*)
 (cfun void* gtk_text_buffer_get_tag_table void*)
 (cfun void gtk_text_buffer_select_range void* void* void*)
 (cfun void* gtk_text_buffer_get_selection_bound void*)
 (cfun long gtk_text_buffer_get_line_count void*)
 (cfun void* gtk_text_buffer_create_mark void* cstr void* bool)
 (cfun void gtk_text_buffer_get_iter_at_mark void* void* void*)
 (cfun void gtk_text_buffer_get_iter_at_line void* void* long)
 (cfun void gtk_text_buffer_delete void* void* void*)
 (cfun void gtk_text_buffer_delete_mark void* void*)
 (cfun void gtk_text_buffer_delete_mark_by_name void* cstr)
 (cfun void gtk_text_buffer_place_cursor void* void*)
 (cfun void gtk_text_buffer_copy_clipboard void* void*)
 (cfun void gtk_text_buffer_cut_clipboard void* void* bool)
 (cfun void gtk_text_buffer_paste_clipboard void* void* null bool)
 (cfun void* gtk_scrolled_window_new null null)
 (cfun void gtk_scrolled_window_set_policy void* long long)
 (cfun void gtk_scrolled_window_set_shadow_type void* long)
 (cfun void gtk_scrolled_window_add_with_viewport void* void*)
 (cfun void* gtk_text_view_new_with_buffer void*)
 (cfun void gtk_text_view_set_wrap_mode void* long)
 (cfun void gtk_text_view_set_editable void* bool)
 (cfun void gtk_text_view_set_border_window_size void* long long)
 (cfun bool gtk_text_view_move_mark_onscreen void* void*)
 (cfun void gtk_text_view_scroll_to_mark void* void* double bool double double)
 (cfun void gtk_text_view_scroll_mark_onscreen void* void*)
 (cfun void gtk_text_view_set_pixels_inside_wrap void* long)
 (cfun long gtk_text_view_get_pixels_inside_wrap void*)
 (cfun void gtk_text_view_set_pixels_above_lines void* long)
 (cfun long gtk_text_view_get_pixels_above_lines void*)
 (cfun void gtk_text_view_set_cursor_visible void* bool)
 (cfun void gtk_text_view_window_to_buffer_coords void* long long long void* void*)
 (cfun bool gtk_text_iter_forward_search void* cstr long void* void* null)
 (cfun bool gtk_text_iter_forward_visible_cursor_position void*)
 (cfun bool gtk_text_iter_forward_to_line_end void*)
 (cfun void gtk_text_iter_set_line void* long)
 (cfun void gtk_text_iter_set_line_offset void* long)
 (cfun void gtk_text_iter_set_line_index void* long)
 (cfun cstr gtk_text_iter_get_text void* void*)
 (cfun long gtk_text_iter_get_line void*)
 (cfun void* gtk_text_view_new)
 (cfun void* gtk_text_view_get_buffer void*)
 (cfun void gtk_text_tag_table_remove void* void*)
 (cfun void* gdk_font_load cstr)
 (cfun void* gdk_pixmap_new void* long long long)
 (cfun void gdk_pixmap_unref void*)
 (cfun void* gdk_pixmap_create_from_xpm void* null null cstr)
 (cfun void* gdk_pixmap_colormap_create_from_xpm null void* null null cstr)
 (cfun void gdk_draw_rectangle void* void* bool long long long long)
 (cfun void gdk_draw_arc void* void* bool long long long long long long)
 (cfun void gdk_draw_line void* void* long long long long)
 (cfun void gdk_draw_point void* void* long long)
 (cfun void gdk_draw_layout void* void* long long void*)
 (cfun void gdk_draw_drawable void* void* void* long long long long long long)
 (cfun void* gdk_gc_new void*)
 (cfun void gdk_gc_set_rgb_fg_color void* void*)
 (cfun void gdk_gc_set_rgb_bg_color void* void*)
 (cfun void gdk_gc_set_foreground void* void*)
 (cfun void gdk_gc_set_background void* void*)
 (cfun void gdk_gc_set_colormap void* void*)
 (cfun long gdk_color_alloc void* void*)
 (cfun long gdk_color_parse cstr void*)
 (cfun void* gdk_colormap_get_system)
 (cfun bool gdk_colormap_alloc_color void* void* bool bool)
 (cfun void* gdk_get_default_root_window)
 (cfun void gdk_rgb_find_color void* void*)
 (cfun void gdk_drawable_set_colormap void* void*)
 (cfun void gdk_drawable_get_size void* void* void*)
 (cfun bool gdk_keymap_translate_keyboard_state null long long long void* null null null)
 (cfun void gdk_window_process_all_updates)
 (cfun void gdk_window_get_geometry void* null null void* cstr null)
 (cfun void* gdk_screen_get_default)
 (cfun long gdk_screen_get_width void*)
 (cfun long gdk_screen_get_height void*)
 (cfun long gdk_screen_width)
 (cfun long gdk_screen_height)
 (cfun void gdk_flush)
 (cfun void gdk_init null null)
 (cfun void* gdk_display_get_default)
 (cfun void gdk_display_get_pointer void* null void* void* null)
 (cfun void* gtk_image_new)
 (cfun void* gtk_image_new_from_pixmap void* void*)
 (cfun void gtk_image_set_from_pixbuf void* void*)
 (cfun void gtk_image_set_from_pixmap void* void* null)
 (cfun void gtk_image_set void* void* null)
 (cfun void gtk_image_set_from_file void* cstr)
 (cfun void* gtk_image_new_from_file cstr)
 (cfun void* gtk_pixmap_new void* null)
 (cfun void* gtk_drawing_area_new)
 (cfun void gtk_widget_queue_draw void*)
 (cfun void* gtk_widget_get_colormap void*)
 (cfun void* gtk_widget_get_parent_window void*)
 (cfun void* gtk_widget_create_pango_layout void* cstr)
 (cfun void* gtk_vscrollbar_new void*)
 (cfun void* gtk_label_new cstr)
 (cfun void gtk_label_set_text void* cstr)
 (cfun cstr gtk_label_get_text void*)
 (cfun void gtk_label_set_line_wrap void* bool)
 (cfun void gtk_label_set_selectable void* bool)
 (cfun void gtk_label_set_use_markup void* bool)
 (cfun void gtk_label_set_justify void* long)
 (cfun long gtk_label_get_width_chars void*)
 (cfun long gtk_label_get_max_width_chars void*)
 (cfun void gtk_label_set_markup_with_mnemonic void* cstr)
 (cfun void* gtk_frame_new null)
 (cfun void gtk_frame_set_label_align void* float float)
 (cfun void gtk_frame_set_label void* cstr)
 (cfun cstr gtk_frame_get_label void*)
 (cfun void* gtk_aspect_frame_new cstr float float float bool)
 (cfun void gtk_aspect_frame_set void* float float float bool)
 (cfun void* gtk_radio_button_new null)
 (cfun void* gtk_radio_button_new_with_label void* cstr)
 (cfun void* gtk_radio_button_new_from_widget void*)
 (cfun void* gtk_radio_button_new_with_label_from_widget void* cstr)
 (cfun void* gtk_notebook_new)
 (cfun void gtk_notebook_set_tab_pos void* long)
 (cfun void gtk_notebook_popup_enable void*)
 (cfun void gtk_notebook_insert_page void* void* void* long)
 (cfun void gtk_notebook_remove_page void* long)
 (cfun void gtk_notebook_get_current_page void*)
 (cfun void gtk_notebook_set_page void* long)
 (cfun void gtk_notebook_set_tab_label_text void* void* cstr)
 (cfun void* gtk_adjustment_new double double double double double double)
 (cfun float gtk_adjustment_get_value void*)
 (cfun void* gtk_range_get_adjustment void*)
 (cfun float gtk_range_get_value void*)
 (cfun void gtk_range_set_value void* double)
 (cfun void gtk_scale_set_draw_value void* bool)
 (cfun void gtk_scale_set_value_pos void* long)
 (cfun void* gtk_hscale_new void*)
 (cfun void* gtk_hscale_new_with_range double double double)
 (cfun void* gtk_vscale_new_with_range double double double)
 (cfun void* gtk_spin_button_new void* double long)
 (cfun long gtk_spin_button_get_value_as_int void*)
 (cfun float gtk_spin_button_get_value void*)
 (cfun void gtk_spin_button_set_wrap void* bool)
 (cfun void gtk_spin_button_set_value void* double)
 (cfun void* gtk_arrow_new long long)
 (cfun void* gtk_file_chooser_dialog_new cstr void* long cstr long cstr long null)
 (cfun void* gtk_file_chooser_widget_new long)
 (cfun long gtk_dialog_run void*)
 (cfun cstr gtk_file_chooser_get_filename void*)
 (cfun bool gtk_file_chooser_set_filename void* cstr)
 (cfun void* gtk_file_filter_new)
 (cfun void gtk_file_filter_add_pattern void* cstr)
 (cfun void gtk_file_filter_set_name void* cstr)
 (cfun void gtk_file_chooser_add_filter void* void*)
 (cfun void* gtk_font_selection_dialog_new cstr)
 (cfun cstr gtk_font_selection_dialog_get_font_name void*)
 (cfun void* gtk_font_selection_new)
 (cfun cstr gtk_font_selection_get_font_name void*)
 (cfun bool gtk_font_selection_set_font_name void* cstr)
 (cfun void* gtk_color_selection_new)
 (cfun void gtk_color_selection_set_has_opacity_control void* bool)
 (cfun void gtk_color_selection_set_current_color void* cstr)
 (cfun void gtk_color_selection_get_current_color void* void*)
 (cfun void gtk_color_selection_set_color void* cstr)
 (cfun void* gtk_menu_bar_new)
 (cfun void gtk_menu_shell_append void* void*)
 (cfun void* gtk_menu_item_new)
 (cfun void* gtk_menu_item_new_with_label cstr)
 (cfun void* gtk_menu_item_new_with_mnemonic cstr)
 (cfun void* gtk_menu_new)
 (cfun void gtk_menu_item_set_right_justified void* bool)
 (cfun void gtk_menu_item_set_submenu void* void*)
 (cfun void* gtk_check_menu_item_new_with_label cstr)
 (cfun void* gtk_check_menu_item_new_with_mnemonic cstr)
 (cfun bool gtk_check_menu_item_get_active void*)
 (cfun void gtk_check_menu_item_set_active void* bool)
 (cfun void gtk_menu_popup void* null null null null long long)
 (cfun void* gtk_progress_bar_new)
 (cfun void gtk_progress_bar_set_text void* cstr)
 (cfun void gtk_progress_bar_set_fraction void* double)
 (cfun void gtk_progress_bar_pulse void*)
 (cfun void gtk_progress_bar_set_pulse_step void* double)
 (cfun void* gtk_statusbar_new)
 (cfun long gtk_statusbar_get_context_id void* cstr)
 (cfun long gtk_statusbar_push void* long cstr)
 (cfun void gtk_statusbar_pop void* long)
 (cfun void gtk_statusbar_remove void* long long)
 (cfun void gtk_statusbar_set_has_resize_grip void* bool)
 (cfun void* gtk_event_box_new)
 (cfun void* gtk_combo_box_new_text)
 (cfun void gtk_combo_box_append_text void* cstr)
 (cfun void gtk_combo_box_insert_text void* long cstr)
 (cfun void gtk_combo_box_prepend_text void* cstr)
 (cfun void gtk_combo_box_remove_text void* long)
 (cfun long gtk_combo_box_get_active void*)
 (cfun void gtk_combo_box_set_active void* long)
 (cfun cstr gtk_combo_box_get_active_text void*)
 (cfun void* gtk_vseparator_new)
 (cfun void* gtk_hseparator_new)
 (cfun void gtk_editable_copy_clipboard void*)
 (cfun void gtk_editable_cut_clipboard void*)
 (cfun void gtk_editable_paste_clipboard void*)
 (cfun void* gdk_atom_intern cstr long)
 (cfun void* gtk_clipboard_get long)
 (cfun void gtk_clipboard_set_text void* cstr long)
 (cfun cstr gtk_clipboard_wait_for_text void*)
 (cfun void* gtk_clist_new long)
 (cfun void gtk_clist_set_column_title void* long cstr)
 (cfun void gtk_clist_column_titles_show void*)
 (cfun long gtk_clist_append void* void*)
 (cfun void gtk_clist_set_text void* long long cstr)
 (cfun void* gtk_fixed_new)
 (cfun void gtk_fixed_put void* void* long long)
 (cfun void gtk_fixed_move void* void* long long)
 (cfun void* gtk_list_store_new long long)
 (cfun void gtk_list_store_append void* void*)
 (cfun void gtk_list_store_set void* void* long cstr long)
 (cfun void gtk_list_store_set_value void* void* long cstr)
 (cfun void gtk_list_store_clear void*)
 (cfun bool gtk_list_store_remove void* void*)
 (cfun void* gtk_cell_renderer_text_new)
 (cfun void* gtk_tree_view_new_with_model void*)
 (cfun void* gtk_tree_view_column_new)
 (cfun void* gtk_tree_view_column_new_with_attributes cstr void* cstr long null)
 (cfun void gtk_tree_view_column_pack_start void* void* bool)
 (cfun void gtk_tree_view_append_column void* void*)
 (cfun void gtk_tree_view_set_headers_visible void* bool)
 (cfun void gtk_tree_view_set_headers_clickable void* bool)
 (cfun void* gtk_tree_view_get_selection void*)
 (cfun void gtk_tree_view_column_set_resizable void* bool)
 (cfun void gtk_tree_view_column_set_clickable void* bool)
 (cfun bool gtk_tree_selection_get_selected void* null void*)
 (cfun void gtk_tree_selection_select_iter void* void*)
 (cfun void gtk_tree_selection_select_path void* void*)
 (cfun void gtk_tree_model_get void* void* long cstr long)
 (cfun cstr gtk_tree_model_get_string_from_iter void* void*)
 (cfun void* gtk_tree_path_new_from_string cstr)
 (cfun void gtk_tree_path_free void*)
 (cfun void gtk_tree_sortable_set_sort_column_id void* long long)
 (cfun void gtk_init null null)
 (cfun void gtk_widget_show void*)
 (cfun void gtk_widget_show_all void*)
 (cfun void gtk_widget_realize void*)
 (cfun void gtk_widget_unrealize void*)
 (cfun void gtk_widget_hide void*)
 (cfun void gtk_widget_destroy void*)
 (cfun void gtk_widget_grab_focus void*)
 (cfun void gtk_widget_set_size_request void* long long)
 (cfun void gtk_widget_size_request void* void*)
 (cfun void gtk_widget_set_usize void* long long)
 (cfun void gtk_widget_modify_base void* long long)
 (cfun void gtk_widget_modify_bg void* long long)
 (cfun void gtk_widget_set_sensitive void* bool)
 (cfun void* gtk_settings_get_default)
 (cfun void* gtk_widget_get_parent void*)
 (cfun void gtk_misc_set_alignment void* float float)
 (cfun void gtk_main)
 (cfun bool gtk_main_iteration)
 (cfun bool gtk_main_iteration_do bool)
 (cfun bool gtk_events_pending)
 (cfun void gtk_exit long)
 (cfun void gtk_main_quit)
 (cfun void gtk_rc_parse cstr)
 (cfun void gtk_rc_parse_string cstr)
 (cfun bool gtk_rc_reparse_all)
 (cfun void gtk_rc_reset_styles void*)
 (cfun void gtk_rc_add_default_file cstr)
 (cfun void gtk_widget_set_name void* cstr)
 (cfun cstr gtk_check_version long long long)
 (cfun void gtk_drag_source_set void* long long long long)
 (cfun void gtk_drag_dest_set void* long long long long)
 (cfun void gtk_drag_finish void* bool bool long)
 (cfun long gtk_get_current_event_time)
 (cfun void gtk_widget_get_size_request void* void* void*)
 (cfun void gtk_signal_emit_by_name void* cstr)
 (cfun void* gtk_invisible_new)
 (cfun void* gdk_pixbuf_new_from_file cstr null)
 (cfun void* gdk_pixbuf_new_from_file_at_size cstr long long null)
 (cfun void* gdk_pixbuf_rotate_simple void* long)
 (cfun void g_object_unref void*)
 (cfun cstr g_locale_to_utf8 cstr long null null null)
 (cfun cstr g_locale_from_utf8 cstr long null null null)
 (cfun void g_free void*)
 
 (cfun void glade_init)
 (cfun void* glade_xml_new (cstr filename) null null)
 #(cfun void glade_xml_signal_autoconnect (void* xml))
 (cfun void* glade_xml_get_widget (void* xml) (cstr name))
 #(cfun void glade_xml_signal_connect (void* xml) (cstr name) (lfun handler))
 #(cfun void glade_xml_signal_connect_data (void* xml) (cstr name) (lfun handler) (void* data))
 #(cfun void glade_xml_signal_connect_full (void* xml) (cstr name) (lfun handler) (void* data))
 (lfun void handler (cstr handlerName) (void* object) (cstr signalName) (cstr signalData) (void* connectObject) (bool after) (void* userData))
 (cfun void glade_xml_signal_autoconnect_full (void* xml) (lfun handler) (void* data))
 
 (cfun cstr glade_get_widget_name (void* widget))
 (cfun void* glade_get_widget_tree (void* widget))
 
 (lfun void signal)
 #(lfun void callbackMarshal (void* object) (void* data) (uint nargs) (void* args))
 (lfun void destroyNotify)
 #(cfun ulong gtk_signal_connect_full (void* object) (cstr name) (lfun signal) (lfun callbackMarshal) (void* data) (lfun destroyNotify) (int objectSignal) (int after))
 (cfun ulong gtk_signal_connect_full (void* object) (cstr name) (lfun signal) null (void* data) (lfun destroyNotify) (int objectSignal) (int after))
 
 (lfun void signal2 (void* data))
 (cfun void g_signal_connect (void* object) (cstr name) (lfun signal2) (void* data))