mirror of https://github.com/GNOME/gimp.git
149 lines
3.8 KiB
Perl
149 lines
3.8 KiB
Perl
=head1 NAME
|
|
|
|
Gimp::Compat - compatibility functions for older versions of Gimp.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
<loaded automatically on demand>
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Older versions of Gimp (version 1.0 at the time of this writing) lack some
|
|
very important or useful functions.
|
|
|
|
This module is providing the most needed replacement functions. If you
|
|
happen to miss a function then please create a replacement function and
|
|
send it to me ;)
|
|
|
|
These functions are handled in exactly the same way as PDB-Functions,
|
|
i.e. the (hypothetical) function C<gimp_image_xyzzy> can be called as
|
|
$image->xyzzy, if the module is available.
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=over 4
|
|
|
|
=item gimp_text_fontname, gimp_get_extents_fontname
|
|
|
|
These are emulated in 1.0.
|
|
|
|
=item gimp_paintbrush
|
|
|
|
The last two arguments only available in 1.1 are simply dropped.
|
|
|
|
=back
|
|
|
|
=head1 AUTHOR
|
|
|
|
Various, Dov Grobgeld <dov@imagic.weizmann.ac.il>. The author of the
|
|
Gimp-Perl extension (contact him to include new functions) is Marc Lehmann
|
|
<pcg@goof.com>
|
|
|
|
=cut
|
|
|
|
package Gimp::Compat;
|
|
|
|
$VERSION=1.21;
|
|
|
|
use Gimp ('croak', '__');
|
|
|
|
# as a failsafe check, lowest version NOT requiring this module
|
|
@max_gimp_version = (1,1);
|
|
|
|
# The following function is used to convert a xlfd to the array structure
|
|
# used by the pre 1.2 functions gimp_text_ext() and gimp_text_get_extent_ext().
|
|
|
|
sub xlfd_unpack {
|
|
my $fontname = shift;
|
|
my $size_overload = shift;
|
|
my $size_unit_overload = shift;
|
|
# XLFDs fields can contain anything, including minus signs, but we
|
|
# gracefully ignore these weird things here ;)
|
|
my $p = "[^-]*";
|
|
my($foundry,
|
|
$family,
|
|
$weight,
|
|
$slant,
|
|
$set_width,
|
|
$pixelsize,
|
|
$pointsize,
|
|
$spacing,
|
|
$registry,
|
|
$encoding,
|
|
) = $fontname=~
|
|
/^-($p) (?# foundry )
|
|
-($p) (?# family )
|
|
-($p) (?# weight )
|
|
-($p) (?# slant )
|
|
-($p) (?# set_Width )
|
|
-$p
|
|
-($p) (?# pixelsize )
|
|
-($p) (?# pointsize )
|
|
-$p
|
|
-$p
|
|
-($p) (?# spacing )
|
|
-$p
|
|
-($p) (?# rgstry )
|
|
-($p) (?# encdng )
|
|
/x or die __"xlfd_unpack: unmatched XLFD '$fontname'\n";
|
|
|
|
my $size;
|
|
if ($pixelsize && $pixelsize ne "*") {
|
|
$size = $pixelsize;
|
|
} else {
|
|
$size = 0.1*$pointsize;
|
|
}
|
|
$size = $size_overload if $size_overload;
|
|
my $size_unit = ($pointsize > 0);
|
|
$size_unit = $size_unit if defined $size_unit_overload;
|
|
return ($size, $size_unit, $foundry, $family, $weight, $slant,
|
|
$set_width, $spacing, $registry, $encoding);
|
|
}
|
|
|
|
sub fun {
|
|
my($major,$minor,$name,$sub)=@_;
|
|
if (Gimp->major_version < $major
|
|
|| (Gimp->major_version == $major && Gimp->minor_version < $minor)) {
|
|
*{"Gimp::Lib::$name"}=$sub;
|
|
}
|
|
}
|
|
|
|
fun 1,1,gimp_text_get_extents_fontname,sub {
|
|
my($string, $xlfd_size, $xlfd_unit, $xlfd) = @_;
|
|
|
|
Gimp->text_get_extents_ext($string, @font_info,
|
|
xlfd_unpack($xlfd, $xlfd_size, $xlfd_unit));
|
|
};
|
|
|
|
fun 1,1,gimp_text_fontname,sub {
|
|
my $img = shift if $_[0]->isa('Gimp::Image');
|
|
my ($drw, $x,$y, $string,$border,$antialias, $xlfd_size, $xlfd_unit, $xlfd) = @_;
|
|
my @params;
|
|
|
|
if (!defined $drw || $drw == -1) {
|
|
$drw = undef;
|
|
@params = ($img);
|
|
}
|
|
|
|
push(@params, $drw, $x, $y, $string, $border, $antialias,
|
|
xlfd_unpack($xlfd, $xlfd_size, $xlfd_unit));
|
|
|
|
Gimp->text_ext(@params);
|
|
};
|
|
|
|
fun 1,1,gimp_paintbrush,sub {
|
|
shift if $_[0]->isa('Gimp::Image');
|
|
my $drawable = shift;
|
|
my $fade_out = shift;
|
|
shift unless ref $_[0];
|
|
my $strokes = shift;
|
|
Gimp::gimp_call_procedure('gimp_paintbrush',$drawable,$fade_out,$strokes);
|
|
};
|
|
|
|
fun 1,1,gimp_image_list,sub {
|
|
Gimp::gimp_call_procedure('gimp_list_images');
|
|
};
|
|
|
|
1;
|
|
|