GitLab repository storage has been migrated to hashed layout. Please contact Infrastructure team if you notice any issues with repositories or hooks.

Commit 3a88c336 authored by Marc Lehmann's avatar Marc Lehmann

*** empty log message ***

parent d816d512
use ExtUtils::MakeMaker;
do '../config.pl';
sub MY::const_config {
my $self = shift;
$self->{LDDLFLAGS}="$GIMP_LIBS_NOUI $LDFLAGS $LIBS $self->{LDDLFLAGS}";
package MY;
$self->SUPER::const_config(@_);
}
sub MY::const_loadlibs {
my $self = shift;
if ($IN_GIMP) {
$self->{LD_RUN_PATH} = join (":",
$libdir,
split /:/,$self->{LD_RUN_PATH}
);
}
package MY;
$self->SUPER::const_loadlibs(@_);
}
sub MY::postamble {
<<"EOF";
clean ::
test -f Makefile || mv -f Makefile.old Makefile
EOF
}
$GIMP_INC = "-I../../.. $GIMP_INC" if $IN_GIMP;
WriteMakefile(
'NAME' => 'Gimp::UI',
'VERSION_FROM' => '../Gimp.pm',
'INC' => "$INC1 $GIMP_INC $CPPFLAGS $pdl_inc $CFLAGS",
'LIBS' => "$GIMP_LIBS",
'DEFINE' => "$DEFINE1 $DEFS",
'macro' => { libdir => $libdir, exec_prefix => $exec_prefix, prefix => $prefix },
'TYPEMAPS' => ["$topdir/typemap",@pdl_typemaps],
);
This diff is collapsed.
#include "config.h"
/* dunno where this comes from */
#undef VOIDUSED
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#define NEED_newCONSTSUB
#include "gppport.h"
#include <libgimp/gimp.h>
#include <libgimp/gimpui.h>
#ifdef GIMP_HAVE_EXPORT
#include <libgimp/gimpexport.h>
#endif
static void gimp_pattern_select_widget_callback (gchar *name, gint width,
gint height, gint bpp, gchar *mask, gint closing, gpointer nameref)
{
SV *sv = (SV *)nameref;
sv_setpv (sv, name);
}
static void need_gtk (void)
{
gint argc = 0;
gtk_init_check (&argc, 0); /* aaaaargh */
}
MODULE = Gimp::UI PACKAGE = Gimp::UI
PROTOTYPES: ENABLE
#if defined(GIMP_HAVE_EXPORT)
gint32
export_image(image_ID,drawable_ID,format_name,capabilities)
SV * image_ID
SV * drawable_ID
gchar * format_name
gint capabilities
CODE:
gint32 image = SvIV(SvRV(image_ID));
gint32 drawable = SvIV(SvRV(drawable_ID));
need_gtk ();
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
#endif
#if 0
#if UI
#if GIMP11
GtkWidget *
_new_pattern_select(dname, ipattern, nameref)
gchar * dname
gchar * ipattern
SV * nameref
CODE:
{
if (!SvROK (nameref))
croak (__("last argument to gimp_pattern_select_widget must be scalar ref"));
nameref = SvRV (nameref);
SvUPGRADE (nameref, SVt_PV);
RETVAL = gimp_pattern_select_widget (dname, ipattern,
gimp_pattern_select_widget_callback, (gpointer) nameref);
}
OUTPUT:
RETVAL
#endif
#endif
#endif
......@@ -126,7 +126,6 @@ register "file_avi_save",
$idx1 .= "00db" . pack "V*", 16, tell FILE, $framesize if $index;
print FILE "00db",
(pack "V", $framesize),
$d;
......@@ -136,7 +135,7 @@ register "file_avi_save",
pop_hunk;
if ($index) {
push_hunk "idx1";
print FILE $idx1;
print FILE $idx1;
pop_hunk;
}
pop_hunk;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment