graphics/gimp
graphics/gimp
1
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp synced 2024-10-20 11:37:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse source
This commit is contained in:
Marc Lehmann 1999-09-13 15:05:11 +00:00
parent 316601b1ae
commit b3cfc45e04
69 changed files with 1834 additions and 330 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
plug-ins/perl/Changes
View file

@ -6,7 +6,8 @@ Revision history for Gimp-Perl extension.
called.
- started to revamp the extra argument handling.
- updated PDB Explorer a bit, still broken.
- started i18n.
- almost full i18n of gimp-perl. A de translation is available.
- save_image was kinda broken for jpeg and gif at least.
- put help window into a scrolledwindow, as to a suggestion by Jens
Lauterbach. Karlsruhe rules!

27
plug-ins/perl/Gimp.pm
View file

@ -7,13 +7,14 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD %EXPORT_TAGS @EXPORT_FAIL
@gimp_gui_functions $function $basename $spawn_opts
$in_quit $in_run $in_net $in_init $in_query $no_SIG
$help $verbose $host $in_top);
use subs qw(init end lock unlock canonicalize_color __);
use subs qw(init end lock unlock canonicalize_color);
require DynaLoader;
@ISA=qw(DynaLoader);
$VERSION = 1.14;
BEGIN {
require DynaLoader;
@ISA=qw(DynaLoader);
$VERSION = 1.14;
bootstrap Gimp $VERSION;
}
my @_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE
@ -68,8 +69,6 @@ sub ORIENTATION_HORIZONTAL () { &HORIZONTAL }
sub ORIENTATION_VERTICAL () { &VERTICAL }
sub ORIENTATION_UNKNOWN () { &UNKNOWN }
bootstrap Gimp $VERSION;
#ENUM_DEFS#
sub PRESSURE (){ 2} sub SOFT (){ 1} sub HARD (){ 0} sub RGBA_IMAGE (){ 1} sub INDEXED_IMAGE (){ 4}
sub GRAYA_IMAGE (){ 3} sub RGB_IMAGE (){ 0} sub INDEXEDA_IMAGE (){ 5} sub GRAY_IMAGE (){ 2} sub CUSTOM (){ 3}
@ -636,14 +635,14 @@ All constants from gimpenums.h (BG_IMAGE_FILL, RUN_NONINTERACTIVE, NORMAL_MODE,
Set default spawn options to I<options>, see L<Gimp::Net>.
=item _:DEFAULT
=item :DEFAULT
The default set (see below).
=back
The default (unless '' is specified) is C<main xlfd_size :consts __>.
(C<__> is used for i18n purposes).
The default (unless '' is specified) is C<'main', 'xlfd_size', ':consts', '__'>.
(C<'__'> is used for i18n purposes).
=head1 GETTING STARTED
@ -831,9 +830,9 @@ colormap, gamma, shared memory...).
=item Gimp::init([connection-argument]), Gimp::end()
These is an alternative and experimental interface that replaces the call to
Gimp::main and the net callback. At the moment it only works for the Net
interface (L<Gimp::Net>), and not as a native plug-in. Here's an example:
These is an alternative interface that replaces the call to Gimp::main
and the net callback. At the moment it only works for the Net interface
(L<Gimp::Net>), and not as a native plug-in. Here's an example:
use Gimp;

9
plug-ins/perl/Gimp.xs
View file

@ -3,7 +3,7 @@
#include <libgimp/gimp.h>
/*#include <locale.h>*//*notyet*//*D*/
#include <locale.h>
/* FIXME */
/* sys/param.h is redefining these! */
@ -41,7 +41,11 @@ MODULE = Gimp PACKAGE = Gimp
PROTOTYPES: ENABLE
BOOT:
/*setlocale (LC_MESSAGES, "");*//* done by perl *//*notyet*//*D*/
#ifdef ENABLE_NLS
setlocale (LC_MESSAGES, ""); /* calling twice doesn't hurt, no? */
bindtextdomain ("gimp-perl", datadir "/locale");
textdomain ("gimp-perl");
#endif
void
_exit()
@ -76,6 +80,7 @@ dgettext(d,s)
char *
__(s)
char * s
PROTOTYPE: $
void
xs_exit(status)

23
plug-ins/perl/Gimp/Fu.pm
View file

@ -286,7 +286,7 @@ Gimp::on_net {
} elsif($1 eq "o" or $1 eq "output") {
$outputfile=shift @ARGV;
} elsif($1 eq "info") {
print "no additional information available, use --help\n";
print __"no additional information available, use --help\n";
exit 0;
} else {
my $arg=shift @ARGV;
@ -641,8 +641,8 @@ sub register($$$$$$$$$;@) {
die __"menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!";
}
}
s%^<Toolbox>/Xtns%__("<Toolbox>/Xtns")%e;
s%^<Image>/Filters%__("<Image>/Filters")%e;
$menupath =~ s%^<Toolbox>/Xtns/%__("<Toolbox>/Xtns/")%e;
$menupath =~ s%^<Image>/Filters/%__("<Image>/Filters/")%e;
undef $menupath if $menupath eq "<None>";#d#
@_==0 or die __"register called with too many or wrong arguments\n";
@ -845,17 +845,20 @@ sub save_image($$) {
my $layer = $img->get_active_layer;
if ($type eq "JPG" or $type eq "JPEG") {
eval { Gimp->file_jpeg_save(&Gimp::RUN_NONINTERACTIVE,$img,$layer,$path,$path,$quality,$smooth,1) };
Gimp->file_jpeg_save(&Gimp::RUN_NONINTERACTIVE,$img,$layer,$path,$path,$quality,$smooth,1,1,"") if $@;
eval { $layer->file_jpeg_save($path,$path,$quality,$smooth,1) };
$layer->file_jpeg_save($path,$path,$quality,$smooth,1,$interlace,"",0,1,0,0) if $@;
} elsif ($type eq "GIF") {
$img->convert_indexed (1,256) unless $layer->indexed;
Gimp->file_gif_save(&Gimp::RUN_NONINTERACTIVE,$img,$layer,$path,$path,$interlace,0,0,0);
unless ($layer->indexed) {
eval { $img->convert_indexed(1,256) };
$img->convert_indexed(2,&Gimp::MAKE_PALETTE,256,1,1,"") if $@;
}
$layer->file_gif_save($path,$path,$interlace,0,0,0);
} elsif ($type eq "PNG") {
Gimp->file_png_save(&Gimp::RUN_NONINTERACTIVE,$img,$layer,$path,$path,$interlace,$compress);
$layer->file_png_save($path,$path,$interlace,$compress);
} elsif ($type eq "PNM") {
Gimp->file_pnm_save(&Gimp::RUN_NONINTERACTIVE,$img,$layer,$path,$path,1);
$layer->file_pnm_save($path,$path,1);
} else {
Gimp->gimp_file_save(&Gimp::RUN_NONINTERACTIVE,$img,$layer,$path,$path);
$layer->gimp_file_save($path,$path);
}
}

4
plug-ins/perl/Gimp/Lib.xs
View file

@ -121,10 +121,10 @@ static void old_pdl (pdl **p, short ndims, int dim0)
PDL->converttype (p, PDL_B, PDL_PERM);
if ((*p)->ndims < ndims + (dim0 > 1))
croak (__("dimension mismatch, pdl has dimension %d but at least %d dimensions allowed"), (*p)->ndims, ndims + (dim0 > 1));
croak (__("dimension mismatch, pdl has dimension %d but at least %d dimensions required"), (*p)->ndims, ndims + (dim0 > 1));
if ((*p)->ndims > ndims + 1)
croak (__("dimension mismatch, pdl has dimension %d but at most %d dimensions required"), (*p)->ndims, ndims + 1);
croak (__("dimension mismatch, pdl has dimension %d but at most %d dimensions allowed"), (*p)->ndims, ndims + 1);
if ((*p)->ndims > ndims && (*p)->dims[0] != dim0)
croak (__("pixel size mismatch, pdl has %d channel pixels but %d channels are required"), (*p)->dims[0], dim0);

2
plug-ins/perl/Gimp/Net.pm
View file

@ -222,7 +222,7 @@ sub gimp_init {
} else {
$server_fh = try_connect ("");
}
defined $server_fh or croak __"could not connect to the gimp server (make sure Net-Server is running)";
defined $server_fh or croak __"could not connect to the gimp server (make sure Perl-Server is running)";
{ my $fh = select $server_fh; $|=1; select $fh }
my @r = response;

6
plug-ins/perl/Gimp/UI.pm
View file

@ -510,7 +510,7 @@ sub help_window(\$$$) {
my($helpwin,$blurb,$help)=@_;
unless ($$helpwin) {
$$helpwin = new Gtk::Dialog;
$$helpwin->set_title(_("Help for ").$Gimp::function);
$$helpwin->set_title(__("Help for ").$Gimp::function);
my($font,$b);
$b = new Gtk::Text;
@ -666,14 +666,14 @@ sub interact($$$$@) {
push(@getvals,sub{[split ' ',$b->get('color')]});
set_tip $t $b,$desc;
my $c = new Gtk::Button "FG";
my $c = new Gtk::Button __"FG";
signal_connect $c "clicked", sub {
$b->set('color', "@{Gimp::Palette->get_foreground}");
};
set_tip $t $c,__"get current foreground colour from the gimp";
$a->pack_start ($c,1,1,0);
my $d = new Gtk::Button "BG";
my $d = new Gtk::Button __"BG";
signal_connect $d "clicked", sub {
$b->set('color', "@{Gimp::Palette->get_background}");
};

1
plug-ins/perl/MANIFEST
View file

@ -118,3 +118,4 @@ examples/fire
examples/povray
pxgettext
po/gimp-perl.pot
po/de.po

21
plug-ins/perl/Makefile.PL
View file

@ -118,7 +118,7 @@ sub MY::install {
my $install = $self->SUPER::install(@_);
($install =~ s/^(un)?install\b/really-$1install/gm) or return $install;
'
install ::
install :: install-po
@for dir in \
$(INSTALLPRIVLIB) \
$(INSTALLARCHLIB) \
@ -190,6 +190,20 @@ force_uninstall_from_perldirs ::
force_uninstall_from_sitedirs ::
\$(PERL) -MExtUtils::Install -e 'uninstall(\$\$ARGV[0],1,0)' ".$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist')."
install-po:
";
print "Portable message object...";
for (<po/*.po>) {
my($po)=m!/(.*)\.po$!; #/# for brainy vim
print " $po";
$postamble .= " \$(MKPATH) \$(datadir)/locale/$po/LC_MESSAGES\n";
$postamble .= " -msgfmt -o \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo po/$po.po\n";
$postamble .= " \$(CHMOD) 644 \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n";
}
print "\n";
$postamble .= "
# generate tags file
tags: .
ctags --lang=c `find . -name '*.xs' -print`
@ -200,10 +214,13 @@ autoconf:
# merge messages into potfile
msgmerge:
pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` | \\
./pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` Perl-Server | \\
msgmerge -w 83 po/gimp-perl.pot - >gimp-perl.pot~ && \\
mv gimp-perl.pot~ po/gimp-perl.pot
for po in po/*.po; do msgmerge -w 83 \$\$po po/gimp-perl.pot >\$\$po~ && mv \$\$po~ \$\$po; done
";
$postamble;
}
$GIMP_INC_NOUI = "-I../../ $GIMP_INC_NOUI" if $IN_GIMP;

2
plug-ins/perl/Perl-Server
View file

@ -273,7 +273,7 @@ sub extension_perl_server {
if(handle_request($fh)) {
$stats{$f}[0]++;
} else {
slog sprintf __"closing connection %d (%d requests in %f seconds)", $f, $stats{$f}[0], time-$stats{$f}[1];
slog sprintf __"closing connection %d (%d requests in %g seconds)", $f, $stats{$f}[0], time-$stats{$f}[1];
if ($exclusive) {
$rm = $saved_rm;
$exclusive = 0;

2
plug-ins/perl/config.pl.in
View file

@ -15,6 +15,7 @@ $^W=0;
exec_prefix => q[@exec_prefix@],
libdir => q[@libdir@],
bindir => q[@bindir@],
datadir => q[@datadir@],
_PERL => q[@PERL@],
GIMP => q[@GIMP@],
@ -82,6 +83,7 @@ $GIMP_LIBS_NOUI =~ s%\$topdir%$topdir%g;
# $...1 variables should be put in front of the corresponding MakeMaker values.
$INC1 = "-I$topdir";
$DEFINE1 = $IN_GIMP ? "-DIN_GIMP" : "";
$DEFINE1 = " -Ddatadir=\"\\\"".expand($datadir)."\\\"\"";
eval "use PDL";
if (!$@) {

2
plug-ins/perl/examples/Create_Images
View file

@ -95,7 +95,7 @@ sub extension_create_images {
sub query {
gimp_install_procedure("extension_create_images", "a test extension in perl",
"try it out", "Marc Lehmann", "Marc Lehmann", "1997-02-06",
"<Toolbox>/Xtns/Create_Images", "*", PROC_EXTENSION,
__"<Toolbox>/Xtns/Create_Images", "*", PROC_EXTENSION,
[[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
}

7
plug-ins/perl/examples/PDB
View file

@ -188,10 +188,7 @@ sub complete_function {
my $name = shift;
$name=~s/[-_]/[-_]/g;
my @matches = eval { sort grep /$name/i,@function };
if(@matches>1e6) {#d#
set_clist map(($_,$_),@matches[0..149]);
$synopsis->set(sprintf __"showing only the first 150 matches (of %d)", (scalar@matches));
} elsif(@matches>1) {
if(@matches>1) {
set_clist map(($_,$_),@matches);
$synopsis->set(scalar@matches.__" matching functions");
} else {
@ -471,7 +468,7 @@ sub create_main {
$f2->pack_start(info,0,1,5);
my $sw = new Gtk::ScrolledWindow;
$sw->set_policy(-automatic, -automatic);
$cinfo = new_with_titles Gtk::CList '','TYPE','NAME','DESCRIPTION';
$cinfo = new_with_titles Gtk::CList '',__"TYPE",__"NAME",__"DESCRIPTION";
$cinfo->set_column_auto_resize (0,1);
$cinfo->set_column_auto_resize (1,1);
$cinfo->set_column_auto_resize (2,1);

4
plug-ins/perl/examples/alpha2color.pl
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
# alpha2color.pl
@ -103,7 +103,7 @@ register
"Seth Burgess",
"Seth Burgess<sjburges\@gimp.org>",
"2-15-98",
"<Image>/Image/Colors/Alpha2Color",
__"<Image>/Image/Colors/Alpha2Color",
"RGBA",
[
[PF_COLOR, "color", "Color for current alpha", [127,127,127]]

4
plug-ins/perl/examples/animate_cells
View file

@ -12,7 +12,7 @@
require 5.004;
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
@ -82,7 +82,7 @@ register
"Use this plugin to animate a series of layers in the same way that\
a physical animation process would use cells.",
"Aaron Sherman", "Aaron Sherman (c)", "1999-03-15",
"<Image>/Filters/Animation/Animate Cells",
__"<Image>/Filters/Animation/Animate Cells",
"*",
[
[PF_TOGGLE, "work_on_copy", "", 1]

2
plug-ins/perl/examples/billboard
View file

@ -86,7 +86,7 @@ register "billboard",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1.3",
"<Toolbox>/Xtns/Animation/Billboard",
__"<Toolbox>/Xtns/Animation/Billboard",
"*",
[
[PF_DRAWABLE, "source", "What drawable to spin from?"],

2
plug-ins/perl/examples/blowinout.pl
View file

@ -91,7 +91,7 @@ register
"John Pitney",
"John Pitney <pitney\@uiuc.edu>",
"1999-03-15",
"<Image>/Filters/Distorts/BlowInOut",
__"<Image>/Filters/Distorts/BlowInOut",
"*",
[
[PF_INT32, "angle", "Wind Angle, 0 is left", 120],

2
plug-ins/perl/examples/border.pl
View file

@ -15,7 +15,7 @@ register "border_average",
"Marc Lehmann",
"Marc Lehmann",
"0.2.2",
"<Image>/Filters/Misc/Border Average",
__"<Image>/Filters/Misc/Border Average",
"RGB",
[
[PF_INT32, "thickness", "Border size to take in count", 10],

4
plug-ins/perl/examples/burst
View file

@ -1,7 +1,5 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# <sjburges@gimp.org> (original release)
#
use Gimp;
@ -29,7 +27,7 @@ the inside and the outside of the burst. \n",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-07-31",
"<Image>/Filters/Misc/Burst",
__"<Image>/Filters/Misc/Burst",
"*",
[
[PF_RADIO, "shape", "Shape To Burst Into", 0, [Rectangle => 1, Ellipse=> 0]],

4
plug-ins/perl/examples/centerguide
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
register "center_guide",
@ -9,7 +9,7 @@ register "center_guide",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad",
"990323",
"<Image>/Guides/Center Guide",
__"<Image>/Guides/Center Guide",
"*",
[
[PF_RADIO,

2
plug-ins/perl/examples/colourtoalpha
View file

@ -13,7 +13,7 @@ register "colour_to_alpha",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990729",
"<Image>/Filters/Colors/Colour To Alpha",
__"<Image>/Filters/Colors/Colour To Alpha",
"RGB*",
[
[PF_COLOR, "colour", "The colour to replace"],

2
plug-ins/perl/examples/ditherize.pl
View file

@ -27,7 +27,7 @@ register "plug_in_ditherize",
"Marc Lehmann",
"Marc Lehmann",
"1.1",
"<Image>/Filters/Noise/Ditherize",
__"<Image>/Filters/Noise/Ditherize",
"RGB*, GRAY*",
[
[PF_SLIDER, "colours", "The number of colours to dither to", 10, [0, 256]],

2
plug-ins/perl/examples/example-fu.pl
View file

@ -11,7 +11,7 @@ register "gimp_fu_example_script", # fill in a function name
"Marc Lehmann <pcg\@goof.com>", # don't forget your name (author)
"(c) 1998, 1999 Marc Lehmann", # and your copyright!
"19990316", # the date this script was written
"<Toolbox>/Xtns/Gimp::Fu Example", # the menu path
__"<Toolbox>/Xtns/Gimp::Fu Example", # the menu path
"RGB*, GRAYA", # image types to accept (RGB, RGAB amnd GRAYA)
[
# argument type, switch name , a short description , default value, extra arguments

2
plug-ins/perl/examples/example-oo.pl
View file

@ -29,7 +29,7 @@ sub net {
sub query {
gimp_install_procedure("plug_in_example_oo", "a test plug-in in perl",
"try it out", "Marc Lehmann", "Marc Lehmann", "1998-04-27",
"<Toolbox>/Xtns/Perl Example Plug-in", "*", PROC_EXTENSION,
__"<Toolbox>/Xtns/Perl Example Plug-in", "*", PROC_EXTENSION,
[[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
}

2
plug-ins/perl/examples/feedback.pl
View file

@ -15,7 +15,7 @@ register "feedback",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-99",
"<Image>/Filters/Noise/Feedback",
__"<Image>/Filters/Noise/Feedback",
"RGB, GRAY",
[
[PF_SLIDER, "offset", "the amount the frames will offset", 3, [0, 255, 1]],

4
plug-ins/perl/examples/fire
View file

@ -35,7 +35,7 @@ register "fire",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann",
"19990802",
"<Image>/Filters/Colors/Fire",
__"<Image>/Filters/Colors/Fire",
"*",
[
[PF_SLIDER, "threshold", "Intensity at which to start smearing", 10, [0,255,1]],
@ -53,7 +53,7 @@ register "firetext",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann",
"19990802",
"<Toolbox>/Xtns/Render/Logos/Firetext",
__"<Toolbox>/Xtns/Render/Logos/Firetext",
"*",
[
[PF_TEXT, "text", "The text to render (can be multi-line)", "burn,\nBurn,\nBURN!"],

4
plug-ins/perl/examples/fit-text
View file

@ -1,7 +1,5 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# <sjburges@gimp.org>
# This is adrian and xachs idea - take a rectangluar selection, and select
# font type and string. Then fill it with whatever size is needed.
@ -41,7 +39,7 @@ register "fit_text",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-03-21",
"<Image>/Filters/Render/Fit Text",
__"<Image>/Filters/Render/Fit Text",
"*",
[
[PF_FONT, "font", "What font type to use - size will be ignored", $defaultfont],

4
plug-ins/perl/examples/font_table
View file

@ -8,7 +8,7 @@
# Written by Aaron Sherman, (c) 1998
use Gimp::Feature 'unix';
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
sub font_table {
@ -173,7 +173,7 @@ register
"Create a tabular index of fonts",
"Create a tabular index of fonts",
"Aaron Sherman", "Aaron Sherman (c)", "1999-03-16",
"<Toolbox>/Xtns/Render/Font Table",
__"<Toolbox>/Xtns/Render/Font Table",
"*",
[
[PF_STRING, "foundery", "Foundery (perl regex or \"*\")", "*"],

4
plug-ins/perl/examples/frame_filter
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
register "layer_apply",
@ -9,7 +9,7 @@ register "layer_apply",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann <pcg\@goof.com>",
"19990708",
"<Image>/Filters/Animation/Apply Perl Expression",
__"<Image>/Filters/Animation/Apply Perl Expression",
"*",
[
[PF_TEXT, "expr", "the perl expression to run for each layer",

2
plug-ins/perl/examples/frame_reshuffle
View file

@ -9,7 +9,7 @@ register "layer_reorder",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann <pcg\@goof.com>",
"19990708",
"<Image>/Layers/Stack/Reorder Layers",
__"<Image>/Layers/Stack/Reorder Layers",
"*",
[
[PF_RADIO, "function", "which remapping function to use: CUSTOM (0), REVERSE (1), SHIFT (2)", 1,

4
plug-ins/perl/examples/gimpmagick
View file

@ -1,7 +1,7 @@
#!/usr/bin/perl
use Gimp::Feature qw(gtk perl-5.005);
use Gimp 1.06 ':auto';
use Gimp 1.06 (':auto','__');
use Gimp::Fu;
use Gtk;
BEGIN { eval "use Image::Magick 1.45"; $@ and Gimp::Feature::missing ("Image::Magick version 1.45 or higher") };
@ -274,7 +274,7 @@ register "gimp_magick",
"Marc Lehmann",
"Marc Lehmann",
$VERSION,
"<Image>/Filters/Misc/Magick",
__"<Image>/Filters/Misc/Magick",
"*",
[
],

10
plug-ins/perl/examples/glowing_steel
View file

@ -12,7 +12,7 @@
require 5.004;
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
@ -260,7 +260,7 @@ register
"it appear to have height. Not quite the same as a beveled edge, ".
"this is a somewhat more subtle technique.",
"Aaron Sherman", "Aaron Sherman (c)", "1999-06-14",
"<Image>/Filters/Render/Highlight Edges",
__"<Image>/Filters/Render/Highlight Edges",
"*",
[
[PF_INT32, "edging", "Pixels", 1]
@ -273,7 +273,7 @@ register
"Use this pluggin to make a surface (selected area) look like ".
"brushed metal (kind of like steel).",
"Aaron Sherman", "Aaron Sherman (c)", "1999-06-14",
"<Image>/Filters/Render/Brushed Metal",
__"<Image>/Filters/Render/Brushed Metal",
"*",
[
[PF_SLIDER, "stroke_length", "Length", 25, [1, 100, 1]],
@ -288,7 +288,7 @@ register
"is very different from drop shadows, as the glow will extend out ".
"in the given radius from all edges of the layer.",
"Aaron Sherman", "Aaron Sherman (c)", "1999-06-14",
"<Image>/Filters/Render/Add Glow",
__"<Image>/Filters/Render/Add Glow",
"*",
[
[PF_COLOR, "glow_color", "Color", [0x00, 0x00, 0xff]],
@ -303,7 +303,7 @@ register
"a glowing surface. This effect was inspired by a poster for the ".
"film \"Lost In Space\".",
"Aaron Sherman", "Aaron Sherman (c)", "1999-06-14",
"<Toolbox>/Xtns/Render/Logos/Glowing Steel",
__"<Toolbox>/Xtns/Render/Logos/Glowing Steel",
"*",
[
[PF_STRING, "string", "string", "GET LOST"],

4
plug-ins/perl/examples/goldenmean
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
sub goldenmean {
@ -32,7 +32,7 @@ register "golden_mean",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad <claesg\@algonet.se>",
"990328",
"<Toolbox>/Xtns/Render/Golden Mean",
__"<Toolbox>/Xtns/Render/Golden Mean",
"*",
[
[PF_INT32, "short", "Shortest side", 233],

6
plug-ins/perl/examples/gouge
View file

@ -49,7 +49,7 @@ register "blur_2x2",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990725",
"<Image>/Filters/Blur/2x2 Blur",
__"<Image>/Filters/Blur/2x2 Blur",
"RGB*, GRAY*",
[],
sub {
@ -71,7 +71,7 @@ register "contrast_enhance_2x2",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990725",
"<Image>/Filters/Enhance/2x2 Contrast Enhance",
__"<Image>/Filters/Enhance/2x2 Contrast Enhance",
"RGB*, GRAY*",
[],
sub {
@ -93,7 +93,7 @@ register "edge_detect_2x2",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990725",
"<Image>/Filters/Edge-Detect/2x2 Edge Detect",
__"<Image>/Filters/Edge-Detect/2x2 Edge Detect",
"RGB*, GRAY*",
[],
sub {

2
plug-ins/perl/examples/guide_remove
View file

@ -17,7 +17,7 @@ register "guide_remove",
"Brendon Humphrey",
"Brendon Humphrey <brendy\@swipnet.se>",
"1999-07-20",
"<Image>/Guides/Remove Guides",
__"<Image>/Guides/Remove Guides",
"*",
[],
[],

2
plug-ins/perl/examples/guidegrid
View file

@ -24,7 +24,7 @@ register "guide_grid",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-03-20",
"<Image>/Guides/Guide Grid",
__"<Image>/Guides/Guide Grid",
"*",
[
[PF_SPINNER, "x_spacing", "How far to space grid horizontally", 24, [1,1000,1]],

2
plug-ins/perl/examples/guides_to_selection
View file

@ -10,7 +10,7 @@ register "guide_to_selection",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"1999-08-01",
"<Image>/Guides/To Selection",
__"<Image>/Guides/To Selection",
"*",
[
[PF_RADIO, "operation", "The selection operation", REPLACE, [ADD => ADD, SUB => SUB, REPLACE => REPLACE]],

2
plug-ins/perl/examples/homepage-logo.pl
View file

@ -137,7 +137,7 @@ sub extension_homepage_logo {
sub query {
gimp_install_procedure("extension_homepage_logo", "a test extension in perl",
"try it out", "Marc Lehmann", "Marc Lehmann", "1997-02-06",
"<Toolbox>/Xtns/Homepage-Logo", "*", PROC_EXTENSION,
__"<Toolbox>/Xtns/Homepage-Logo", "*", PROC_EXTENSION,
[[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
}

4
plug-ins/perl/examples/image_tile
View file

@ -18,7 +18,7 @@
# o Test (fix?) non-interactive use...
# o Allow tile aspect selection independant of base image
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
use Fcntl qw(O_RDWR O_CREAT O_TRUNC);
use Gimp::Feature;
@ -436,7 +436,7 @@ register
Filters/Artistic/Mosaic plugin, but with images as the
tiles.",
"Aaron Sherman", "Aaron Sherman (c)", "1999-03-15",
"<Image>/Filters/Map/Image Tile",
__"<Image>/Filters/Map/Image Tile",
"*",
[
# Image and drawable are given for free...

4
plug-ins/perl/examples/innerbevel
View file

@ -7,14 +7,14 @@
# working btw). You can follow step by step with the website at
# http://tigert.gimp.org/gimp/tutorials/beveled_text/
use Gimp ':auto';
use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
$defaultcolor1 = [124,10,18];
$defaultcolor2 = [200,19,27];
$path = "<Toolbox>/Xtns/Render/Logos/Inner Bevel";
$path = __"<Toolbox>/Xtns/Render/Logos/Inner Bevel";
$shortdesc = "Perform an inner bevel on text";
$longdesc = "This uses tigert's inner bevel method on text, which can be found with his other excellent tutorials at http://tigert.gimp.org/";
$date = "1999-03-23";

54
plug-ins/perl/examples/logulator
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
use strict;
@ -185,7 +185,7 @@ register "perl_fu_3d_outline_logo",
"Hrvoje Horvat (hhorvat\@open.hr)",
"Hrvoje Horvat",
"07 April, 1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/3D Outline",
__"<Toolbox>/Xtns/Perl-Fu/Logos/3D Outline",
"",
[
[PF_PATTERN, 'pattern', "Pattern", "Parque #1"],
@ -247,7 +247,7 @@ register "perl_fu_alien_glow_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Alien Glow",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Alien Glow",
"",
[
[PF_STRING, 'text_string', "Text String", "ALIEN"],
@ -301,7 +301,7 @@ register "perl_fu_basic1_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
"<Toolbox>/Xtns/Perl-Fu/Logos/Basic I",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Basic I",
"",
[
[PF_STRING, 'text_string', "Text String", "The Gimp"],
@ -377,7 +377,7 @@ register "perl_fu_basic2_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
"<Toolbox>/Xtns/Perl-Fu/Logos/Basic II",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Basic II",
"",
[
[PF_STRING, 'text_string', "Text String", "SCRIPT-FU"],
@ -547,7 +547,7 @@ register "perl_fu_carved_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Carved",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Carved",
"",
[
[PF_STRING, 'text_string', "Text String", "Marble"],
@ -603,7 +603,7 @@ register "perl_fu_chalk_logo",
"Manish Singh <msingh\@uclink4.berkeley.edu>",
"Manish Singh",
"October 1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Chalk",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Chalk",
"",
[
[PF_STRING, 'text_string', "Text String", "CHALK"],
@ -690,7 +690,7 @@ register "perl_fu_logo_chip_away",
"Adrian Likins <adrian\@gimp.org>",
"Adrian Likins <adrian\@gimp.org>",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Chip Away",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Chip Away",
"",
[
[PF_STRING, 'text_string', "Text String", "Sloth"],
@ -784,7 +784,7 @@ register "perl_fu_chrome_logo",
"Spencer Kimball",
"Spencer Kimball & Peter Mattis",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Chrome",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Chrome",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -859,7 +859,7 @@ register "perl_fu_comic_logo",
"Brian McFee <keebler\@wco.com>",
"Brian McFee",
"April 1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/Comic Book",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Comic Book",
"",
[
[PF_STRING, 'text_string', "Text String", "Moo"],
@ -963,7 +963,7 @@ register "perl_fu_cool_metal_logo",
"Spencer Kimball & Rob Malda",
"Spencer Kimball & Rob Malda",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Cool Metal",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Cool Metal",
"",
[
[PF_STRING, 'text_string', "Text String", "Cool Metal"],
@ -1184,7 +1184,7 @@ register "perl_fu_crystal_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Crystal",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Crystal",
"",
[
[PF_VALUE, 'chrome_factor', "Chrome Factor", "1.0"],
@ -1278,7 +1278,7 @@ register "perl_fu_frosty_logo",
"Spencer Kimball & Ed Mackey",
"Spencer Kimball & Ed Mackey",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Frosty",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Frosty",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -1380,7 +1380,7 @@ register "perl_fu_glossy_logo",
"Hrvoje Horvat (hhorvat\@open.hr)",
"Hrvoje Horvat",
"14/04/1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/Glossy",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Glossy",
"",
[
[PF_STRING, 'text_string', "Text String", "Galaxy"],
@ -1463,7 +1463,7 @@ register "perl_fu_glowing_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Glowing Hot",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Glowing Hot",
"",
[
[PF_STRING, 'text_string', "Text String", "GLOWING"],
@ -1532,7 +1532,7 @@ register "perl_fu_gradient_bevel_logo",
"Brian McFee <keebler\@wco.com>",
"Brian McFee",
"April 1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/Gradient Bevel",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Gradient Bevel",
"",
[
[PF_STRING, 'text_string', "Text String", "Moo"],
@ -1611,7 +1611,7 @@ register "perl_fu_i26_gunya2",
"Shuji Narazaki",
"Shuji Narazaki",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Imigre-26",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Imigre-26",
"",
[
[PF_STRING, 'text_string', "Text", "The GIMP"],
@ -1803,7 +1803,7 @@ register "perl_fu_neon_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Neon",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Neon",
"",
[
[PF_STRING, 'text_string', "Text String", "NEON"],
@ -1853,7 +1853,7 @@ register "perl_fu_newsprint_text",
"Austin Donnelly",
"Austin Donnelly",
"1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/Newsprint text",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Newsprint text",
"",
[
[PF_STRING, 'text_string', "Text String", "Newsprint"],
@ -2074,7 +2074,7 @@ register "perl_fu_sota_chrome_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/SOTA Chrome",
__"<Toolbox>/Xtns/Perl-Fu/Logos/SOTA Chrome",
"",
[
[PF_ADJUSTMENT,'chrome_saturation',"Chrome Saturation", [-80, -100, 100, 1, 10, 0, 0]],
@ -2142,7 +2142,7 @@ register "perl_fu_speed_text",
"Austin Donnelly",
"Austin Donnelly",
"1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/Speed text",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Speed text",
"",
[
[PF_STRING, 'text_string', "Text String", "Speed!"],
@ -2219,7 +2219,7 @@ register "perl_fu_starburst_logo",
"Spencer Kimball & Xach Beane",
"Spencer Kimball & Xach Beane",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Starburst",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Starburst",
"",
[
[PF_STRING, 'text_string', "Text String", "GIMP"],
@ -2350,7 +2350,7 @@ register "perl_fu_starscape_logo",
"Spencer Kimball",
"Spencer Kimball",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Starscape",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Starscape",
"",
[
[PF_STRING, 'text_string', "Text String", "Nova"],
@ -2447,7 +2447,7 @@ register "perl_fu_t_o_p_logo",
"Shuji Narazaki (narazaki\@InetQ.or.jp)",
"Shuji Narazaki",
"1997",
"<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace",
"",
[
[PF_STRING, 'text_string', "Text String", "The GIMP"],
@ -2545,7 +2545,7 @@ register "perl_fu_textured_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
"<Toolbox>/Xtns/Perl-Fu/Logos/Textured",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Textured",
"",
[
[PF_PATTERN, 'text_pattern', "Text Pattern", "Fibers"],
@ -2616,7 +2616,7 @@ register "perl_fu_bovinated_logo",
"Brian McFee <keebler\@wco.com>",
"Brian McFee",
"April 1998",
"<Toolbox>/Xtns/Perl-Fu/Logos/Bovination",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Bovination",
"",
[
[PF_STRING, 'text_string', "Text String", "Fear the Cow"],
@ -2707,7 +2707,7 @@ register "perl_fu_blended_logo",
"Spencer Kimball",
"Spencer Kimball",
"1996",
"<Toolbox>/Xtns/Perl-Fu/Logos/Blended",
__"<Toolbox>/Xtns/Perl-Fu/Logos/Blended",
"",
[
[PF_VALUE, 'blend_mode', "Blend Mode", "FG_BG_HSV"],

2
plug-ins/perl/examples/map_to_gradient
View file

@ -21,7 +21,7 @@ register "map_to_gradient",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990802",
"<Image>/Filters/Colors/Map To Gradient",
__"<Image>/Filters/Colors/Map To Gradient",
"RGB*, GRAY",
[
[PF_GRADIENT, "gradient", "The gradient to map to"],

4
plug-ins/perl/examples/mirrorsplit
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
use strict;
# Gimp::set_trace(TRACE_ALL);
@ -11,7 +11,7 @@ register "mirror_split",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad <claesg\@algonet.se>",
"990530",
"<Image>/Filters/Distorts/MirrorSplit",
__"<Image>/Filters/Distorts/MirrorSplit",
"*",
[
[PF_RADIO, "mirror", "Which half to mirror?", 0,

4
plug-ins/perl/examples/oneliners
View file

@ -10,7 +10,7 @@ use Gimp::Util;
# <sjburges@gimp.org>
register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>", "1.0",
"<Image>/Layers/Layer to Image Size", "RGB*, GRAY*", [ ], sub {
__"<Image>/Layers/Layer to Image Size", "RGB*, GRAY*", [ ], sub {
($img, $layer) = @_;
$layer->resize($img->width, $img->height, $layer->offsets);
();
@ -20,7 +20,7 @@ register "layer_to_image_size", "Layer2ImageSize", "Expands layer to image size"
register "center_layer", "Center Layer",
"Centers the current layer on the image",
"Seth Burgess", "Seth Burgess <sjburges\@gimp.org>",
"1.0", "<Image>/Layers/Center Layer", "RGB*, GRAY*", [], sub {
"1.0", __"<Image>/Layers/Center Layer", "RGB*, GRAY*", [], sub {
($img, $layer) = @_;
$layer->set_offsets(($img->width - $layer->width )/2,
($img->height - $layer->height)/2);

2
plug-ins/perl/examples/perlotine
View file

@ -134,7 +134,7 @@ register "perlotine",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-09-11",
"<Image>/Guides/Perl-o-tine",
__"<Image>/Guides/Perl-o-tine",
"*",
[
[PF_STRING, "save_path", "The path to export the HTML to",$ENV{HOME}],

4
plug-ins/perl/examples/pixelmap
View file

@ -56,7 +56,7 @@ register "pixelmap",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990729",
"<Image>/Filters/Map/Pixelmap",
__"<Image>/Filters/Map/Pixelmap",
"*",
[
[PF_TEXT, "expression" , "The perl expression to use", "outer(\$x*0.1,\$y*0.2)\n->slice(\"*\$bpp\")"]
@ -69,7 +69,7 @@ register "pixelgen",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990730",
"<Toolbox>/Xtns/Render/Pixelgenerator",
__"<Toolbox>/Xtns/Render/Pixelgenerator",
"*",
[
[PF_SPINNER, "width" , "The width of the new image to generate", 512, [1, 4096, 1]],

4
plug-ins/perl/examples/povray
View file

@ -26,7 +26,7 @@ register "povray_preferences_set",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann",
"19990803",
"<Toolbox>/Xtns/Render/Povray/Preferences",
__"<Toolbox>/Xtns/Render/Povray/Preferences",
"*",
[
[PF_FILE, "povray_path", "The path to the povray executable", "x-povray"],
@ -135,7 +135,7 @@ register "povray_render_texture",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann",
"19990803",
"<Toolbox>/Xtns/Render/Povray/Texture",
__"<Toolbox>/Xtns/Render/Povray/Texture",
"*",
[
@camera,

2
plug-ins/perl/examples/prep4gif.pl
View file

@ -95,7 +95,7 @@ register
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
"<Image>/Filters/Misc/Prepare for GIF",
__"<Image>/Filters/Misc/Prepare for GIF",
"RGB*",
[
[PF_INT32, "lower_threshold", "Lower Alpha Threshold", 64],

2
plug-ins/perl/examples/randomart1
View file

@ -13,7 +13,7 @@ register "random_art_1", # Funktionsname
"Marc Lehmann", # Autor
"Marc Lehmann <pcg\@goof.com", # Copyright
"0.3", # Version/Datum
"<Toolbox>/Xtns/Render/Random Art #1", # Menüpfad
__"<Toolbox>/Xtns/Render/Random Art #1", # Menüpfad
"", # Bildtypen
# Eingabeparameter
# Typ Name Beschreibung Wert

2
plug-ins/perl/examples/randomblends
View file

@ -20,7 +20,7 @@ register "random_blends",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-03-18a",
"<Image>/Filters/Render/Random Blends",
__"<Image>/Filters/Render/Random Blends",
"RGB*, GRAY*",
[
[PF_SPINNER, "number", "How many gradients to apply", 7, [1,255,1]],

4
plug-ins/perl/examples/repdup
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
#Gimp::set_trace(TRACE_ALL);
@ -11,7 +11,7 @@ register "repdup",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad <claesg\@algonet.se>",
"990328",
"<Image>/Edit/Repeat & Duplicate",
__"<Image>/Edit/Repeat & Duplicate",
"*",
[
[PF_SPINNER, "repeats", "Number of repeats",

2
plug-ins/perl/examples/roundrectsel
View file

@ -15,7 +15,7 @@ register "round_rect_sel",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-03-25",
"<Image>/Select/Round Rectangular Selection",
__"<Image>/Select/Round Rectangular Selection",
"*",
[
[PF_SPINNER, "x_rounding", "How much to round in the horizontal, in pixels", 16, [1,1000,1]],

2
plug-ins/perl/examples/scratches.pl
View file

@ -25,7 +25,7 @@ register "scratches",
"Marc Lehmann",
"Marc Lehmann <pcg\@goof.com>",
"19990223",
"<Image>/Filters/Distorts/Scratches",
__"<Image>/Filters/Distorts/Scratches",
"*",
[
[PF_SLIDER , "angle_x" , "The horizontal angle" , 30, [ 0, 360]],

2
plug-ins/perl/examples/sethspin.pl
View file

@ -82,7 +82,7 @@ register "seth_spin",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1.3",
"<Toolbox>/Xtns/Animation/Seth Spin",
__"<Toolbox>/Xtns/Animation/Seth Spin",
"*",
[
[PF_DRAWABLE, "source", "What drawable to spin from?"],

4
plug-ins/perl/examples/stampify
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
#Gimp::set_trace(TRACE_ALL);
@ -11,7 +11,7 @@ register "stampify",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad <claesg\@algonet.se>",
"990328",
"<Image>/Script-Fu/Decor/Stampify",
__"<Image>/Script-Fu/Decor/Stampify",
"*",
[
[PF_COLOR, "paper", "Paper colour", [242, 242, 242]],

4
plug-ins/perl/examples/stamps
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
sub stamps {
@ -42,7 +42,7 @@ register "stamps",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad <claesg\@algonet.se>",
"990314",
"<Toolbox>/Xtns/Render/Stamps",
__"<Toolbox>/Xtns/Render/Stamps",
"*",
[
[PF_INT32, "size", "img size", 90],

4
plug-ins/perl/examples/terral_text
View file

@ -26,7 +26,7 @@
#[terral] input levels of 0, .24, 113 [22:11]
#[terral] --end of script [22:12]
use Gimp ':auto';
use Gimp qw(:auto __);
use Gimp::Fu;
use Gimp::Util;
@ -40,7 +40,7 @@ register
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-03-15",
"<Image>/Filters/Render/Terral Text",
__"<Image>/Filters/Render/Terral Text",
"RGB*,GRAY*",
[
[ PF_RADIO, "solid_noise", "The Texture Type", 0, ["solid noise" => 1, "current picture" => 0]],

2
plug-ins/perl/examples/tex-to-float
View file

@ -163,7 +163,7 @@ sub tex_string_to_float {
register "tex_string_to_float", "Turn a TeX-string into floating layer", "Takes a TeX string as input and creates a floating layer of the rendered string in the current layer in the foreground color.",
"Dov Grobgeld <dov\@imagic.weizmann.ac.il>", "Dov Grobgeld",
"1999-03-16",
"<Image>/Filters/Render/TeX String",
__"<Image>/Filters/Render/TeX String",
"*",
[
[PF_STRING, "input_file", "TeX macro file to input"],

4
plug-ins/perl/examples/triangle
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp qw(:auto __);
use Gimp::Fu;
register "triangle",
@ -9,7 +9,7 @@ register "triangle",
"Claes G Lindblad <claesg\@algonet.se>",
"Claes G Lindblad <claesg\@algonet.se>",
"990328",
"<Image>/Select/Triangle",
__"<Image>/Select/Triangle",
"*",
[
[PF_RADIO, "type", "Select position", 0,

2
plug-ins/perl/examples/webify.pl
View file

@ -11,7 +11,7 @@ register "webify",
"Marc Lehmann",
"Marc Lehmann",
"1.0",
"<Image>/Filters/Misc/Webify",
__"<Image>/Filters/Misc/Webify",
"RGB*, GRAY*",
[
[PF_BOOL, "new", "create a new image?", 1],

4
plug-ins/perl/examples/windy.pl
View file

@ -3,7 +3,7 @@
# sent to me by Seth Burgess <sjburges@gimp.org>
# small changes my Marc Lehmann <pcg@goof.com>
use Gimp ':auto';
use Gimp qw(:auto __);
use Gimp::Fu;
#Gimp::set_trace(TRACE_CALL);
@ -51,7 +51,7 @@ register
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1998-09-14",
"<Image>/Filters/Distorts/Windify",
__"<Image>/Filters/Distorts/Windify",
"*",
[
[PF_INT32, "angle", "Wind Angle, 0 is left", 120],

4
plug-ins/perl/examples/xachlego.pl
View file

@ -29,7 +29,7 @@
# in a directory more suitable than the lame "Misc"
# Here's the boring start of every script...
use Gimp ':auto';
use Gimp qw(:auto __);
use Gimp::Fu;
register "xach_blocks",
@ -39,7 +39,7 @@ register "xach_blocks",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
"<Image>/Filters/Map/Xach Blocks",
__"<Image>/Filters/Map/Xach Blocks",
"*",
[
[PF_SLIDER, "block_size", "The size of the blocks...", 10, [0, 255, 1]],

4
plug-ins/perl/examples/xachshadow.pl
View file

@ -22,7 +22,7 @@
#
# Here's the boring start of every script...
use Gimp ':auto';
use Gimp qw(:auto __);
use Gimp::Fu;
register "xach_shadows",
@ -31,7 +31,7 @@ register "xach_shadows",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
"<Image>/Filters/Map/Xach Shadows",
__"<Image>/Filters/Map/Xach Shadows",
"RGB*, GRAY*",
[
[PF_SLIDER, "block_size", "The size of the blocks...", 10, [0, 255, 1]],

2
plug-ins/perl/examples/xachvision.pl
View file

@ -12,7 +12,7 @@ register "xachvision",
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"1999-02-28",
"<Image>/Filters/Noise/Xach Vision",
__"<Image>/Filters/Noise/Xach Vision",
"RGB*, GRAY*",
[
[PF_COLOR, "color", "What Color to see the world in", [0, 255, 0]],

4
plug-ins/perl/examples/yinyang
View file

@ -6,7 +6,7 @@
#
# Written by Aaron Sherman, (c) 1998
use Gimp qw(:auto);
use Gimp qw(:auto __);
use Gimp::Fu;
# Main function. Takes width, height, do_eyes (toggle), eye_images (toggle),
@ -106,7 +106,7 @@ register("yinyang", "Render a stand-alone Yin/Yang image",
"Renders a black-and-white Yin/Yang symbol optionally
with \"eyes\" that may optionally be images.",
"Aaron Sherman", "(c) 1998, Aaron Sherman",
"1999b", "<Toolbox>/Xtns/Render/Yin-Yang", "*",
"1999b", __"<Toolbox>/Xtns/Render/Yin-Yang", "*",
[
[PF_INT32, "width", "Width", 256],
[PF_INT32, "height", "Height", 256],

7
plug-ins/perl/perl-intl.h
View file

@ -1,7 +1,14 @@
#ifndef ENABLE_NLS
# ifdef HAVE_LIBINTL_H
# define ENABLE_NLS
# endif
#endif
#ifdef ENABLE_NLS
# include <libintl.h>
#else
# define gettext(s) (s)
# define dgettext(d,s) (s)
# define textdomain(d) (d)
# define bindtextdomain(d,p) (p)
#endif

949
plug-ins/perl/po/de.po Normal file
View file

@ -0,0 +1,949 @@
# German gimp-perl translation table
# Copyright (C) 1999 Free Software Foundation, Inc.
# Marc Lehmann <pcg@goof.com>, 1999
#
msgid ""
msgstr ""
"Project-Id-Version: gimp-perl 1\n"
"POT-Creation-Date: 1999-09-12 17:58+0200\n"
"PO-Revision-Date: 1999-09-13 04:50+0200\n"
"Last-Translator: Marc Lehmann <pcg@goof.com>\n"
"Language-Team: German <de@li.org>\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=iso-8859-1\n"
"Content-Transfer-Encoding: 8bit\n"
msgid "<Image>/Guides/Center Guide"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Logos/Inner Bevel"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "FATAL: unable to create $tmp: $!\n"
msgstr "FATAL: Konnte '$tmp' nicht erzeugen: $!\n"
msgid ""
"Expected an INT32 but got '%s'. Add '*1' if you really intend to pass in a string"
msgstr ""
"An dieser Stelle wird ein INT32 erwartet, kein '%s'. Wenn hier wirklich ein "
"String stehen soll bitte ein *1 anhängen"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Speed text"
msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
msgid "<Image>/Filters/Noise/Feedback"
msgstr "<Image>/Filter/"
msgid ""
" interface-arguments are\n"
" -o | --output <filespec> write image to disk, don't display\n"
" -i | --interact let the user edit the values first\n"
" script-arguments are\n"
msgstr ""
msgid "being called as '%s', but '%s' not registered in the pdb"
msgstr ""
msgid "argument type %s expected (not %s)"
msgstr "Argument vom Typ %s erwartet, nicht %s"
msgid "Browse"
msgstr "Suchen"
msgid "Reset all values to their default"
msgstr "Auf Standardwerte zurücksetzen"
msgid "WARNING: client tried to unlock without holding a lock"
msgstr ""
msgid "$_: illegal switch, try $0 --help\n"
msgstr "$_: Unbekannter Schlater, wie wär's mit $0 --help stattdessen?\n"
msgid "<Toolbox>/Xtns/Render/Logos/Glowing Steel"
msgstr "<Toolbox>/Xtns/Render/Logos/Glowing Steel"
msgid "Brush Selection Dialog"
msgstr "Pinselauswahl"
msgid "gimp procedure '%s' not found"
msgstr "Gimp-Funktion '%s' nicht gefunden"
msgid "Pattern Selection Dialog"
msgstr "Musterauswahl"
msgid "function '$exe' not found in this script (must be one of "
msgstr ""
msgid "pixel size mismatch, pdl has %d channel pixels but %d channels are required"
msgstr ""
msgid "Load"
msgstr "Laden"
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Glossy"
msgstr "<Toolbox>/Xtns/Perl-Fu/Logos/Glossy"
msgid "illegal parasite specification, reference expected"
msgstr ""
msgid "Date/Version"
msgstr "Datum/Version"
msgid "Status"
msgstr ""
msgid "<Image>/Layers/Center Layer"
msgstr ""
msgid "wrong authorization, aborting connection"
msgstr ""
msgid "BG"
msgstr "HG"
msgid "internal error (please report): too many main arguments"
msgstr ""
msgid "use'ing Gimp::PDL is no longer necessary, please remove it!\n"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Colors/Fire"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Image>/Filters/Misc/Prepare for GIF"
msgstr "<Image>/Filter/"
msgid "illegal type for colour specification"
msgstr "Die Farbangabe hat einen falschen Typ"
msgid "xlfd_unpack: unmatched XLFD '$fontname'\n"
msgstr ""
msgid "Internal error: unable to convert reference in sv2net, please report!"
msgstr ""
msgid "Plug-In Path"
msgstr "Plug-In-Pfad"
msgid "accepted unix connection"
msgstr "Unix-Verbindung angenommen"
msgid "server going down..."
msgstr "Server beendet sich..."
msgid "trying to start gimp with options \"$opt\"\n"
msgstr "Ich versuche, gimp mit den Schaltern \"$opt\" zu starten\n"
#, fuzzy
msgid "<Image>/Filters/Noise/Ditherize"
msgstr "<Image>/Filter/"
msgid "expected perl-server at other end of socket, got @r\n"
msgstr ""
msgid "pdl height != region height"
msgstr "pdl Höhe != Höhe der Region"
msgid "received QUIT request"
msgstr "QUIT-Anfrage erhalten"
msgid "<Toolbox>/Xtns/PDB Explorer"
msgstr "<Toolbox>/Xtn/PDB-Buch"
msgid " = [argument error]\n"
msgstr " = [Argumentfehler]\n"
msgid "%s arguments for function '%s'"
msgstr "%s Argumente für die Funktion '%s'"
msgid " matching functions"
msgstr " passende Funktionen"
msgid ""
"Usage: $0 [gimp-args..] [interface-args..] [script-args..]\n"
" gimp-arguments are\n"
" -gimp <anything> used internally only\n"
" -h | -help | --help | -? print some help\n"
" -v | --verbose be more verbose in what you do\n"
" --host|--tcp HOST[:PORT] connect to HOST (optionally using PORT)\n"
" (for more info, see Gimp::Net(3))\n"
msgstr ""
msgid "<Image>/Filters/Animation/Animate Cells"
msgstr ""
msgid "%s: procedural database execution failed"
msgstr "%s: PDB-Aufruf fehlgeschlagen"
msgid "authorization required for tcp connections"
msgstr "TCP-Verbindungen erfordern eine Autorisierung"
msgid "<Toolbox>/Xtns/Perl/Server"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "function name contains dashes instead of underscores"
msgstr "Funktionsname enthält Minuszeichen anstatt Unterstrichen"
msgid "authorization ok, but: $r[1]\n"
msgstr "Autorisierung OK, aber: $r[1]\n"
msgid "<Image>/Filters/Render/Highlight Edges"
msgstr ""
msgid "a color must have three components (array elements)"
msgstr ""
"Eine Farbe muß aus drei Komponenten bestehen (einem Feld mit drei Elementen)"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Pixelgenerator"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "$_: unknown/illegal file-save option"
msgstr ""
msgid "TYPE"
msgstr "TYP"
msgid "Gradient Selection Dialog"
msgstr "Farbverlaufauswahl"
msgid "Function Info"
msgstr "Mehr Info"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Crystal"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "unable to open $rgb_db_path"
msgstr "Konnte $rgb_db_path nicht öffnen"
msgid "<Image>/Script-Fu/Decor/Stampify"
msgstr ""
msgid "<Image>/Select/Round Rectangular Selection"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Map/Pixelmap"
msgstr "<Image>/Filter/"
msgid "no additional information available, use --help\n"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Carved"
msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
msgid "<Image>/Filters/Render/Brushed Metal"
msgstr "<Image>/Filter/"
msgid "gimp_tile_set_data is not yet implemented\n"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Map/Image Tile"
msgstr "<Image>/Filter/"
msgid "Internal error: stashname too long, please report!"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Bovination"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "<Image>/Guides/Remove Guides"
msgstr ""
msgid "Internal error: Gimp::Net #101, please report!"
msgstr ""
msgid "get current background colour from the gimp"
msgstr "Übernehme die aktuelle Hintergrundfarbe von Gimp"
msgid "WARNING: shared locking requested but not implemented"
msgstr ""
msgid "parameter '$entry->[1]' is not optional\n"
msgstr ""
msgid "$s: not an integer\n"
msgstr "$s: kein integer\n"
msgid "unable to read '$fn': $!"
msgstr ""
msgid "<Toolbox>/Xtns/Perl/Control Center"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "[undefined]"
msgstr "[undefiniert]"
msgid "function/macro \"$name\" not found in $class"
msgstr "Funktion oder Macro \"$name\" existiert nicht in $class"
msgid "accepted tcp connection from "
msgstr "TCP-Verbindung angenommen von "
msgid "<Image>/Layers/Stack/Reorder Layers"
msgstr ""
msgid "illegal parasite specification, expected three array members"
msgstr ""
msgid "unable to read temporary file $tmp: $!"
msgstr ""
msgid "PDB Explorer - the olof edition (yet still an alpha version)"
msgstr "PDB-Buch - Edition 'Olof' (immer noch Alpha)"
msgid "Illegal default font description for $function: $val\n"
msgstr "Illegale Schriftart angegeben für $function: $val\n"
msgid "unable to convert Gimp::Drawable into Gimp::GDrawable (id %d)"
msgstr "Konnte Gimp::Drawable nicht in Gimp::GDrawable konvertieren (id %d)"
msgid ""
"BLURB:\n"
"\n"
"$blurb\n"
"\n"
"HELP:\n"
"\n"
"$help"
msgstr ""
msgid "Fileselector for $name"
msgstr "Dateiauswahl for $name"
msgid "accepting connections on port $port"
msgstr "Akzeptiere Verbindungen auf port $port"
#, fuzzy
msgid "<Image>/Filters/Misc/Border Average"
msgstr "<Image>/Filter/"
msgid ""
"$function: function name contains unusual characters, good style is to use only "
"0-9, a-z and _"
msgstr ""
msgid "menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!"
msgstr ""
"Menüpfad _muß_ mit <Image>, <Toolbox>, <Load>, <Save> oder <None> anfangen!"
#, fuzzy
msgid "<Image>/Filters/Render/Terral Text"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Povray/Texture"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "register called with too many or wrong arguments\n"
msgstr "'register' mit zu vielen oder falschen Argumenten aufgerufen\n"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Frosty"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "params and return_vals must be array refs (even if empty)!"
msgstr ""
msgid "$_ is not a valid import tag for package $pkg"
msgstr "$_ ist kein gültiger Import-Tag für $pkg"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Yin-Yang"
msgstr "<Toolbox>/Xtn/"
msgid "unable to accept unix connection: $!\n"
msgstr "Konnte Unix-Verbindung nicht annehmen: $!\n"
msgid "Save"
msgstr "Speichern"
msgid ""
"\n"
"\n"
"EMBEDDED POD DOCUMENTATION:\n"
"\n"
msgstr ""
msgid "<Image>/Filters/Animation/Apply Perl Expression"
msgstr ""
msgid ""
"the gtk perl module is required to run\n"
"this plug-in in interactive mode\n"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Golden Mean"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
msgid "<Image>/Filters/Distorts/BlowInOut"
msgstr "<Image>/Filter/"
msgid "interface '$interface_type' unsupported."
msgstr ""
msgid "unable to accept tcp connection: $!\n"
msgstr "Konnte TCp-Verbindung nicht annehmen: $!\n"
msgid ""
"dimension mismatch, pdl has dimension %d but at least %d dimensions required"
msgstr "Dimension falsch: pdl hat die Dimension %d, Minimum ist aber %d"
msgid "[unfinished]\n"
msgstr "[abgebrochen]\n"
#, fuzzy
msgid "<Toolbox>/Xtns/Gimp::Fu Example"
msgstr "<Toolbox>/Xtn/PDB-Buch"
msgid "could not connect to the gimp server (make sure Perl-Server is running)"
msgstr "Konnte den Gimp-Server nicht finden. Läuft der Perl-Server nicht?"
msgid "Cannot call '$AUTOLOAD' at this time"
msgstr ""
msgid "<Image>/Guides/Guide Grid"
msgstr ""
msgid "unauthorized command received, aborting connection"
msgstr "Anfrage ohne Autorisierung empfangen, Verbindung abgebrochen"
msgid "Defaults"
msgstr "Standardwerte"
msgid "<Image>/Image/Colors/Alpha2Color"
msgstr ""
msgid "text string is empty"
msgstr "Textstring ist leer"
msgid "server requests authorization, but no authorization available\n"
msgstr "Server benötigt eine Autorisierung\n"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Logos/Firetext"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "Image Types"
msgstr "Bildtypen"
msgid "<Image>/Filters/"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Image>/Filters/Map/Xach Blocks"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Chrome"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "Menu Path"
msgstr "Menupfad"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Neon"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "Unable to grok '%s' as colour specifier"
msgstr "Konnte die Farbe '%s' nicht finden"
msgid "9x15bold"
msgstr ""
msgid "gimp-perl-pixel functions require the PDL::Core module"
msgstr "Die Gimp-perl-Pixelfunktionen benötigen das PDL::Core-Modul"
msgid "Accelerator"
msgstr "Tastenkombination"
msgid "dunno how to return param type %d"
msgstr ""
msgid "Cancel"
msgstr "Abbrechen"
msgid "only blessed scalars accepted here"
msgstr "Objekt (nicht Referenz oder Skalar) benötigt"
msgid "Internal error: unable to handle argtype '%c' in net2sv, please report!"
msgstr ""
msgid "dimension mismatch, pdl has dimension %d but at most %d dimensions allowed"
msgstr "Ungültige Dimension: pdl hat die Dimension %d, höchstens %d erlaubt"
msgid "WARNING"
msgstr "WARNUNG"
msgid "argument is not of type %s"
msgstr "Argument nicht vom Typ %s"
msgid "Description"
msgstr "Beschreibung"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Textured"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "Unable to convert a reference to type '%s'"
msgstr "Konnte Referenz auf Typ '%s' nicht konvertieren"
msgid "argument incompatible with type IMAGE"
msgstr "Argument inkompatibel mit Typ IMAGE"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Chalk"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
msgid "<Image>/Filters/Blur/2x2 Blur"
msgstr "<Image>/Filter/"
msgid "not enough"
msgstr "nicht genügend"
msgid "-*-courier-medium-r-normal--*-120-*-*-*-*-*"
msgstr ""
msgid "Synopsis"
msgstr ""
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace"
msgstr "<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace"
msgid "Color"
msgstr "Farbe"
msgid "FATAL: canonicalize_colour did not return a value!"
msgstr ""
msgid "DESCRIPTION"
msgstr "BESCHREIBUNG"
msgid "accepting connections in $host"
msgstr "Akzeptiere Verbindungen in $host"
msgid "unable to create socketpair for gimp communications: $!"
msgstr ""
msgid "<Save> plug-in called without the 5 standard arguments!\n"
msgstr ""
msgid "unable to create '$fn': $!"
msgstr "Konnte '$fn' nicht anlegen: $!"
msgid "Previous"
msgstr "Vorherige"
msgid "WARNING: $function returned something that is not an image: \"$img\"\n"
msgstr ""
msgid "Command"
msgstr "Befehl"
msgid "accepting connections on port $Gimp::Net::default_tcp_port"
msgstr ""
msgid "perl-arrayref required as datatype for a gimp-array"
msgstr ""
msgid "<Toolbox>/Xtns/Create_Images"
msgstr "<Toolbox>/Xtns/Create_Images"
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Chip Away"
msgstr "<Toolbox>/Xtns/Perl-Fu/Logos/Chip Away"
msgid "Save $name"
msgstr "Speichere $name"
msgid "run_mode must be INTERACTIVE, NONINTERACTIVE or RUN_WITH_LAST_VALS\n"
msgstr ""
"run_mode muß entweder INTERACTIVE, NONINTERACTIVE or RUN_WITH_LAST_VALS sein\n"
msgid "<Image>/Filters/Edge-Detect/2x2 Edge Detect"
msgstr ""
msgid "Copyright"
msgstr ""
msgid "interface=... tag is no longer supported\n"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Stamps"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid ""
"Expected an INT32 but got '%s'. Maybe you meant '%s' instead and forgot to 'use "
"strict'"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Comic Book"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
msgid "<Image>/Filters/Misc/Magick"
msgstr "<Image>/Filter/"
msgid ""
"malformed paramdef, expected [PARAM_TYPE,\"NAME\",\"DESCRIPTION\"] or PARAM_TYPE"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Distorts/Scratches"
msgstr "<Image>/Filter/"
msgid "last argument to gimp_pattern_select_widget must be scalar ref"
msgstr ""
msgid "accepting connections on $unix_path"
msgstr "Akzeptiere Verbindungen auf $unix_path"
msgid "Load $name"
msgstr "Lade $name"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Starscape"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid ", %d bytes data]"
msgstr ", %d bytes Daten]"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Random Art #1"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "unable to create listening tcp socket: $!\n"
msgstr "Konnte TCP-Socket nicht erzeugene: $!\n"
#, fuzzy
msgid "<Image>/Filters/Map/Xach Shadows"
msgstr "<Image>/Filter/"
msgid ""
"gimp_pixel_rgns_register supports only 1, 2 or 3 arguments, upgrade to gimp-1.1 "
"and report this error"
msgstr ""
msgid "too many"
msgstr "zu viele"
#, fuzzy
msgid "<Toolbox>/Xtns/Animation/Seth Spin"
msgstr "<Toolbox>/Xtn/"
#, fuzzy
msgid "<Image>/Filters/Render/Add Glow"
msgstr "<Image>/Filter/"
msgid "Author"
msgstr "Autor"
msgid "<Toolbox>/Xtns/Parasite Editor"
msgstr ""
msgid "<Toolbox>/Xtns/"
msgstr "<Toolbox>/Xtn/"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Povray/Preferences"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "More..."
msgstr "Mehr..."
#, fuzzy
msgid "<Image>/Filters/Noise/Xach Vision"
msgstr "<Image>/Filter/"
msgid "arguments to main not yet supported!"
msgstr ""
msgid "unable to open Gimp::Net communications socket\n"
msgstr ""
msgid "WARNING: client disconnected while holding an active lock\n"
msgstr ""
msgid "NAME"
msgstr ""
msgid "Help"
msgstr "Hilfe"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Newsprint text"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
msgid "<Toolbox>/Xtns/Animation/Billboard"
msgstr "<Toolbox>/Xtn/PDB-Buch"
msgid "no font specified, using default"
msgstr "Keine Schriftart angegeben, benutze den Standardwert"
msgid "<Image>/Select/Triangle"
msgstr ""
msgid "gimp_tile_get_data is not yet implemented\n"
msgstr ""
msgid "conversion to type $pf_type2string{$type} is not yet implemented\n"
msgstr ""
msgid "<Image>/Filters/Colors/Map To Gradient"
msgstr ""
msgid "unable to grok colour specification"
msgstr "Konnte Farbangabe nicht verstehen"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/3D Outline"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
msgid "<Image>/Filters/Render/Random Blends"
msgstr "<Image>/Filter/"
msgid ""
"Internal error: asked to deobjectify an object not in the cache, please report!"
msgstr ""
msgid "too many arguments"
msgstr "Zu viele Argumente"
msgid "gimp didn't return an execution status, fatal error"
msgstr ""
msgid "-*-helvetica-medium-r-normal-*-34-*-*-*-p-*-iso8859-1"
msgstr ""
msgid "expected protocol version $Gimp::_PROT_VERSION, but server uses $r[0]\n"
msgstr ""
msgid "Restore values to the previous ones"
msgstr "Parameter auf vorherige Werte zurücksetzen"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Gradient Bevel"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "<Image> plug-in called without both image and drawable arguments!\n"
msgstr ""
msgid ", authorization required"
msgstr ", Autorisierung notwendig"
msgid "unable to create listening unix socket: $!\n"
msgstr "Konnte keine Unix-Domain-socket anlegen: $!\n"
msgid "invalid GIMP_HOST: 'spawn' is not a valid connection method for the server"
msgstr ""
msgid "Last Modified"
msgstr "Zuletzt verändert"
msgid "Shortcuts"
msgstr "Abkürzungen"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Blended"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Basic I"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid ""
"the gtk perl module is required to open a dialog\n"
"window, running with default values"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Glowing Hot"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "<Load> plug-in called without the 3 standard arguments!\n"
msgstr ""
msgid "Font Selection Dialog ($desc)"
msgstr "Schirftartenauswahl ($desc)"
#, fuzzy
msgid "<Image>/Filters/Distorts/MirrorSplit"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Image>/Filters/Misc/Webify"
msgstr "<Image>/Filter/"
msgid "%s: procedural database execution failed on invalid input arguments"
msgstr "%s: PDB-Aufruf fehlgeschlagen wegen ungültiger Argumente"
msgid "<Image>/Filters/Colors/Colour To Alpha"
msgstr ""
msgid "(UNINITIALIZED)"
msgstr "(UNINITIALISIERT)"
msgid "closing connection %d (%d requests in %g seconds)"
msgstr "Schließe Verbindung %d (%d Anfragen in %g Sekunden)"
#, fuzzy
msgid "<Image>/Filters/Render/TeX String"
msgstr "<Image>/Filter/"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Starburst"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "required callback '$cb' not found\n"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Font Table"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "authorization failed: $r[1]\n"
msgstr "Autorisierung fehlgeschlagen: $r[1]\n"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Alien Glow"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "FATAL: Gimp::Compat version mismatch\n"
msgstr ""
msgid "server version $Gimp::VERSION started"
msgstr "Server Version $Gimp::VERSION gestartet"
msgid ""
"$function: calling $AUTOLOAD without specifying the :auto import tag is "
"deprecated!\n"
msgstr ""
msgid "authorization unnecessary"
msgstr "Autorisierung unnötig"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Basic II"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "Internal error: Gimp::Net #100, please report!"
msgstr ""
msgid "Close"
msgstr "Schließen"
msgid "<Image>/Edit/Repeat & Duplicate"
msgstr ""
msgid "illegal parasite specification, arrayref expected"
msgstr ""
#, fuzzy
msgid "<Image>/Filters/Misc/Burst"
msgstr "<Image>/Filter/"
msgid "unable to fork: $!"
msgstr "Konnte nicht forken: $!"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Imigre-26"
msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
msgid "<Image>/Filters/Distorts/Windify"
msgstr "<Image>/Filter/"
msgid "Unsupported argumenttype $type"
msgstr ""
msgid "get current foreground colour from the gimp"
msgstr "Übernehme die aktuelle Vordergrundfarbe von Gimp"
#, fuzzy
msgid "<Toolbox>/Xtns/Perl Example Plug-in"
msgstr "<Toolbox>/Xtn/PDB-Buch"
#, fuzzy
msgid "<Image>/Filters/Render/Fit Text"
msgstr "<Image>/Filter/"
msgid "<Image>/Guides/To Selection"
msgstr ""
msgid "Help for "
msgstr "Hilfe für "
msgid "unsupported status code: %d, fatal error\n"
msgstr ""
msgid "dunno how to pass arg type %d"
msgstr ""
msgid "<Image>/Guides/Perl-o-tine"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/SOTA Chrome"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid " (press Tab to complete)"
msgstr " (Taste Tab zum Ergänzen)"
msgid "This module was built without support for PDL."
msgstr "Dieses Modul wurde ohne PDL-Unterstützung übersetzt."
msgid "plug-in returned %d more values than expected"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Homepage-Logo"
msgstr "<Toolbox>/Xtn/"
msgid "FG"
msgstr "VG"
msgid "$function: argument/return value '$p->[1]' has illegal type '$p->[0]'"
msgstr ""
msgid "Edit"
msgstr "Edieren"
msgid "<Image>/Filters/Enhance/2x2 Contrast Enhance"
msgstr ""
msgid ""
"$function: argument name '$p->[1]' contains illegal characters, only 0-9, a-z "
"and _ allowed"
msgstr ""
msgid "OK"
msgstr ""
msgid "illegal command received, aborting connection"
msgstr "Ungültige Anfrage empfange, Vebrindung abgebrochen"
msgid "<Image>/Layers/Layer to Image Size"
msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Cool Metal"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "(none)"
msgstr "(nichts ausgewählt)"

879
plug-ins/perl/po/gimp-perl.pot
View file

File diff suppressed because it is too large Load diff

2
plug-ins/perl/pxgettext
View file

@ -24,7 +24,7 @@ msgstr ""
EOF
while(<>) {
while (/__"((?:[^"\\]+|\\.)*)"/sg) {
while (/__\(?"((?:[^"\\]+|\\.)*)"\)?/sg) {
my $s = $1;
my $e = "\n";
if ($s =~ /\n/) {