Commit b04bbd9a authored by Marc Lehmann's avatar Marc Lehmann
Browse files

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