#include "config.h" /* dunno where this comes from */ #undef VOIDUSED #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "gppport.h" #include /* dirty is used in gimp.h AND in perl < 5.005 or with PERL_POLLUTE. */ #ifdef dirty # undef dirty #endif #include #include #ifdef GIMP_HAVE_EXPORT #include #endif #include "extra.c" typedef GtkWidget GimpMemsizeEntry_own; typedef GtkWidget GimpButton_own; typedef GtkWidget GimpChainButton_own; typedef GtkWidget GimpColorArea_own; typedef GtkWidget GimpColorButton_own; typedef GtkWidget GimpColorDisplay_own; typedef GtkWidget GimpColorNotebook_own; typedef GtkWidget GimpColorScale_own; typedef GtkWidget GimpColorSelect_own; typedef GtkWidget GimpColorSelector_own; typedef GtkWidget GimpDialog_own; typedef GtkWidget GimpFileEntry_own; typedef GtkWidget GimpOffsetArea_own; typedef GtkWidget GimpPathEditor_own; typedef GtkWidget GimpPickButton_own; typedef GtkWidget GimpPixmap_own; typedef GtkWidget GimpSizeEntry_own; typedef GtkWidget GimpUnitMenu_own; MODULE = Gimp::UI PACKAGE = Gimp::UI PROTOTYPES: ENABLE gint32 export_image(image_ID, drawable_ID, format_name, capabilities) SV * image_ID SV * drawable_ID gchar * format_name gint capabilities PREINIT: gint32 image; gint32 drawable; CODE: image = SvIV (SvRV (image_ID)); drawable = SvIV (SvRV (drawable_ID)); RETVAL = gimp_export_image (&image, &drawable, format_name, capabilities); sv_setiv (SvRV (image_ID), image); sv_setiv (SvRV (drawable_ID), drawable); OUTPUT: image_ID drawable_ID RETVAL MODULE = Gimp::UI PACKAGE = Gimp::UI::MemsizeEntry PREFIX = gimp_memsize_entry_ BOOT: gperl_register_object (GIMP_TYPE_MEMSIZE_ENTRY, "Gimp::UI::MemsizeEntry"); GimpMemsizeEntry_own * gimp_memsize_entry_new (SV *unused_class, gulong value, gulong lower, gulong upper) C_ARGS: value, lower, upper void gimp_memsize_entry_set_value (GimpMemsizeEntry *entry, gulong value) gulong gimp_memsize_entry_get_value (GimpMemsizeEntry *entry) MODULE = Gimp::UI PACKAGE = Gimp::UI::Button PREFIX = gimp_button_ BOOT: gperl_register_object (GIMP_TYPE_BUTTON, "Gimp::UI::Button"); GimpButton_own * gimp_button_new (SV *unused_class) C_ARGS: void gimp_button_extended_clicked (GimpButton *button, GdkModifierType state); MODULE = Gimp::UI PACKAGE = Gimp::UI::ChainButton PREFIX = gimp_chain_button_ BOOT: gperl_register_object (GIMP_TYPE_CHAIN_BUTTON, "Gimp::UI::ChainButton"); GimpChainButton_own * gimp_chain_button_new (SV *unused_class, GimpChainPosition position) C_ARGS: position void gimp_chain_button_set_active (GimpChainButton *button, gboolean active); gboolean gimp_chain_button_get_active (GimpChainButton *button); MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorArea PREFIX = gimp_color_area_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_AREA, "Gimp::UI::ColorArea"); GimpColorArea_own * gimp_color_area_new (SV *unused_class, GimpRGB &color, GimpColorAreaType type, GdkModifierType drag_mask) C_ARGS: color, type, drag_mask void gimp_color_area_set_color (GimpColorArea *area, GimpRGB &color) void gimp_color_area_get_color (GimpColorArea *area, OUTLIST GimpRGB color) gboolean gimp_color_area_has_alpha (GimpColorArea *area) void gimp_color_area_set_type (GimpColorArea *area, GimpColorAreaType type) void gimp_color_area_set_draw_border (GimpColorArea *area, gboolean draw_border) MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorButton PREFIX = gimp_color_button_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_BUTTON, "Gimp::UI::ColorButton"); GimpColorButton_own * gimp_color_button_new (SV *unused_class, utf8_str title, gint width, gint height, \ GimpRGB &color, GimpColorAreaType type) C_ARGS: title, width, height, color, type void gimp_color_button_set_color (GimpColorButton *button, GimpRGB &color) void gimp_color_button_get_color (GimpColorButton *button, OUTLIST GimpRGB color) gboolean gimp_color_button_has_alpha (GimpColorButton *button) void gimp_color_button_set_type (GimpColorButton *button, GimpColorAreaType type); MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorDisplay PREFIX = gimp_color_display_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_DISPLAY, "Gimp::UI::ColorDisplay"); # #GimpColorDisplay_own * gimp_color_display_new (SV *unused_class) # C_ARGS: gimp_color_display_type () # #GimpColorDisplay_own * gimp_color_display_clone (GimpColorDisplay *display) # #void gimp_color_display_convert (GimpColorDisplay *display, guchar *buf, gint width, gint height, gint bpp, gint bpl) # #void gimp_color_display_load_state (GimpColorDisplay *display, GimpParasite *state) # #GimpParasite * gimp_color_display_save_state (GimpColorDisplay *display) # #GtkWidget * gimp_color_display_configure (GimpColorDisplay *display) # #void gimp_color_display_configure_reset (GimpColorDisplay *display) # #void gimp_color_display_changed (GimpColorDisplay *display) MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorNotebook PREFIX = gimp_color_notebook_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_NOTEBOOK, "Gimp::UI::ColorNotebook"); GimpColorNotebook_own *new (SV *unused_class) CODE: RETVAL = (GimpColorNotebook_own *)g_object_new (GIMP_TYPE_COLOR_NOTEBOOK, (gchar *)0); OUTPUT: RETVAL # not the slightest idea... #GtkWidget * gimp_color_notebook_set_has_page (GimpColorNotebook *notebook, # GType page_type, # gboolean has_page); MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorScale PREFIX = gimp_color_scale_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_SCALE, "Gimp::UI::ColorScale"); GimpColorScale_own * gimp_color_scale_new (SV *unused_class, GtkOrientation orientation, GimpColorSelectorChannel channel) C_ARGS: orientation, channel void gimp_color_scale_set_channel (GimpColorScale *scale, GimpColorSelectorChannel channel) void gimp_color_scale_set_color (GimpColorScale *scale, GimpRGB &rgb, GimpHSV &hsv) MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorSelect PREFIX = gimp_color_select_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_SELECT, "Gimp::UI::ColorSelect"); GimpColorSelect_own *new(SV *unused_class) CODE: RETVAL = (GimpColorSelect_own *)g_object_new (GIMP_TYPE_COLOR_SELECT, (gchar *)0); OUTPUT: RETVAL MODULE = Gimp::UI PACKAGE = Gimp::UI::ColorSelector PREFIX = gimp_color_selector_ BOOT: gperl_register_object (GIMP_TYPE_COLOR_SELECTOR, "Gimp::UI::ColorSelector"); GimpColorSelector_own * gimp_color_selector_new (SV *unused_class, GimpRGB &rgb, GimpHSV &hsv, \ GimpColorSelectorChannel channel) C_ARGS: GIMP_TYPE_COLOR_SELECTOR, rgb, hsv, channel void gimp_color_selector_set_toggles_visible (GimpColorSelector *selector, gboolean visible) void gimp_color_selector_set_toggles_sensitive (GimpColorSelector *selector, gboolean sensitive) void gimp_color_selector_set_show_alpha (GimpColorSelector *selector, gboolean show_alpha) void gimp_color_selector_set_color (GimpColorSelector *selector, GimpRGB &rgb, GimpHSV &hsv) void gimp_color_selector_set_channel (GimpColorSelector *selector, GimpColorSelectorChannel channel) void gimp_color_selector_color_changed (GimpColorSelector *selector) void gimp_color_selector_channel_changed (GimpColorSelector *selector) MODULE = Gimp::UI PACKAGE = Gimp::UI::Dialog PREFIX = gimp_dialog_ BOOT: gperl_register_object (GIMP_TYPE_DIALOG, "Gimp::UI::Dialog"); #GimpDialog_own * gimp_dialog_new (SV *unused_class, # utf8_str wmclass_name, GimpHelpFunc help_func, utf8_str help_data, # GtkWindowPosition position, gint allow_shrink = 1, gint allow_grow = 1, gint auto_shrink = 1) # C_ARGS:wmclass_name, help_func, help_data, position, allow_shrink, allow_grow, auto_shrink # /* specify action area buttons # * as va_list: # * const gchar *label, # * GCallback callback, # * gpointer callback_data, # * GObject *slot_object, # * GtkWidget **widget_ptr, # * gboolean default_action, # * gboolean connect_delete, # */ # ...); #GtkWidget * gimp_dialog_newv (const gchar *title, # const gchar *wmclass_name, # GimpHelpFunc help_func, # const gchar *help_data, # GtkWindowPosition position, # gint allow_shrink, # gint allow_grow, # gint auto_shrink, # va_list args); #void gimp_dialog_create_action_area (GimpDialog *dialog, # /* specify action area buttons # * as va_list: # * const gchar *label, # * GCallback callback, # * gpointer callback_data, # * GObject *slot_object, # * GtkWidget **widget_ptr, # * gboolean default_action, # * gboolean connect_delete, # */ # ...); #void gimp_dialog_create_action_areav (GimpDialog *dialog, # va_list args); MODULE = Gimp::UI PACKAGE = Gimp::UI::FileEntry PREFIX = gimp_file_entry_ BOOT: gperl_register_object (GIMP_TYPE_FILE_ENTRY, "Gimp::UI::FileEntry"); GimpFileEntry_own * gimp_file_entry_new (SV *unused_class, utf8_str title, utf8_str filename, \ gboolean dir_only = 0, gboolean check_valid = 0) C_ARGS: title, filename, dir_only, check_valid utf8_str gimp_file_entry_get_filename (GimpFileEntry *entry) void gimp_file_entry_set_filename (GimpFileEntry *entry, utf8_str filename) MODULE = Gimp::UI PACKAGE = Gimp::UI::OffsetArea PREFIX = gimp_offset_area_ BOOT: gperl_register_object (GIMP_TYPE_OFFSET_AREA, "Gimp::UI::OffsetArea"); GimpOffsetArea_own * gimp_offset_area_new (SV *unused_class, gint orig_width, gint orig_height) C_ARGS: orig_width, orig_width void gimp_offset_area_set_size (GimpOffsetArea *offset_area, gint width, gint height) void gimp_offset_area_set_offsets (GimpOffsetArea *offset_area, gint offset_x, gint offset_y) MODULE = Gimp::UI PACKAGE = Gimp::UI::PathEditor PREFIX = gimp_path_editor_ BOOT: gperl_register_object (GIMP_TYPE_PATH_EDITOR, "Gimp::UI::PathEditor"); GimpPathEditor_own * gimp_path_editor_new (SV *unused_class, utf8_str filesel_title, utf8_str path) C_ARGS: filesel_title, path utf8_str gimp_path_editor_get_path (GimpPathEditor *gpe) void gimp_path_editor_set_path (GimpPathEditor *gpe, utf8_str path) MODULE = Gimp::UI PACKAGE = Gimp::UI::PickButton PREFIX = gimp_pick_button_ BOOT: gperl_register_object (GIMP_TYPE_PICK_BUTTON, "Gimp::UI::PickButton"); GimpPickButton_own * gimp_pick_button_new (SV *unused_class) C_ARGS: MODULE = Gimp::UI PACKAGE = Gimp::UI::Pixmap PREFIX = gimp_pixmap_ BOOT: gperl_register_object (GIMP_TYPE_PIXMAP, "Gimp::UI::Pixmap"); #GimpPixmap_own * gimp_pixmap_new (SV *unused_class, char **xpm_data) # C_ARGS: #GtkWidget * gimp_pixmap_new (gchar **xpm_data); #void gimp_pixmap_set (GimpPixmap *pixmap, # gchar **xpm_data); MODULE = Gimp::UI PACKAGE = Gimp::UI::SizeEntry PREFIX = gimp_size_entry_ BOOT: gperl_register_object (GIMP_TYPE_SIZE_ENTRY, "Gimp::UI::SizeEntry"); GimpSizeEntry_own * gimp_size_entry_new (SV *unused_class, gint number_of_fields, GimpUnit unit, char *unit_format, \ gboolean menu_show_pixels, gboolean menu_show_percent, gboolean show_refval, \ gint spinbutton_width, GimpSizeEntryUpdatePolicy update_policy) C_ARGS: number_of_fields, unit, unit_format, menu_show_pixels, menu_show_percent, show_refval, spinbutton_width, update_policy void gimp_size_entry_add_field (GimpSizeEntry *gse, GtkSpinButton *value_spinbutton, GtkSpinButton *refval_spinbutton) void gimp_size_entry_attach_label (GimpSizeEntry *gse, utf8_str text, gint row, gint column, gfloat alignment) void gimp_size_entry_set_resolution (GimpSizeEntry *gse, gint field, gdouble resolution, gboolean keep_size) void gimp_size_entry_set_size (GimpSizeEntry *gse, gint field, gdouble lower, gdouble upper) void gimp_size_entry_set_value_boundaries (GimpSizeEntry *gse, gint field, gdouble lower, gdouble upper) gdouble gimp_size_entry_get_value (GimpSizeEntry *gse, gint field) void gimp_size_entry_set_value (GimpSizeEntry *gse, gint field, gdouble value) void gimp_size_entry_set_refval_boundaries (GimpSizeEntry *gse, gint field, gdouble lower, gdouble upper) void gimp_size_entry_set_refval_digits (GimpSizeEntry *gse, gint field, gint digits) gdouble gimp_size_entry_get_refval (GimpSizeEntry *gse, gint field) void gimp_size_entry_set_refval (GimpSizeEntry *gse, gint field, gdouble refval) GimpUnit gimp_size_entry_get_unit (GimpSizeEntry *gse) void gimp_size_entry_set_unit (GimpSizeEntry *gse, GimpUnit unit) void gimp_size_entry_grab_focus (GimpSizeEntry *gse) MODULE = Gimp::UI PACKAGE = Gimp::UI::Stock PREFIX = gimp_stock_ BOOT: gimp_stock_init(); CARGS: MODULE = Gimp::UI PACKAGE = Gimp::UI::UnitMenu PREFIX = gimp_unit_menu_ BOOT: gperl_register_object (GIMP_TYPE_UNIT_MENU, "Gimp::UI::UnitMenu"); GimpUnitMenu_own * gimp_unit_menu_new (SV *unused_class, char *format, GimpUnit unit, \ gboolean show_pixels, gboolean show_percent, gboolean show_custom) C_ARGS: format, unit, show_pixels, show_percent, show_custom void gimp_unit_menu_set_unit (GimpUnitMenu *menu, GimpUnit unit) GimpUnit gimp_unit_menu_get_unit (GimpUnitMenu *menu)