Commit 16041ddb authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 339391cd
......@@ -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)
{
......
......@@ -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"],
......
......@@ -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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment