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 2000-02-03 00:58:15 +00:00
parent 77fc62a1dc
commit 2d5c7c01de
7 changed files with 871 additions and 829 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -328,7 +328,7 @@ sub _initialized_callback {
require Gimp::Compat;
$compat_gimp_version[0] == $Gimp::Compat::max_gimp_version[0]
&& $compat_gimp_version[1] == $Gimp::Compat::max_gimp_version[1]
or die __"FATAL: Gimp::Compat version mismatch\n";
or die "FATAL: Gimp::Compat version mismatch\n";
}
}
if (@log) {
@ -984,7 +984,7 @@ integers>, rather than blessed objects.
=item gimp_drawable_bounds drawable/gdrawable
Returns an array (0,0,w,h) containing the upper left corner and the
Returns an array (x,y,w,h) containing the upper left corner and the
size of currently selected parts of the drawable, just as needed by
PixelRgn->new and similar functions.

6
plug-ins/perl/Gimp/Lib.xs
View File

@ -1338,7 +1338,7 @@ gimp_main(...)
argc++;
}
else
croak (__("internal error (please report): too many main arguments"));
croak ("internal error (please report): too many arguments to main");
}
else
croak (__("arguments to main not yet supported!"));
@ -1584,10 +1584,10 @@ gimp_call_procedure (proc_name, ...)
SPAGAIN;
}
else
sprintf (croak_str, __("unsupported status code: %d, fatal error\n"), values[0].data.d_status);
sprintf (croak_str, "unsupported status code: %d, fatal error\n", values[0].data.d_status);
}
else
sprintf (croak_str, __("gimp didn't return an execution status, fatal error"));
sprintf (croak_str, "gimp didn't return an execution status, fatal error");
}

4
plug-ins/perl/Gimp/PDL.pm
View File

@ -1,8 +1,6 @@
package Gimp::PDL;
use Gimp ('__');
warn __"use'ing Gimp::PDL is no longer necessary, please remove it!\n";
warn "use'ing Gimp::PDL is no longer necessary, please remove it!\n";
1;
__END__

1
plug-ins/perl/MANIFEST
View File

@ -130,7 +130,6 @@ examples/billboard
examples/blended2
pxgettext
po/ChangeLog
po/gimp-perl.pot
po/de.po
po/it.po
po/cs.po

12
plug-ins/perl/Net/Net.xs
View File

@ -71,10 +71,10 @@ static void destroy_object (SV *sv)
hv_delete (object_cache, (char *)&id, sizeof(id), G_DISCARD);
}
else
croak (__("Internal error: Gimp::Net #101, please report!"));
croak ("Internal error: Gimp::Net #101, please report!");
}
else
croak (__("Internal error: Gimp::Net #100, please report!"));
croak ("Internal error: Gimp::Net #100, please report!");
}
/* allocate this much as initial length */
@ -135,7 +135,7 @@ static void sv2net (int deobjectify, SV *s, SV *sv)
else if (SvTYPE(rv) == SVt_PVMG)
sv2net (deobjectify, s, rv);
else
croak (__("Internal error: unable to convert reference in sv2net, please report!"));
croak ("Internal error: unable to convert reference in sv2net, please report!");
}
else if (SvOK(sv))
{
@ -190,7 +190,7 @@ static SV *net2sv (int objectify, char **_s)
case 'b':
sscanf (s, "%x:%n", &ui, &n); s += n;
if (ui >= sizeof str)
croak (__("Internal error: stashname too long, please report!"));
croak ("Internal error: stashname too long, please report!");
memcpy (str, s, ui); s += ui;
str[ui] = 0;
@ -204,7 +204,7 @@ static SV *net2sv (int objectify, char **_s)
cv = hv_fetch (object_cache, (char *)(id=l,&id), sizeof(id), 0);
if (!cv)
croak (__("Internal error: asked to deobjectify an object not in the cache, please report!"));
croak ("Internal error: asked to deobjectify an object not in the cache, please report!");
sv = *cv;
SvREFCNT_inc (sv);
@ -225,7 +225,7 @@ static SV *net2sv (int objectify, char **_s)
break;
default:
croak (__("Internal error: unable to handle argtype '%c' in net2sv, please report!"), s[-1]);
croak ("Internal error: unable to handle argtype '%c' in net2sv, please report!", s[-1]);
}
*_s = s;

19
plug-ins/perl/examples/logulator
View File

@ -722,10 +722,10 @@ sub script_fu_chalk_logo {
gimp_image_add_layer ($img, $bg_layer, 1);
gimp_palette_set_background ($bg_color);
gimp_edit_fill ($bg_layer);
gimp_edit_clear ($text_layer);
gimp_palette_set_foreground ($chalk_color);
$float_layer = gimp_text_fontname ($img, $text_layer, 0, 0, $text, $border, 1, $size, PIXELS, $font);
gimp_floating_sel_anchor ($float_layer);
gimp_palette_set_background ($chalk_color);
gimp_selection_layer_alpha ($text_layer);
gimp_edit_fill ($text_layer);
gimp_selection_none ($img);
plug_in_gauss_rle ($img, $text_layer, 2.0, 1, 1);
plug_in_spread ($img, $text_layer, 5.0, 5.0);
plug_in_ripple ($img, $text_layer, 27, 2, 0, 0, 0, 1, 1);
@ -1350,14 +1350,15 @@ sub script_fu_frosty_logo {
my ($text, $size, $font, $bg_color) = @_;
do {
my $img = gimp_image_new (256, 256, RGB_IMAGE);
my $border = $size / 5;
my $border = $size / 7.5; # to avoid the ugly effect of the shadow, if the offset is excessive
my $text_layer = gimp_text_fontname ($img, -1, 0, 0, $text, $border * 2, 1, $size, PIXELS, $font);
my $width = gimp_drawable_width ($text_layer);
my $height = gimp_drawable_height ($text_layer);
my $text_layer_mask = gimp_layer_create_mask ($text_layer, BLACK_MASK);
my $sparkle_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Sparkle", 100, NORMAL_MODE);
my $matte_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Matte", 100, NORMAL_MODE);
my $shadow_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Shadow", 90, MULTIPLY_MODE);
# to soften a bit the shadow effect, set opacity to 70
my $shadow_layer = gimp_layer_new ($img, $width, $height, RGBA_IMAGE, "Shadow", 70, MULTIPLY_MODE);
my $bg_layer = gimp_layer_new ($img, $width, $height, RGB_IMAGE, "Background", 100, NORMAL_MODE);
my $selection = 0;
my $old_fg = gimp_palette_get_foreground ();
@ -1383,7 +1384,7 @@ sub script_fu_frosty_logo {
plug_in_noisify ($img, $sparkle_layer, 0, 0.2, 0.2, 0.2, 0.0);
plug_in_c_astretch ($img, $sparkle_layer);
gimp_selection_none ($img);
plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.45, min ($width, $height) / 2, 6, 15, 1.0, 1.0, 0.0, 0.0, 0, 0, 0, 0);
plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.45, min ($width, $height) / 2, 6, 15, 1.0, 0.0, 0.0, 0.0, 0, 0, 0, 0);
gimp_levels ($sparkle_layer, 1, 0, 255, 0.2, 0, 255);
gimp_levels ($sparkle_layer, 2, 0, 255, 0.7, 0, 255);
gimp_selection_layer_alpha ($sparkle_layer);
@ -2561,7 +2562,7 @@ sub script_fu_t_o_p_logo {
gimp_selection_border ($img, $edge_size);
plug_in_noisify ($img, $sparkle_layer, 0, $hit_rate, $hit_rate, $hit_rate, 0.0);
gimp_selection_none ($img);
plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.45, $width, 6, 15, 1.0, 1.0, 0.0, 0.0, 0, 0, 0, 0);
plug_in_sparkle ($img, $sparkle_layer, 0.03, 0.49, $width, 6, 15, 1.0, 0.0, 0.0, 0.0, 0, 0, 0, 0);
gimp_selection_load ($selection);
gimp_selection_shrink ($img, $edge_size);
gimp_levels ($sparkle_layer, 0, 0, 255, 1.2, 0, 255);
@ -2617,7 +2618,7 @@ register "perl_fu_t_o_p_logo",
[PF_STRING, 'text_string', "Text String", "The GIMP"],
[PF_ADJUSTMENT,'font_size_pixels',"Font size (in pixels)", [100, 1, 1000, 1, 10, 0, 1]],
[PF_FONT, 'font', "Font", "-*-becker-*-r-*-*-24-*-*-*-p-*-*-*"],
[PF_ADJUSTMENT,'hit_rate', "Hit Rate [0.0,1.0]", [0.2, 0, 1, .01, .01, 2, 0]],
[PF_ADJUSTMENT,'hit_rate', "Hit Rate [0.0,1.0]", [0.2, 0, 1, .01, .01, 0, 0]],
[PF_ADJUSTMENT,'edge_width', "Edge Width", [2, 0, 128, 1, 1, 0, 0]],
[PF_TOGGLE, 'edge_only', "Edge Only?", 0],
[PF_COLOUR, 'base_color', "Base Color", [0, 40, 0]],

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

File diff suppressed because it is too large Load Diff