mirror of
https://gitlab.gnome.org/GNOME/gimp
synced 2024-10-20 19:43:01 +00:00
see plug-ins/perl/Changes
This commit is contained in:
Marc Lehmann
parent
2a2070b2e3
commit
b04bbd9a74
|
|
@ -9,6 +9,10 @@ Revision history for Gimp-Perl extension.
|
|||
- updated to new commandline options.
|
||||
- updated enums.pl (And therefore, enumerations).
|
||||
- applied 5.004 compatibility patch by artie@kmfms.com.
|
||||
- applied glow_steel gradient patch by Michael Fowler
|
||||
<michael@shoebox.net>.
|
||||
- removed gimp_proc_db_proc_info from xs code in favour
|
||||
of the PDB call.
|
||||
|
||||
1.201 Thu Aug 24 23:44:43 CEST 2000
|
||||
** LAST VERSION THAT WORKS WITH 1.0 **
|
||||
|
|
|
|||
|
|
@ -1425,6 +1425,8 @@ _gimp_procedure_available(proc_name)
|
|||
OUTPUT:
|
||||
RETVAL
|
||||
|
||||
#if 0
|
||||
|
||||
# checks wether a gimp procedure exists
|
||||
void
|
||||
gimp_procedural_db_proc_info(proc_name)
|
||||
|
|
@ -1461,6 +1463,8 @@ gimp_procedural_db_proc_info(proc_name)
|
|||
}
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
void
|
||||
gimp_call_procedure (proc_name, ...)
|
||||
char * proc_name
|
||||
|
|
|
|||
|
|
@ -171,7 +171,7 @@ sub MY::install {
|
|||
my $install = $self->SUPER::install(@_);
|
||||
($install =~ s/\b(un)?install\b/really-$1install/g) or return $install;
|
||||
'
|
||||
install ::
|
||||
install :: install-po
|
||||
@for dir in \
|
||||
$(INSTALLPRIVLIB) \
|
||||
$(INSTALLARCHLIB) \
|
||||
|
|
@ -192,6 +192,9 @@ install ::
|
|||
$(MAKE) really-install install-plugins'."
|
||||
$main::dont_embed || (cd embed && \$(MAKE) install)
|
||||
|
||||
install-po:
|
||||
cd po && \$(MAKE) install-po
|
||||
|
||||
".$install;
|
||||
}
|
||||
|
||||
|
|
@ -261,7 +264,7 @@ setver:
|
|||
}
|
||||
|
||||
$GIMP_INC_NOUI = "-I../../ $GIMP_INC_NOUI" if $IN_GIMP;
|
||||
@DIRS= qw/Gimp Net UI/;
|
||||
@DIRS= qw/Gimp Net UI po/;
|
||||
|
||||
$build_module = $IN_GIMP || $ENV{GIMP_PERL_MODULE_INC};
|
||||
# temporarily disabled because of politics
|
||||
|
|
|
|||
|
|
@ -172,7 +172,9 @@ sub set_current_function {
|
|||
$imagetypes_label->set($imagetypes);
|
||||
$last_modified_label->set(strftime("%Y-%m-%d %H:%M:%S (%Z)", localtime ($mtime)));
|
||||
};
|
||||
}
|
||||
warn $@ if $@;
|
||||
};
|
||||
warn $@ if $@;
|
||||
}
|
||||
|
||||
sub set_clist {
|
||||
|
|
|
|||
|
|
@ -153,6 +153,8 @@ sub perl_fu_brushed_metal {
|
|||
my $drawable = shift;
|
||||
my $length = shift;
|
||||
my $angle = shift;
|
||||
my $use_gradient = shift;
|
||||
my $gradient = shift;
|
||||
|
||||
gimp_undo_push_group_start($image);
|
||||
|
||||
|
|
@ -182,8 +184,11 @@ sub perl_fu_brushed_metal {
|
|||
gimp_selection_none($image);
|
||||
|
||||
# Render the actual effect into our temporary layer
|
||||
plug_in_solid_noise($image, $templ, 0, 0, time(),
|
||||
1, 1.5, 2.5);
|
||||
plug_in_solid_noise($image, $templ, 0, 0, time(), 1, 1.5, 2.5);
|
||||
|
||||
perl_fu_map_to_gradient($image, $templ, $gradient)
|
||||
if $use_gradient && defined($gradient) && $gradient ne '';
|
||||
|
||||
gimp_brightness_contrast($templ, 50, 0);
|
||||
plug_in_noisify($image, $templ, 0, 0.3, 0.3, 0.3, 0);
|
||||
plug_in_mblur($image, $templ, 0, $length, $angle);
|
||||
|
|
@ -282,8 +287,10 @@ register
|
|||
N_"<Image>/Filters/Render/Brushed Metal...",
|
||||
"*",
|
||||
[
|
||||
[PF_SLIDER, "stroke_length", "Length", 25, [1, 100, 1]],
|
||||
[PF_SLIDER, "angle", "Angle (0-359)", 135, [0, 359, 1]]
|
||||
[PF_SLIDER, "stroke_length", "Length", 25, [1, 100, 1]],
|
||||
[PF_SLIDER, "angle", "Angle (0-359)", 135, [0, 359, 1]],
|
||||
[PF_BOOL, "use_gradient", "use the gradient specified below?", 0],
|
||||
[PF_GRADIENT, "gradient", "Default"],
|
||||
],
|
||||
\&perl_fu_brushed_metal;
|
||||
|
||||
|
|
|
|||
|
|
@ -1,24 +1,3 @@
|
|||
2000-09-28 Rodrigo Sancho Senosiain <ruy_ikari@bigfoot.com>
|
||||
|
||||
* es.po: updated spanish translation.
|
||||
|
||||
Wed Sep 27 22:35:38 CEST 2000 Stanislav Brabec <utx@penguin.cz>
|
||||
|
||||
* cs.po: Updated translation.
|
||||
|
||||
Sat Sep 2 23:39:24 CEST 2000 Stanislav Brabec <utx@penguin.cz>
|
||||
|
||||
* cs.po: Updated translation.
|
||||
|
||||
2000-08-27 Sven Neumann <sven@gimp.org>
|
||||
|
||||
Moved all po-files over to this place and migrated to
|
||||
standard build process.
|
||||
|
||||
Fri Aug 25 11:14:07 CEST 2000 Stanislav Brabec <utx@penguin.cz>
|
||||
|
||||
* cs.po: Updated translation.
|
||||
|
||||
2000-06-04 Valek Filippov <frob@df.ru>
|
||||
|
||||
* ru.po: Updated russian translation.
|
||||
|
|
|
|||
70
plug-ins/perl/po/Makefile.PL
Normal file
70
plug-ins/perl/po/Makefile.PL
Normal file
|
|
@ -0,0 +1,70 @@
|
|||
use ExtUtils::MakeMaker;
|
||||
|
||||
do '../config.pl';
|
||||
|
||||
print "Portable message objects...";
|
||||
if ($MSGFMT =~ /./ && $MSGFMT ne "no") {
|
||||
$alltarget = "update-gmo";
|
||||
for (<*.po>) {
|
||||
my ($po) = /(.*)\.po$/;
|
||||
print " $po";
|
||||
$install .= " @-\$(MKPATH) \$(datadir)/locale/$po/LC_MESSAGES\n".
|
||||
" -\$(CP) $po.gmo \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n".
|
||||
" @-\$(CHMOD) 644 \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n";
|
||||
$uninstall .= " \$(RM_F) \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n";
|
||||
$mofiles .= " $po.gmo";
|
||||
}
|
||||
} else {
|
||||
$alltarget = "";
|
||||
print " skipped";
|
||||
}
|
||||
print "\n";
|
||||
|
||||
WriteMakefile(
|
||||
NAME => 'i18n',
|
||||
macro => \%cfg,
|
||||
realclean => { FILES => "gimp-perl.pot" },
|
||||
clean => { FILES => "*.mo" },
|
||||
);
|
||||
|
||||
sub MY::postamble {
|
||||
<<XXX
|
||||
prefix = $prefix
|
||||
datadir = $datadir
|
||||
|
||||
%.gmo: %.po
|
||||
$MSGFMT -o \$*.gmo \$*.po
|
||||
|
||||
%.po: gimp-perl.pot
|
||||
-msgmerge -w 83 \$*.po gimp-perl.pot >\$*.po~
|
||||
-if cmp -s \$*.po~ \$*.po; then rm -f \$*.po~ ; else mv \$*.po~ \$*.po; fi
|
||||
|
||||
all :: $alltarget
|
||||
|
||||
update-gmo: $mofiles
|
||||
|
||||
update-po: update-pot
|
||||
$updatepo
|
||||
|
||||
gimp-perl.pot: update-pot
|
||||
|
||||
update-pot: force
|
||||
\$(PERL) ../pxgettext `find .. -type f -print | grep \'\\.pm\$\$\\|\\.xs\$\$\\|examples/\\|Perl-Server\'` > gimp-perl.pot~
|
||||
#if cmp -s gimp-perl.pot~ gimp-perl.pot; then rm -f gimp-perl.pot~ ; else mv gimp-perl.pot~ gimp-perl.pot; fi
|
||||
|
||||
force:
|
||||
|
||||
install :: install-po
|
||||
|
||||
uninstall :: uninstall-po
|
||||
|
||||
install-po ::
|
||||
$install
|
||||
|
||||
uninstall-po ::
|
||||
$uninstall
|
||||
|
||||
clean ::
|
||||
test -f Makefile || mv -f Makefile.old Makefile
|
||||
XXX
|
||||
}
|
||||
|
|
@ -1,39 +1,6 @@
|
|||
#!/bin/sh
|
||||
|
||||
PACKAGE="gimp-perl"
|
||||
test -f ../MANIFEST || exec echo "must be started in plug-ins/perl/po"
|
||||
|
||||
if [ "x$1" = "x--help" ]; then
|
||||
make update-po
|
||||
|
||||
echo Usage: ./update.sh langcode
|
||||
echo --help display this help and exit
|
||||
echo
|
||||
echo Examples of use:
|
||||
echo ./update.sh ----- just creates a new pot file from the source
|
||||
echo ./update.sh da -- created new pot file and updated the da.po file
|
||||
|
||||
elif [ "x$1" = "x" ]; then
|
||||
|
||||
echo "Building the $PACKAGE.pot ..."
|
||||
|
||||
perl ./pxgettext `sed -e 's/\\\\//' POTFILES` > $PACKAGE.po \
|
||||
&& test ! -f $PACKAGE.po \
|
||||
|| ( rm -f ./$PACKAGE.pot \
|
||||
&& mv $PACKAGE.po ./$PACKAGE.pot );
|
||||
|
||||
else
|
||||
|
||||
echo "Building the $PACKAGE.pot ..."
|
||||
|
||||
perl ./pxgettext `sed -e 's/\\\\//' POTFILES` > $PACKAGE.po \
|
||||
&& test ! -f $PACKAGE.po \
|
||||
|| ( rm -f ./$PACKAGE.pot \
|
||||
&& mv $PACKAGE.po ./$PACKAGE.pot );
|
||||
|
||||
echo "Now merging $1.po with $PACKAGE.pot, and creating an updated $1.po ..."
|
||||
|
||||
mv $1.po $1.po.old && msgmerge $1.po.old $PACKAGE.pot -o $1.po \
|
||||
&& rm $1.po.old;
|
||||
|
||||
msgfmt --statistics $1.po
|
||||
|
||||
fi;
|
||||
|
|
|
|||
Loading…
Reference in a new issue