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-08-25 16:45:58 +00:00
parent 733ae45c79
commit 5b7e6e0521
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plug-ins/perl/Changes
View File

@ -8,6 +8,7 @@ Revision history for Gimp-Perl extension.
the new names would have a GIMP_ prefix).
- updated to new commandline options.
- updated enums.pl (And therefore, enumerations).
- applied 5.004 compatibility patch by artie@kmfms.com.
1.201 Thu Aug 24 23:44:43 CEST 2000
** LAST VERSION THAT WORKS WITH 1.0 **

3
plug-ins/perl/examples/frame_filter
View File

@ -32,7 +32,8 @@ register "layer_apply",
# now apply the function
eval { $image->undo_push_group_start };
Gimp->progress_init("Applying Expression...");
# 5.004 has problems with overlaying functions
Gimp->progress_init("Applying Expression...",-1);
for my $index (0..$n-1) {
$i = $index;
$I = $n-$i-1;

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

@ -1,4 +1,4 @@
#!/usr/app/bin/perl
#!/usr/bin/perl
use Gimp qw(:auto __ N_);
use Gimp::Fu;
@ -289,7 +289,7 @@ register "perl_fu_carved_logo",
[PF_STRING, 'text_string', "Text String", "Marble"],
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [100, 2, 1000, 1, 10, 0, 1]],
[PF_FONT, 'font', "Font", "-*-Engraver-*-r-*-*-24-*-*-*-p-*-*-*"],
[PF_FILE, 'background_img', "Background Img", "".'/usr/local/share/gimp'."/scripts/texture3.jpg"],
[PF_FILE, 'background_img', "Background Img", "".'/usr/local/share/gimp/1.1'."/scripts/texture3.jpg"],
[PF_TOGGLE, 'carve_raised_text',"Carve Raised Text", 0],
],
\&script_fu_carved_logo;
@ -511,8 +511,8 @@ register "perl_fu_crystal_logo",
[PF_STRING, 'text_string', "Text String", "Crystal"],
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [150, 2, 1000, 1, 10, 0, 1]],
[PF_FONT, 'font', "Font", "-*-Engraver-*-r-*-*-24-*-*-*-p-*-*-*"],
[PF_FILE, 'background_img', "Background Img", "".'/usr/local/share/gimp'."/scripts/texture1.jpg"],
[PF_FILE, 'environment_map', "Environment Map", "".'/usr/local/share/gimp'."/scripts/beavis.jpg"],
[PF_FILE, 'background_img', "Background Img", "".'/usr/local/share/gimp/1.1'."/scripts/texture1.jpg"],
[PF_FILE, 'environment_map', "Environment Map", "".'/usr/local/share/gimp/1.1'."/scripts/beavis.jpg"],
],
\&script_fu_crystal_logo;
@ -863,7 +863,7 @@ register "perl_fu_sota_chrome_logo",
[PF_STRING, 'text_string', "Text String", "The GIMP"],
[PF_ADJUSTMENT,'font_size_pixels', "Font Size (pixels)", [150, 2, 1000, 1, 10, 0, 1]],
[PF_FONT, 'font', "Font", "-*-RoostHeavy-*-r-*-*-24-*-*-*-p-*-*-*"],
[PF_FILE, 'environment_map', "Environment Map", "".'/usr/local/share/gimp'."/scripts/beavis.jpg"],
[PF_FILE, 'environment_map', "Environment Map", "".'/usr/local/share/gimp/1.1'."/scripts/beavis.jpg"],
[PF_COLOUR, 'highlight_balance',"Highlight Balance", [211, 95, 0]],
[PF_COLOUR, 'chrome_balance', "Chrome Balance", [0, 0, 0]],
],