callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-12-13 02:39:22 +00:00
parent ea5b4a1f62
commit cb5c8dfccd
6 changed files with 30 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
plug-ins/perl/Changes
View File

@ -31,6 +31,7 @@ Revision history for Gimp-Perl extension.
- added examples/gap-vcr - added examples/gap-vcr
- applied Kevon Cozens patch to scm2scm. That's a great start, I - applied Kevon Cozens patch to scm2scm. That's a great start, I
should really add the rest of the function names. should really add the rest of the function names.
- use XSLoader instead of DynaLoader where available.
1.17 Wed Nov 24 21:25:19 CET 1999 1.17 Wed Nov 24 21:25:19 CET 1999
- re-fitted i18n translation for most plug-ins. - re-fitted i18n translation for most plug-ins.

11
plug-ins/perl/Gimp.pm
View File

@ -10,10 +10,15 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD %EXPORT_TAGS @EXPORT_FAIL
use subs qw(init end lock unlock canonicalize_color); use subs qw(init end lock unlock canonicalize_color);
BEGIN { BEGIN {
require DynaLoader;
@ISA=qw(DynaLoader);
$VERSION = 1.18; $VERSION = 1.18;
bootstrap Gimp $VERSION; eval {
require XSLoader;
XSLoader::load Gimp $VERSION;
} or do {
require DynaLoader;
@ISA=qw(DynaLoader);
bootstrap Gimp $VERSION;
}
} }
my @_param = qw( my @_param = qw(

2
plug-ins/perl/Gimp/Fu.pm
View File

@ -49,7 +49,7 @@ In general, a Gimp::Fu script looks like this:
C<examples/example-fu.pl>, which is small Gimp::Fu-script you can take as C<examples/example-fu.pl>, which is small Gimp::Fu-script you can take as
starting point for your experiments) starting point for your experiments)
E<Attention:> at the moment it's neccessary to always import the C<Gimp::Fu> B<Attention:> at the moment it's neccessary to always import the C<Gimp::Fu>
module after the C<Gimp> module. module after the C<Gimp> module.
=cut =cut

17
plug-ins/perl/Gimp/Lib.pm
View File

@ -2,11 +2,18 @@ package Gimp::Lib;
use strict; use strict;
use vars qw($VERSION @ISA); use vars qw($VERSION @ISA);
use base qw(DynaLoader);
require DynaLoader; BEGIN {
$VERSION = 1.18;
$VERSION = 1.18; eval {
require XSLoader;
XSLoader::load Gimp::Lib $VERSION;
} or do {
require DynaLoader;
@ISA=qw(DynaLoader);
bootstrap Gimp::Lib $VERSION;
}
}
use subs qw( use subs qw(
gimp_call_procedure gimp_main gimp_init gimp_call_procedure gimp_main gimp_init
@ -32,8 +39,6 @@ sub unlock {
sub import {} sub import {}
bootstrap Gimp::Lib $VERSION;
# functions to "autobless" where the autobless mechanism # functions to "autobless" where the autobless mechanism
# does not work. # does not work.

2
plug-ins/perl/Makefile.PL
View File

@ -146,7 +146,7 @@ sub MY::install {
my $self=shift; my $self=shift;
package MY; package MY;
my $install = $self->SUPER::install(@_); my $install = $self->SUPER::install(@_);
($install =~ s/^(un)?install\b/really-$1install/gm) or return $install; ($install =~ s/\b(un)?install\b/really-$1install/g) or return $install;
' '
install :: install-po install :: install-po
@for dir in \ @for dir in \

10
plug-ins/perl/UI/UI.pm
View File

@ -6,9 +6,15 @@ use Gtk;
use base 'DynaLoader'; use base 'DynaLoader';
BEGIN { BEGIN {
require DynaLoader;
$VERSION = 1.18; $VERSION = 1.18;
bootstrap Gimp::UI $VERSION; eval {
require XSLoader;
XSLoader::load Gimp::UI $VERSION;
} or do {
require DynaLoader;
@ISA=qw(DynaLoader);
bootstrap Gimp::UI $VERSION;
}
} }
=head1 NAME =head1 NAME