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-05-11 01:47:45 +00:00
parent dfd7efd7ed
commit 81fc7ec7fa
5 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plug-ins/perl/Changes
View File

@ -7,6 +7,7 @@ Revision history for Gimp-Perl extension.
- new module Gimp::Compat, which is loaded on demand. - new module Gimp::Compat, which is loaded on demand.
- gimp_text_fontname etc.. are now available in gimp-1.0 as well, - gimp_text_fontname etc.. are now available in gimp-1.0 as well,
re-enabled the scripts using it (and depending on 1.1 before). re-enabled the scripts using it (and depending on 1.1 before).
- allow negative "INT32's".
1.081 Thu May 6 19:33:37 CEST 1999 1.081 Thu May 6 19:33:37 CEST 1999
- added "oneliners". - added "oneliners".

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

@ -350,7 +350,7 @@ sub die_msg {
# this needs to be improved # this needs to be improved
sub quiet_die { sub quiet_die {
die "BE QUIET ABOUT THIS DIE\n"; die "IGNORE THIS MESSAGE\n";
} }
unless ($no_SIG) { unless ($no_SIG) {

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

@ -404,7 +404,7 @@ convert_array2paramdef (AV *av, GParamDef **res)
SV *type = 0; SV *type = 0;
SV *name = 0; SV *name = 0;
SV *help = 0; SV *help = 0;
if (SvROK (sv) && SvTYPE (SvRV (sv)) == SVt_PVAV) if (SvROK (sv) && SvTYPE (SvRV (sv)) == SVt_PVAV)
{ {
AV *av = (AV *)SvRV(sv); AV *av = (AV *)SvRV(sv);
@ -598,7 +598,8 @@ static int check_int (char *croak_str, SV *sv)
if (*p if (*p
&& *p != '0' && *p != '1' && *p != '2' && *p != '3' && *p != '4' && *p != '0' && *p != '1' && *p != '2' && *p != '3' && *p != '4'
&& *p != '5' && *p != '6' && *p != '7' && *p != '8' && *p != '9') && *p != '5' && *p != '6' && *p != '7' && *p != '8' && *p != '9'
&& *p != '-')
{ {
sprintf (croak_str, "Expected an INT32 but got '%s'. Add '*1' if you really intend to pass in a string", p); sprintf (croak_str, "Expected an INT32 but got '%s'. Add '*1' if you really intend to pass in a string", p);
check_for_typoe (croak_str, p); check_for_typoe (croak_str, p);
@ -969,7 +970,7 @@ static void pii_run(char *name, int nparams, GParam *param, int *xnreturn_vals,
if (SvTRUE (ERRSV)) if (SvTRUE (ERRSV))
{ {
if (strEQ ("BE QUIET ABOUT THIS DIE\n", SvPV (ERRSV, dc))) if (strEQ ("IGNORE THIS MESSAGE\n", SvPV (ERRSV, dc)))
{ {
nreturn_vals = 0; nreturn_vals = 0;
return_vals = g_new (GParam, 1); return_vals = g_new (GParam, 1);

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

@ -253,7 +253,7 @@ sub gimp_main {
gimp_init; gimp_init;
no strict 'refs'; no strict 'refs';
eval { Gimp::callback("-net") }; eval { Gimp::callback("-net") };
if($@ && $@ ne "BE QUIET ABOUT THIS DIE\n") { if($@ && $@ ne "IGNORE THIS MESSAGE\n") {
Gimp::logger(message => substr($@,0,-1), fatal => 1, function => 'DIE'); Gimp::logger(message => substr($@,0,-1), fatal => 1, function => 'DIE');
gimp_end; gimp_end;
-1; -1;

7
plug-ins/perl/examples/terral_text
View File

@ -53,6 +53,13 @@ sub {
$oldbg = gimp_palette_get_background(); $oldbg = gimp_palette_get_background();
$oldfg = gimp_palette_get_foreground(); $oldfg = gimp_palette_get_foreground();
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,
[[0, "run_mode", "desc"]],
[]);
if ($solidnoise) { if ($solidnoise) {