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-03-04 22:54:29 +00:00
parent 61a6b7d1fc
commit 62f41ebf05
4 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plug-ins/perl/Changes
View File

@ -18,6 +18,9 @@ Revision history for Gimp-Perl extension.
- applied Perl-Server reuseaddress fix by gphan@webjuice.com. - applied Perl-Server reuseaddress fix by gphan@webjuice.com.
- corrected the libintl fix to really work. - corrected the libintl fix to really work.
- added fr and ru translations. - added fr and ru translations.
- experimental 5.6 thread compatibility improvements.
- corrected menu hiliting problem in firetext and glowing_steel.
- add a call to gimp_plugin_add_domain to Lib.xs.
1.19 Thu Jan 6 00:21:58 CET 2000 1.19 Thu Jan 6 00:21:58 CET 2000
- used N_ to mark all the menu paths, since gimp now tries to - used N_ to mark all the menu paths, since gimp now tries to

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

@ -33,6 +33,10 @@
#include "XSUB.h" #include "XSUB.h"
#include "gppport.h" #include "gppport.h"
#ifndef pTHX_
#define pTHX_
#endif
#include "../perl-intl.h" #include "../perl-intl.h"
/* dirty is used in gimp.h AND in perl < 5.005 or with PERL_POLLUTE. */ /* dirty is used in gimp.h AND in perl < 5.005 or with PERL_POLLUTE. */
@ -188,7 +192,7 @@ static SV *newSVn (STRLEN len)
static GHashTable *gdrawable_cache; static GHashTable *gdrawable_cache;
/* magic stuff. literally. */ /* magic stuff. literally. */
static int gdrawable_free (SV *obj, MAGIC *mg) static int gdrawable_free (pTHX_ SV *obj, MAGIC *mg)
{ {
GDrawable *gdr = (GDrawable *)SvIV(obj); GDrawable *gdr = (GDrawable *)SvIV(obj);
@ -265,7 +269,7 @@ static GTile *old_tile (SV *sv)
} }
/* magic stuff. literally. */ /* magic stuff. literally. */
static int gpixelrgn_free (SV *obj, MAGIC *mg) static int gpixelrgn_free (pTHX_ SV *obj, MAGIC *mg)
{ {
/* GPixelRgn *pr = (GPixelRgn *)SvPV_nolen(obj); */ /* GPixelRgn *pr = (GPixelRgn *)SvPV_nolen(obj); */
/* automatically done on detach */ /* automatically done on detach */
@ -2211,6 +2215,10 @@ gimp_pixel_rgn_data(...)
BOOT: BOOT:
trace_file = PerlIO_stderr (); trace_file = PerlIO_stderr ();
#if GIMP_CHECK_VERSION(1,1,17)
gimp_plugin_add_domain ("gimp-perl", datadir "/locale");
#endif
# #
# this function overrides a pdb function for speed # this function overrides a pdb function for speed

2
plug-ins/perl/examples/fire
View File

@ -56,7 +56,7 @@ register "firetext",
"Marc Lehmann", "Marc Lehmann",
"19990802", "19990802",
N_"<Toolbox>/Xtns/Render/Logos/Firetext", N_"<Toolbox>/Xtns/Render/Logos/Firetext",
"*", undef,
[ [
[PF_TEXT, "text", "The text to render (can be multi-line)", "burn,\nBurn,\nBURN!"], [PF_TEXT, "text", "The text to render (can be multi-line)", "burn,\nBurn,\nBURN!"],
[PF_FONT, "font", "The font to use"], [PF_FONT, "font", "The font to use"],

2
plug-ins/perl/examples/glowing_steel
View File

@ -307,7 +307,7 @@ register
"film \"Lost In Space\".", "film \"Lost In Space\".",
"Aaron Sherman", "Aaron Sherman (c)", "1999-06-14", "Aaron Sherman", "Aaron Sherman (c)", "1999-06-14",
N_"<Toolbox>/Xtns/Render/Logos/Glowing Steel", N_"<Toolbox>/Xtns/Render/Logos/Glowing Steel",
"*", undef,
[ [
[PF_STRING, "string", "string", "GET LOST"], [PF_STRING, "string", "string", "GET LOST"],
# The font in the poster was like "cobalt extended" # The font in the poster was like "cobalt extended"