GitLab repository storage has been migrated to hashed layout. Please contact Infrastructure team if you notice any issues with repositories or hooks.

Commit b04bbd9a authored by Marc Lehmann's avatar Marc Lehmann

see plug-ins/perl/Changes

parent 2a2070b2
......@@ -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;
......
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.
......
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
}
#!/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;
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