see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -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

plug-ins/perl/Gimp/Fu.pm

@@ -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,6 +224,9 @@ sub interact($$$@) {
            &new_PF_STRING;
            
         } elsif($type == PF_FONT) {
+           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;
@@ -250,6 +253,7 @@ sub interact($$$@) {
               $a=new Gtk::Button;
               $a->add($l);
               $a->signal_connect("clicked", sub { show $fs });
+           }
               
         } elsif($type == PF_SPINNER) {
            my $adj = _new_adjustment ($value,$extra);

plug-ins/perl/Gimp/Lib.xs

@@ -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:

plug-ins/perl/README

@@ -25,23 +25,40 @@ PREREQUISITES
        To install/use this perl extension, you need to have the
        following software packages installed installed:
        
-       Perl5.005_02 (or higher):
+       Perl5.004 (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
+          While this extension should run fine with older versions (it has
-       5.004 that I don't get with 5.005. When in doubt, upgrade.
+          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>
+

plug-ins/perl/TODO

@@ -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