Commit 8244713a authored by Marc Lehmann's avatar Marc Lehmann
Browse files

*** empty log message ***

parent 145494c7
Revision history for Gimp-Perl extension.
- added example scripts triangu gallery iland
- fixed typo in examples/xachvision
- added examples/circular_text by Mike Gherlone.
- various bugfixes/enhancements.
1.21 Fri Mar 9 18:33:04 CET 2001
- better Gimp::Fu argument parsing.
......
......@@ -435,7 +435,7 @@ sub callback {
{
local $^W = 0;
@cb = (
@{$callback{quiet}},
@{$callback{quit}},
);
}
for (@cb) { &$_ }
......@@ -631,12 +631,12 @@ Gimp-Perl pages at http://gimp.pages.de.
Well, scheme (which is used by script-fu), is IMnsHO the crappiest language
ever (well, the crappiest language that one actually can use, so it's not
_that_ bad). Scheme has the worst of all languages, no data types, but still
using variables. Look at haskell (http://www.haskell.org) to see how
using variables. Look at Haskell (http://www.haskell.org) to see how
functional is done right.
Since I was unable to write a haskell interface (and perl is the traditional
scripting language), I wrote a Perl interface instead. Not too bad a
decision I believe...
Since I was unable to write a Haskell interface (and perl is the
traditional scripting language), I wrote a Perl interface instead. Not too
bad a decision I believe...
=head1 SYNOPSIS
......@@ -645,7 +645,6 @@ decision I believe...
Other modules of interest:
use Gimp::Fu; # easy scripting environment
use Gimp::PDL; # interface to the Perl Data Language
these have their own manpage.
......@@ -727,7 +726,7 @@ noteworthy limitations (subject to be changed):
=over 2
=item *
callback procedures do not poass return values to The Gimp.
callback procedures do not pass return values to The Gimp.
=back
......@@ -863,7 +862,7 @@ parameter) and returns its size and unit (e.g. C<(20,POINTS)>). This can
conviniently used in the gimp_text_..._fontname functions, which ignore the
size (no joke ;). Example:
$drawable->text_fontname (50, 50, "The quick", 5, 1, xlfd_size $font, $font;
$drawable->text_fontname (50, 50, "The quick", 5, 1, xlfd_size $font, $font);
=item Gimp::gtk_init()
......@@ -919,7 +918,7 @@ usually only the case after gimp_main or gimp_init have been called.
=item Gimp::register_callback(gimp_function_name,perl_function)
Using this fucntion you can overwrite the standard Gimp behaviour of
Using this function you can overwrite the standard Gimp behaviour of
calling a perl subroutine of the same name as the gimp function.
The first argument is the name of a registered gimp function that you want
......
......@@ -20,13 +20,16 @@ my %description = (
'gtk-1.1' => 'gtk+ version 1.1 or higher',
'gtk-1.2' => 'gtk+ version 1.2 or higher',
'gtk-1.3' => 'gtk+ version 1.3 or higher',
'gtk-1.4' => 'gtk+ version 1.4 or higher',
'gtk-2.0' => 'gtk+ version 2.0 or higher',
'gimp-1.1' => 'gimp version 1.1 or higher',
'gimp-1.2' => 'gimp version 1.2 or higher',
'gimp-1.3' => 'gimp version 1.3 or higher',
'gimp-1.4' => 'gimp version 1.4 or higher',
'gimp-2.0' => 'gimp version 2.0 or higher',
'perl-5.005' => 'perl version 5.005 or higher',
'perl-5.6' => 'perl version 5.6 or higher',
'pdl' => 'compiled-in PDL support',
'gnome' => 'the gnome perl module',
'gtkxmhtml' => 'the Gtk::XmHTML module',
......@@ -66,8 +69,8 @@ sub present {
_check_gtk and (Gtk->major_version==1 && Gtk->minor_version>=2) || Gtk->major_version>1;
} elsif ($_ eq "gtk-1.3") {
_check_gtk and (Gtk->major_version==1 && Gtk->minor_version>=3) || Gtk->major_version>1;
} elsif ($_ eq "gtk-1.4") {
_check_gtk and (Gtk->major_version==1 && Gtk->minor_version>=4) || Gtk->major_version>1;
} elsif ($_ eq "gtk-2.0") {
_check_gtk and (Gtk->major_version==2 && Gtk->minor_version>=0) || Gtk->major_version>2;
} elsif ($_ eq "gimp-1.1") {
(Gimp->major_version==1 && Gimp->minor_version>=1) || Gimp->major_version>1;
......@@ -75,9 +78,15 @@ sub present {
(Gimp->major_version==1 && Gimp->minor_version>=2) || Gimp->major_version>1;
} elsif ($_ eq "gimp-1.3") {
(Gimp->major_version==1 && Gimp->minor_version>=3) || Gimp->major_version>1;
} elsif ($_ eq "gimp-1.4") {
(Gimp->major_version==1 && Gimp->minor_version>=4) || Gimp->major_version>1;
} elsif ($_ eq "gimp-2.0") {
(Gimp->major_version==2 && Gimp->minor_version>=0) || Gimp->major_version>2;
} elsif ($_ eq "perl-5.005") {
$] >= 5.005;
} elsif ($_ eq "perl-5.6") {
$] >= 5.006;
} elsif ($_ eq "pdl") {
require Gimp::Config; $Gimp::Config{DEFINE1} =~ /HAVE_PDL/;
} elsif ($_ eq "gnome") {
......@@ -154,13 +163,17 @@ module offers a nicer way to check for them.
checks for the presence of the gtk interface module.
=item C<gtk-1.1>, C<gtk-1.2>
=item C<gtk-1.1>, C<gtk-1.2>, C<gtk-1.3>, C<gtk-2.0>
checks for the presence of gtk-1.1 (1.2) or higher.
checks for the presence of gtk-1.1 (1.2 etc.) or higher.
=item C<perl-5.005>
=item C<gimp-1.1>, C<gimp-1.2>, C<gimp-1.3>, C<gimp-1.4>, C<gimp-2.0>
checks for perl version 5.005 or higher.
checks for the presence of gimp-1.1 (1.2 etc.) or higher.
=item C<perl-5.005>, C<perl-5.6>
checks for perl version 5.005 (or 5.6) or higher.
=item C<pdl>
......
......@@ -58,7 +58,7 @@ sub gimp_image_get_channels {
sub server_eval {
my @res = eval "package Gimp::Eval; $_[0]";
die $@ if $@;
@res;
wantarray ? @res : $res[0];
}
# this is here to be atomic over the perl-server
......
......@@ -1972,6 +1972,18 @@ gimp_pixel_rgn_get_row2(pr, x, y, width)
OUTPUT:
RETVAL
SV *
gimp_pixel_rgn_get_col2(pr, x, y, height)
GimpPixelRgn * pr
int x
int y
int height
CODE:
RETVAL = newSVn (height * pr->bpp);
gimp_pixel_rgn_get_col (pr, (guchar *)SvPV_nolen(RETVAL), x, y, height);
OUTPUT:
RETVAL
SV *
gimp_pixel_rgn_get_rect2(pr, x, y, width, height)
GimpPixelRgn * pr
......
......@@ -18,7 +18,7 @@
#include <libgimp/gimpexport.h>
#endif
/* libgimo requires a rather broken interface. this must be here because..
/* libgimp requires a rather broken interface. this must be here because..
* well, nobody knows why... ARGH! */
GimpPlugInInfo PLUG_IN_INFO = { 0, 0, 0, 0 };
......
#!/usr/app/bin/perl
eval 'exec /usr/app/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# pcg@goof.com
use Gimp;
......
......@@ -148,7 +148,7 @@ min => 'sub min {
}',
fmod => 'sub fmod {
$_[0] - int($_[0]/$_[1])*$_[0];
$_[0] - int($_[0]/$_[1])*$_[1];
}',
'number->string' => 'sub number2string {
......
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