mirror of https://github.com/GNOME/gimp.git
*** empty log message ***
This commit is contained in:
Marc Lehmann
parent
145494c7ab
commit
8244713a2a
|
|
@ -1,7 +1,9 @@
|
|||
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 };
|
||||
|
||||
|
|
|
|||
|
|
@ -1,7 +1,5 @@
|
|||
#!/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 {
|
||||
|
|
|
|||
Loading…
Reference in New Issue