dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-11-26 01:10:30 +00:00
parent 19ca12e661
commit 81b0e8e73b
7 changed files with 57 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Changes
View File

@ -1,9 +1,11 @@
Revision history for Gimp-Perl extension.
1.17
1.17 Wed Nov 24 21:25:19 CET 1999
- re-fitted i18n translation for most plug-ins.
- intllibs linking bugfix.
- half-hearted attempt to i18nize logulator.
- preliminary support for N_ (this function should
not be necessary in perl).
1.16 Sun Nov 21 02:37:16 CET 1999
- removed sethspin.pl & billboard, they are no longer maintained :(

5
plug-ins/perl/Gimp.pm
View File

@ -127,7 +127,7 @@ sub croak {
goto &Carp::croak;
}
my @_procs = ('main', 'xlfd_size', '__');
my @_procs = ('main', 'xlfd_size', '__', 'N_');
my @_default = (@_procs, ':consts' ,':_auto2');
# we really abuse the import facility..
@ -187,6 +187,9 @@ sub xlfd_size($) {
: ($pt,&Gimp::POINTS);
}
# the identity function
sub N_($) { shift }
my @init_functions;
sub gtk_init() {

22
plug-ins/perl/examples/perlotine
View File

@ -1,7 +1,4 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
# <sjburges@gimp.org>
# This is tigert's request. I suppose it'll be useful to those that do
# this sort of thing. Personally I'll probably only run it to test and
@ -11,12 +8,6 @@ eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
#
# Bruce Miller (fixed to accomdate 1.1.x changes)
# Brendon and Wendy Humphrey <brendy@swipnet.se> (progress bar, nice comments)
#
# Tuomas Kuosmanen <tigert@gimp.org>
# Fixed some things to make this work with cvs gimp. Fixed calls to
# gimp_get_guide_orientation() (guide types that changed from
# GUIDE_VERTICAL to VERTICAL and horizontal, respectively. Should
# work now). Also convert to indexed parameters changed, fixed them too.
#
# If you have more additions, etc please don't hesitate to send them in!
@ -37,7 +28,7 @@ sub get_vguides {
$i=0;
my @vguides;
while ($i=$img->find_next_guide($i)) {
if ($img->get_guide_orientation($i) == &Gimp::VERTICAL){
if ($img->get_guide_orientation($i) == &Gimp::VERTICAL_GUIDE){
$keyval = sprintf("%4d", $img->get_guide_position($i));
$vkeys{$keyval} = $i;
}
@ -58,7 +49,7 @@ sub get_hguides {
$i=0;
my @hguides;
while ($i=$img->find_next_guide($i)) {
if ($img->get_guide_orientation($i) == &Gimp::HORIZONTAL){
if ($img->get_guide_orientation($i) == &Gimp::HORIZONTAL_GUIDE){
$keyval = sprintf("%4d", $img->get_guide_position($i));
$hkeys{$keyval} = $i;
}
@ -82,12 +73,9 @@ sub dosel {
# print "Cropping from $l to $r, $t to $b\n";
$tmpimg->crop($r-$l, $b-$t, $l, $t);
$tmplay = $tmpimg->active_drawable;
if (! $tmplay->is_indexed) {
# do this: fs/low-bleed dither, make palette, 256 colors,
# dont dither alpha, do remove unused (is 1 "true" here?),
# custom palette is ignored (we create our own, thus "duck" works).
$tmpimg->convert_indexed (2,0,256,0,1,duck)
}
if (! $tmplay->indexed) {
$tmpimg->convert_indexed(1,256);
}
$tmpimg->gimp_file_save(-1,"$savepath$imgpath$imgname","$savepath$imgpath$imgname");
$tmpimg->delete;
return "$imgpath$imgname"; # what I want printed in html

5
plug-ins/perl/examples/prep4gif.pl
View File

@ -1,8 +1,5 @@
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use Gimp qw(:auto);
use Gimp::Fu;
@ -98,7 +95,7 @@ register
"Seth Burgess",
"Seth Burgess <sjburges\@gimp.org>",
"2-15-98",
__"<Image>/Filters/Misc/Prepare for GIF",
__"<Image>/Filters/Web/Prepare for GIF",
"RGB*",
[
[PF_INT32, "lower_threshold", "Lower Alpha Threshold", 64],

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/Web/Webify",
"RGB*, GRAY*",
[
[PF_BOOL, "new", "create a new image?", 1],

84
plug-ins/perl/po/de.po
View File

@ -39,25 +39,25 @@ msgid "illegal parasite specification, expected three array members"
msgstr ""
msgid "<Toolbox>/Xtns/Render/Golden Mean"
msgstr "<Toolbox>/Xtns/Erzeuge/Goldener Schnitt"
msgstr "<Toolbox>/Xtn/Erzeuge/Goldener Schnitt"
msgid "Last Modified"
msgstr "Zuletzt verändert"
msgid "<Toolbox>/Xtns/Visual Scriptor"
msgstr "<Toolbox>/Xtns/Visual Scriptor"
msgstr "<Toolbox>/Xtn/Visual Scriptor"
msgid "<Toolbox>/Xtns/Render/Logos/Firetext"
msgstr "<Toolbox>/Xtns/Erzeuge/Logo/Feuerlogo"
msgstr "<Toolbox>/Xtn/Erzeuge/Logo/Feuerlogo"
msgid "unable to read '$fn': $!"
msgstr ""
msgid "<Toolbox>/Xtns/Render/Povray/Texture"
msgstr "<Toolbox>/Xtns/Render/Povray/Textur"
msgstr "<Toolbox>/Xtn/Render/Povray/Textur"
msgid "<Toolbox>/Xtns/Render/Povray/Preferences"
msgstr "<Toolbox>/Xtns/Erzeuge/Povray/Einstellungen"
msgstr "<Toolbox>/Xtn/Erzeuge/Povray/Einstellungen"
msgid "Unable to read temporary image tile $tmp: $!"
msgstr ""
@ -70,7 +70,7 @@ msgid "Font Selection Dialog ($desc)"
msgstr "Schirftartenauswahl ($desc)"
msgid "<Toolbox>/Xtns/Render/Pixelgenerator"
msgstr "<Toolbox>/Xtns/Erzeuge/Pixelgenerator"
msgstr "<Toolbox>/Xtn/Erzeuge/Pixelgenerator"
msgid "xlfd_unpack: unmatched XLFD '$fontname'\n"
msgstr ""
@ -307,7 +307,7 @@ msgstr ""
"Menüpfad _muß_ mit <Image>, <Toolbox>, <Load>, <Save> oder <None> anfangen!"
msgid "<Toolbox>/Xtns/Perl/Server"
msgstr "<Toolbox>/Xtns/Perl/Server"
msgstr "<Toolbox>/Xtn/Perl/Server"
msgid "accepted unix connection"
msgstr "Unix-Verbindung angenommen"
@ -388,7 +388,7 @@ msgstr "Konnte Referenz auf Typ '%s' nicht konvertieren"
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Logos/Inner Bevel"
msgstr "<Toolbox>/Xtns/Erzeuge/Logo/Feuerlogo"
msgstr "<Toolbox>/Xtn/Erzeuge/Logo/Feuerlogo"
#, fuzzy
msgid "<Image>/Filters/Render/Random Blends"
@ -423,7 +423,7 @@ msgid "<Image>/Filters/Render/Terral Text"
msgstr "<Image>/Filter/Render/Terraltext"
msgid "<Toolbox>/Xtns/PDB Explorer"
msgstr "<Toolbox>/Xtns/PDB-Buch"
msgstr "<Toolbox>/Xtn/PDB-Buch"
msgid "<Toolbox>/Xtns/Create_Images"
msgstr "<Toolbox>/Xtns/Create_Images"
@ -479,7 +479,7 @@ msgstr "Auf Standardwerte zur
#, fuzzy
msgid "<Toolbox>/Xtns/Gimp::Fu Example"
msgstr "<Toolbox>/Xtns/PDB-Buch"
msgstr "<Toolbox>/Xtn/PDB-Buch"
msgid ""
"Usage: $0 [gimp-args..] [interface-args..] [script-args..]\n"
@ -527,7 +527,7 @@ msgid "Cannot call '$AUTOLOAD' at this time"
msgstr ""
msgid "<Toolbox>/Xtns/Render/Yin-Yang"
msgstr "<Toolbox>/Xtns/Erzeuge/Yin-Yang"
msgstr "<Toolbox>/Xtn/Erzeuge/Yin-Yang"
msgid "arguments to main not yet supported!"
msgstr ""
@ -554,7 +554,7 @@ msgid "get current background colour from the gimp"
msgstr "Übernehme die aktuelle Hintergrundfarbe von Gimp"
msgid "<Toolbox>/Xtns/Render/Font Table"
msgstr "<Toolbox>/Xtns/Erzeuge/Fonttabelle"
msgstr "<Toolbox>/Xtn/Erzeuge/Fonttabelle"
msgid ""
"Internal error: asked to deobjectify an object not in the cache, please report!"
@ -584,7 +584,7 @@ msgid "<Image>/Filters/Distorts/MirrorSplit"
msgstr "<Image>/Filter/"
msgid "<Toolbox>/Xtns/Animation/Billboard"
msgstr "<Toolbox>/Xtns/Animation/Billboard"
msgstr "<Toolbox>/Xtn/Animation/Billboard"
msgid "<Image>/Filters/Misc/Border Average"
msgstr "<Image>/Filter/Verschiedenes/Rahmenfarbe"
@ -626,7 +626,7 @@ msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Render/Bricks"
msgstr "<Toolbox>/Xtns/Erzeuge/Yin-Yang"
msgstr "<Toolbox>/Xtn/Erzeuge/Yin-Yang"
msgid "WARNING: client disconnected while holding an active lock\n"
msgstr ""
@ -669,7 +669,7 @@ msgid "Save"
msgstr "Speichern"
msgid "<Toolbox>/Xtns/Perl/Control Center"
msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
msgid "Function Info"
msgstr "Mehr Info"
@ -735,7 +735,7 @@ msgstr "[abgebrochen]\n"
#, fuzzy
msgid "<Toolbox>/Xtns/Homepage-Logo"
msgstr "<Toolbox>/Xtns/Homepagelogo"
msgstr "<Toolbox>/Xtn/Homepagelogo"
msgid "Date/Version"
msgstr "Datum/Version"
@ -773,7 +773,7 @@ msgstr ""
#, fuzzy
msgid "<Toolbox>/Xtns/Perl Example Plug-in"
msgstr "<Toolbox>/Xtns/PDB-Buch"
msgstr "<Toolbox>/Xtn/PDB-Buch"
msgid "unable to accept unix connection: $!\n"
msgstr "Konnte Unix-Verbindung nicht annehmen: $!\n"
@ -834,7 +834,7 @@ msgid " = [argument error]\n"
msgstr " = [Argumentfehler]\n"
msgid "<Toolbox>/Xtns/"
msgstr "<Toolbox>/Xtns/"
msgstr "<Toolbox>/Xtn/"
msgid "plug-in returned %d more values than expected"
msgstr ""
@ -861,52 +861,52 @@ msgid "not enough"
msgstr "nicht genügend"
msgid "<Toolbox>/Xtns/Perl-Fu/Logos/3D Outline"
msgstr "<Toolbox>/Xtns/Erzeuge/Logo/3D Outline"
msgstr "<Toolbox>/Xtn/Erzeuge/Logo/3D Outline"
msgid "accepting connections on $unix_path"
msgstr "Akzeptiere Verbindungen auf $unix_path"
#~ msgid "<Toolbox>/Xtns/Animation/Seth Spin"
#~ msgstr "<Toolbox>/Xtns/Animation/Seth's Dreher"
#~ msgstr "<Toolbox>/Xtn/Animation/Seth's Dreher"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Speed text"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Glossy"
#~ msgstr "<Toolbox>/Xtns/Perl-Fu/Logos/Glossy"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Crystal"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Carved"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Bovination"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Frosty"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Chrome"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Neon"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Textured"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Chalk"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace"
#~ msgstr "<Toolbox>/Xtns/Perl-Fu/Logos/Particle Trace"
@ -916,52 +916,52 @@ msgstr "Akzeptiere Verbindungen auf $unix_path"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Comic Book"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Starscape"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Newsprint text"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Gradient Bevel"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Blended"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Basic I"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Glowing Hot"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Starburst"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Alien Glow"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Basic II"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Imigre-26"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/SOTA Chrome"
#~ msgstr "<Toolbox>/Xtns/Perl/Server"
#~ msgstr "<Toolbox>/Xtn/Perl/Server"
#, fuzzy
#~ msgid "<Toolbox>/Xtns/Perl-Fu/Logos/Cool Metal"
#~ msgstr "<Toolbox>/Xtns/Perl/Kontrollcenter"
#~ msgstr "<Toolbox>/Xtn/Perl/Kontrollcenter"

2
plug-ins/perl/pxgettext
View File

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