Skip to content
GitLab
Commit 97ba2102 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 7439bd67
Hide whitespace changes
Inline Side-by-side
plug-ins/perl/Changes
View file @ 97ba2102
Revision history for Gimp-Perl extension.
1.20
- image types updated to reflect gimp's reality.
- updated perlotine.
1.19 Thu Jan 6 00:21:58 CET 2000
- used N_ to mark all the menu paths, since gimp now tries to
do the translation.
......
plug-ins/perl/Perl-Server
View file @ 97ba2102
......@@ -306,7 +306,7 @@ Gimp::on_query {
Gimp->install_procedure("extension_perl_server", "Start the Gimp-Perl Server",
"This is the server for plug-ins written using the Gimp::Net module",
"Marc Lehmann <pcg\@goof.com>", "Marc Lehmann", "1999-12-02",
N_"<Toolbox>/Xtns/Perl/Server", "*", &Gimp::PROC_EXTENSION,
N_"<Toolbox>/Xtns/Perl/Server", undef, &Gimp::PROC_EXTENSION,
[
[&Gimp::PARAM_INT32, "run_mode", "Interactive, [non-interactive]"],
[&Gimp::PARAM_INT32, "flags", "internal flags (must be 0)"],
......@@ -317,7 +317,7 @@ Gimp::on_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",
undef, "*" ,&Gimp::PROC_EXTENSION,
undef, 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"],
......@@ -327,7 +327,7 @@ Gimp::on_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",
undef, "*" ,&Gimp::PROC_EXTENSION,
undef, 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"],
......
plug-ins/perl/examples/Create_Images
View file @ 97ba2102
......@@ -96,7 +96,7 @@ sub extension_create_images {
sub query {
gimp_install_procedure("extension_create_images", "a test extension in perl",
"try it out", "Marc Lehmann", "Marc Lehmann", "1997-02-06",
N_"<Toolbox>/Xtns/Create_Images", "*", PROC_EXTENSION,
N_"<Toolbox>/Xtns/Create_Images", undef, PROC_EXTENSION,
[[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
}
......
plug-ins/perl/examples/bricks
View file @ 97ba2102
......@@ -125,7 +125,7 @@ register
"http://bloodgate.com",
"10/26/1999a",
N_"<Toolbox>/Xtns/Render/Bricks",
"*",
undef,
[
[PF_PATTERN, "background", "Brick pattern", "Leather"],
[PF_STRING, "highlight", "Second brick pattern for some highlightin (unused)", "unused yet"],
......
plug-ins/perl/examples/colorhtml
View file @ 97ba2102
......@@ -27,7 +27,7 @@ register "file_colorhtml_save",
"Marc Lehmann <pcg\@goof.com>",
"1999-11-22",
"<Save>/COLORHTML",
undef,
"*",
[
[PF_RADIO, "character_source", "where to take the characters from", 0,
[sourcecode => 0, textfile => 1, filename => 2]],
......
plug-ins/perl/examples/dataurl
View file @ 97ba2102
......@@ -23,7 +23,7 @@ register "file_dataurl_save",
"Marc Lehmann <pcg\@goof.com>",
"1999-11-20",
"<Save>/DATAURL",
undef,
"*",
[
[PF_SPINNER, "tile_x", "tile width", 32, [0, 8192, 1, 10]],
[PF_SPINNER, "tile_y", "tile height", 32, [0, 8192, 1, 10]],
......
plug-ins/perl/examples/example-oo
View file @ 97ba2102
......@@ -29,7 +29,7 @@ Gimp::on_run {
Gimp::on_query {
gimp_install_procedure("plug_in_example_oo", "a test plug-in in perl",
"try it out", "Marc Lehmann", "Marc Lehmann", "1998-04-27",
N_"<Toolbox>/Xtns/Perl Example Plug-in", "*", PROC_EXTENSION,
N_"<Toolbox>/Xtns/Perl Example Plug-in", undef, PROC_EXTENSION,
[[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
};
......
plug-ins/perl/examples/font_table
View file @ 97ba2102
......@@ -174,7 +174,7 @@ register
"Create a tabular index of fonts",
"Aaron Sherman", "Aaron Sherman (c)", "1999-03-16",
N_"<Toolbox>/Xtns/Render/Font Table",
"*",
undef,
[
[PF_STRING, "foundery", "Foundery (perl regex or \"*\")", "*"],
[PF_STRING, "family", "Family (perl regex or \"*\")", "*"],
......
plug-ins/perl/examples/goldenmean
View file @ 97ba2102
......@@ -33,7 +33,7 @@ register "golden_mean",
"Claes G Lindblad <claesg\@algonet.se>",
"990328",
N_"<Toolbox>/Xtns/Render/Golden Mean",
"*",
undef,
[
[PF_INT32, "short", "Shortest side", 233],
[PF_RADIO, "type", "Orientation", 0, [Portrait => 0, Landscape => 1]]
......
plug-ins/perl/examples/homepage-logo
View file @ 97ba2102
......@@ -139,7 +139,7 @@ sub extension_homepage_logo {
sub query {
gimp_install_procedure("extension_homepage_logo", "a test extension in perl",
"try it out", "Marc Lehmann", "Marc Lehmann", "1997-02-06",
N_"<Toolbox>/Xtns/Homepage-Logo", "*", PROC_EXTENSION,
N_"<Toolbox>/Xtns/Homepage-Logo", undef, PROC_EXTENSION,
[[PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
}
......
plug-ins/perl/examples/innerbevel
View file @ 97ba2102
......@@ -18,7 +18,7 @@ $path = N_"<Toolbox>/Xtns/Render/Logos/Inner Bevel";
$shortdesc = "Perform an inner bevel on text";
$longdesc = "This uses tigert's inner bevel method on text, which can be found with his other excellent tutorials at http://tigert.gimp.org/";
$date = "1999-03-23";
$imgtypes = "*";
$imgtypes = undef;
$author = "Seth Burgess <sjburges\@gimp.org>";
$path =~ m,/([^/]+)$,;
......
plug-ins/perl/examples/perlcc
View file @ 97ba2102
......@@ -152,7 +152,7 @@ Gimp::on_query {
Gimp->install_procedure("extension_perl_control_center", "the perl control center gives information about gimp-perl",
"The perl control center gives information about the status of gimp-perl and allows configuration of important system parameters",
"Marc Lehmann", "Marc Lehmann", $VERSION,
N_"<Toolbox>/Xtns/Perl/Control Center", "*", &Gimp::PROC_EXTENSION,
N_"<Toolbox>/Xtns/Perl/Control Center", undef, &Gimp::PROC_EXTENSION,
[[&Gimp::PARAM_INT32, "run_mode", "Interactive, [non-interactive]"]], []);
};
......
plug-ins/perl/examples/perlotine
View file @ 97ba2102
......@@ -15,9 +15,17 @@
# 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.
#
#
# <sjburges@gimp.org>
# Added changes to make progess bar work for images with only horizontal
# or vertical guides. This was fixed at one time, I forget who did that.
# Somehow it got broke again ;(
#
# Added File::Path; for making the directory if it doesn't already exist.
#
# If you have more additions, etc please don't hesitate to send them in!
use File::Path;
use Gimp;
use Gimp::Fu;
......@@ -170,7 +178,7 @@ register "perlotine",
#
Gimp->progress_init("Perl-o-Tine");
$progress_increment = 1/(scalar(@horz) * scalar(@vert));
$progress_increment = 1/( (scalar(@horz)+1) * (scalar(@vert)+1) );
$progress = 0.0;
# (Debugging info for the guide functions)
......@@ -193,8 +201,12 @@ register "perlotine",
}
if (!$separate) { $imgpath = ""; }
# create paths if they don't already exist
mkpath($savepath);
mkpath($savepath . $imgpath);
# open HTML file for writing
open FILE, ">$savepath$htmlname" or die "Couldn't open $savepath$filename: $!\n";
open FILE, ">$savepath$htmlname" or die "Couldn't open $savepath$htmlname: $!\n";
$top=0;
html_table_start(\*FILE,0,$cellspacing,0,$capatalize);
......
plug-ins/perl/examples/pixelmap
View file @ 97ba2102
......@@ -71,7 +71,7 @@ register "pixelgen",
"Marc Lehmann <pcg\@goof.com>",
"19991115",
N_"<Toolbox>/Xtns/Render/Pixelgenerator",
"*",
undef,
[
[PF_SPINNER, "width" , "The width of the new image to generate", 512, [1, 4096, 1]],
[PF_SPINNER, "height" , "The height of the new image to generate", 512, [1, 4096, 1]],
......
plug-ins/perl/examples/povray
View file @ 97ba2102
......@@ -27,7 +27,7 @@ register "povray_preferences_set",
"Marc Lehmann",
"19990803",
N_"<Toolbox>/Xtns/Render/Povray/Preferences",
"*",
undef,
[
[PF_FILE, "povray_path", "The path to the povray executable", "x-povray"],
[PF_STRING, "quality", "The quality setting (0..9, R)", "R"],
......
plug-ins/perl/examples/stamps
View file @ 97ba2102
......@@ -43,7 +43,7 @@ register "stamps",
"Claes G Lindblad <claesg\@algonet.se>",
"990314",
N_"<Toolbox>/Xtns/Render/Stamps",
"*",
undef,
[
[PF_INT32, "size", "img size", 90],
[PF_COLOR, "paper", "paper color", [255, 255, 255]],
......
plug-ins/perl/examples/yinyang
View file @ 97ba2102
......@@ -106,7 +106,7 @@ register("yinyang", "Render a stand-alone Yin/Yang image",
"Renders a black-and-white Yin/Yang symbol optionally
with \"eyes\" that may optionally be images.",
"Aaron Sherman", "(c) 1998, Aaron Sherman",
"1999b", N_"<Toolbox>/Xtns/Render/Yin-Yang", "*",
"1999b", N_"<Toolbox>/Xtns/Render/Yin-Yang", undef,
[
[PF_INT32, "width", "Width", 256],
[PF_INT32, "height", "Height", 256],
......
Supports Markdown
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