dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-03-09 21:11:47 +00:00
parent ee9fae5b35
commit aae3eaf0a0
5 changed files with 76 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
plug-ins/perl/Changes
View File

@ -3,6 +3,9 @@ Revision history for Gimp-Perl extension.
- added new convinience functions to Gimp::Util.
- Gimp::Fu checks for the presence of Gtk and dies
if it can't be found.
- Uh, ah, debugging code in the repository, again!
- PF_FONT should now display a string widget in gtk+ 1.0.
- PixelRgn/Tile data sould now be accessible again-
1.06 Sat Mar 6 19:36:12 CET 1999
- Gimp::Fu does no longer display the returned image when it

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

@ -165,7 +165,7 @@ sub interact($$$@) {
# only pull these in if _really_ required
# gets us some speed we really need
eval {
require Gtkx; import Gtk;
require Gtk; import Gtk;
init Gtk; # gross hack...
};
die "The Gtk perl module is required to run perl-scripts in interactive mode!\n" if $@;
@ -224,33 +224,37 @@ sub interact($$$@) {
&new_PF_STRING;
} elsif($type == PF_FONT) {
my $fs=new Gtk::FontSelectionDialog "Font Selection Dialog ($desc)";
my $def = "-*-helvetica-medium-r-normal-*-*-240-*-*-p-*-iso8859-1";
my $val;
my $l=new Gtk::Label "!error!";
my $setval = sub {
$val=$_[0];
unless (defined $val && $fs->set_font_name ($val)) {
warn "illegal default font description: $val" if defined $val;
$val=$def;
$fs->set_font_name ($val);
}
if ($Gimp::UI::gtk_10) {
&new_PF_STRING;
} else {
my $fs=new Gtk::FontSelectionDialog "Font Selection Dialog ($desc)";
my $def = "-*-helvetica-medium-r-normal-*-*-240-*-*-p-*-iso8859-1";
my $val;
my $l=new Gtk::Label "!error!";
my $setval = sub {
$val=$_[0];
unless (defined $val && $fs->set_font_name ($val)) {
warn "illegal default font description: $val" if defined $val;
$val=$def;
$fs->set_font_name ($val);
}
my($n,$t)=Gimp::xlfd_size($val);
$l->set((split(/-/,$val))[2]."\@$n".($t ? "p" : ""));
};
$fs->ok_button->signal_connect("clicked",sub {$setval->($fs->get_font_name); $fs->hide});
$fs->cancel_button->signal_connect("clicked",sub {$fs->hide});
push(@setvals,$setval);
push(@getvals,sub { $val });
$a=new Gtk::Button;
$a->add($l);
$a->signal_connect("clicked", sub { show $fs });
}
my($n,$t)=Gimp::xlfd_size($val);
$l->set((split(/-/,$val))[2]."\@$n".($t ? "p" : ""));
};
$fs->ok_button->signal_connect("clicked",sub {$setval->($fs->get_font_name); $fs->hide});
$fs->cancel_button->signal_connect("clicked",sub {$fs->hide});
push(@setvals,$setval);
push(@getvals,sub { $val });
$a=new Gtk::Button;
$a->add($l);
$a->signal_connect("clicked", sub { show $fs });
} elsif($type == PF_SPINNER) {
my $adj = _new_adjustment ($value,$extra);
$a=new Gtk::SpinButton $adj,1,0;

20
plug-ins/perl/Gimp/Lib.xs
View File

@ -1537,7 +1537,7 @@ gimp_pixel_rgn_resize(sv, x, y, width, height)
}
SV *
_gimp_pixel_rgn_get_pixel(pr, x, y)
gimp_pixel_rgn__get_pixel(pr, x, y)
GPixelRgn * pr
int x
int y
@ -1550,7 +1550,7 @@ _gimp_pixel_rgn_get_pixel(pr, x, y)
RETVAL
SV *
_gimp_pixel_rgn_get_row(pr, x, y, width)
gimp_pixel_rgn__get_row(pr, x, y, width)
GPixelRgn * pr
int x
int y
@ -1564,7 +1564,7 @@ _gimp_pixel_rgn_get_row(pr, x, y, width)
RETVAL
SV *
_gimp_pixel_rgn_get_col(pr, x, y, height)
gimp_pixel_rgn__get_col(pr, x, y, height)
GPixelRgn * pr
int x
int y
@ -1578,7 +1578,7 @@ _gimp_pixel_rgn_get_col(pr, x, y, height)
RETVAL
SV *
_gimp_pixel_rgn_get_rect(pr, x, y, width, height)
gimp_pixel_rgn__get_rect(pr, x, y, width, height)
GPixelRgn * pr
int x
int y
@ -1593,7 +1593,7 @@ _gimp_pixel_rgn_get_rect(pr, x, y, width, height)
RETVAL
void
_gimp_pixel_rgn_set_pixel(pr, data, x, y)
gimp_pixel_rgn__set_pixel(pr, data, x, y)
GPixelRgn * pr
SV * data
int x
@ -1606,7 +1606,7 @@ _gimp_pixel_rgn_set_pixel(pr, data, x, y)
gimp_pixel_rgn_set_pixel (pr, SvPV(data, dc), x, y);
void
_gimp_pixel_rgn_set_row(pr, data, x, y)
gimp_pixel_rgn__set_row(pr, data, x, y)
GPixelRgn * pr
SV * data
int x
@ -1619,7 +1619,7 @@ _gimp_pixel_rgn_set_row(pr, data, x, y)
gimp_pixel_rgn_set_row (pr, SvPV(data, dc), x, y, SvCUR (data) / pr->bpp);
void
_gimp_pixel_rgn_set_col(pr, data, x, y)
gimp_pixel_rgn__set_col(pr, data, x, y)
GPixelRgn * pr
SV * data
int x
@ -1632,7 +1632,7 @@ _gimp_pixel_rgn_set_col(pr, data, x, y)
gimp_pixel_rgn_set_col (pr, SvPV(data, dc), x, y, SvCUR (data) / pr->bpp);
void
_gimp_pixel_rgn_set_rect(pr, data, x, y, width)
gimp_pixel_rgn__set_rect(pr, data, x, y, width)
GPixelRgn * pr
SV * data
int x
@ -1661,7 +1661,7 @@ PROTOTYPES: DISABLE
# construction/destruction.
SV *
_get_data(tile)
gimp_tile__get_data(tile)
GTile * tile
CODE:
gimp_tile_ref (tile);
@ -1671,7 +1671,7 @@ _get_data(tile)
RETVAL
void
_set_data(tile, data)
gimp_tile__set_data(tile, data)
GTile * tile
SV * data
CODE:

42
plug-ins/perl/README
View File

@ -25,24 +25,41 @@ PREREQUISITES
To install/use this perl extension, you need to have the
following software packages installed installed:
Perl5.005_02 (or higher):
While this extension should run fine with older versions (it has been
tested with 5.004_04), I get many unreproducable bug reports with
5.004 that I don't get with 5.005. When in doubt, upgrade.
Perl5.004 (or higher):
While this extension should run fine with older versions (it has
been tested with 5.004_04), I work with Perl5.005 or higher,
which has much more bugs fixed than the old 5.004. When in
doubt, upgrade.
The GNU Image Manipulation Program, i.e. The GIMP:
ftp://ftp.gimp.org/pub/gimp/
gimp-1.1 (or newer, i.e. CVS) is recommended, but any version
since 1.0.2 should do, some features not implemented in 1.0
don't work, though.
GTK+, the X11 toolkit:
ftp://ftp.gimp.org/pub/gtk/
gtk+-1.2 or higher is recommended, but older versions mostly work
(some features not implemented in gtk+-1.0 do not work properly, of
course).
Gtk, the perl extension for the above:
ftp://ftp.gimp.org/pub/gtk/perl/
Gtk-0.5 (or higher) is recommended. You might encounter
some problems compiling it for Perl5.004, in that case you
might want to try the updated gnome-perl version on the
gnome-cvs-server. Seth Burgess has a snapshot of it on his
homepage at http://www.gimp.org/~sjburges/.
Optionally, you can install PDL (the perl data language), to easily
manipulate pixel data. PDL is available at any CPAN mirror, version
1.9906 or higher is recommended.
1.9906 or higher is recommended. Without PDL, some plug-ins do not
work, and accessing raw image data is impossible.
General Information about The Gimp can be found at
http://www.gimp.org/
@ -59,7 +76,7 @@ INSTALLATION
some other plug-ins, "make install-plugins"
After installation, these perl plug-ins should be visible from with
The Gimp:
The Gimp (and many, many more):
<Toolbox>/Xtns/Perl-Server
<Image>/Filters/Artistic/Windify
@ -93,4 +110,5 @@ SUPPORT/MAILING LISTS/MORE INFO
(c)1998 Marc Lehmann <pcg@goof.com>
(c)1998,1999 Marc Lehmann <pcg@goof.com>

3
plug-ins/perl/TODO
View File

@ -10,13 +10,14 @@ make test TEST_VERBOSE=1
bugs
* install in /usr/local
* install in /usr/local (???? why? more options??)
* install even without Gtk? NO!
* perl_fu_webify in homepage-logo.pl
* wait for working gimp_file_load (or do it myself?)
important issues
* install scripts in share/
* fix auto-edit shebang for check-ins
* gimp-tiles are not accessible in any way..
* register dummy function to calm gimp down