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-07-11 13:32:58 +00:00
parent 339391cd4e
commit 16041ddbd4
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -895,7 +895,7 @@ push_gimp_sv (GParam *arg, int array_as_ref)
PUTBACK;
}
#define SvPv(sv) SvPV_nolen(sv)
#define SvPv(sv) (SvOK(sv) ? SvPV_nolen(sv) : NULL)
#define Sv32(sv) unbless ((sv), PKG_ANY, croak_str)
#define av2gimp(arg,sv,datatype,type,svxv) { \
@ -1612,14 +1612,14 @@ gimp_call_procedure (proc_name, ...)
}
void
gimp_install_procedure(name, blurb, help, author, copyright, date, menu_path, image_types, type, params, return_vals)
gimp_install_procedure(name, blurb, help, author, copyright, date, menu_path_sv, image_types, type, params, return_vals)
char * name
char * blurb
char * help
char * author
char * copyright
char * date
char * menu_path
SV * menu_path_sv
char * image_types
int type
SV * params
@ -1628,6 +1628,8 @@ gimp_install_procedure(name, blurb, help, author, copyright, date, menu_path, im
gimp_install_temp_proc = 1
CODE:
{
char *menu_path = SvPv (menu_path_sv);
if (SvROK(params) && SvTYPE(SvRV(params)) == SVt_PVAV
&& SvROK(return_vals) && SvTYPE(SvRV(return_vals)) == SVt_PVAV)
{

4
plug-ins/perl/Perl-Server
View File

@ -315,7 +315,7 @@ sub query {
"Plug-ins should register their custom constants using this function, so".
"other plug-ins (notably script-languages) can access these using symbolic names",
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-07-07",
"<None>", "*",&Gimp::PROC_EXTENSION,
undef, "*",&Gimp::PROC_EXTENSION,
[
[&Gimp::PARAM_STRING, "procedure", "The name of the function that uses this constant"],
[&Gimp::PARAM_STRING, "arg_num", "The name of the argument that this constant is used for"],
@ -325,7 +325,7 @@ sub query {
Gimp->install_procedure("gimp_procedural_db_set_default", "Set the default value for a plug-in argument",
"Plug-ins should register default values for their arguments",
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-07-07",
"<None>", "*",&Gimp::PROC_EXTENSION,
undef, "*",&Gimp::PROC_EXTENSION,
[
[&Gimp::PARAM_STRING, "procedure", "The name of the function that uses this constant"],
[&Gimp::PARAM_STRING, "arg_num", "The name of the argument that this constant is used for"],

3
plug-ins/perl/examples/scratches.pl
View File

@ -13,7 +13,8 @@ sub new_scratchlayer {
$layer->fill (WHITE_IMAGE_FILL);
$layer->noisify (0, 1, 1, 1, 0);
$layer->mblur (0, $length, $angle);
$layer->levels (VALUE_LUT, 120, 255, $gamma, 0, 255);
#$layer->levels (VALUE_LUT, 120, 255, $gamma, 0, 255);
$layer->levels (VALUE_LUT, 120, 255, 0.3, 0, 255);
$layer;
}