see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -18,6 +18,7 @@ Revision history for Gimp-Perl extension.
           a gtk-perl release soon.
         - the :auto import tag is no longer the default. neither with nor without
           warning.
+        - sdf'ified pod documentation. more to come.
 
 1.17  Wed Nov 24 21:25:19 CET 1999
         - re-fitted i18n translation for most plug-ins.

plug-ins/perl/Gimp/Data.pm

@@ -84,14 +84,14 @@ like your plug-in's name. As an example, the Gimp::Fu module uses
 This module might use a persistant implementation, i.e. your data might
 survive a restart of the Gimp application, but you cannot count on this.
 
-Gimp::Data will try to freeze your data when you pass in a reference. On
+C<Gimp::Data> will try to freeze your data when you pass in a reference. On
 retrieval, the data is thawed again. See L<Storable> for more info. This
 might be implemented through either Storable or Data::Dumper, or not
 implemented at all (i.e. silently fail) ;)
 
 =head1 PERSISTANCE
 
-Gimp::Data contains the following functions to ease applications where
+C<Gimp::Data> contains the following functions to ease applications where
 persistence for perl data structures is required:
 
 =over 4

plug-ins/perl/Gimp/Fu.pm

@@ -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
 starting point for your experiments)
 
-Attention: at the moment it's neccessary to always import the C<Gimp::Fu>
+E<Attention:> at the moment it's neccessary to always import the C<Gimp::Fu>
 module after the C<Gimp> module.
 
 =cut

plug-ins/perl/Gimp/Pixel.pod

@@ -17,9 +17,10 @@ plug-in. If you bug me enough I'll rewrite this document.
 
 =head1 DESCRIPTION
 
-You can access the pixels in a drawable through tiles or pixel regions. This
-manpage explains how this is done in perl. All classes (Gimp::GDrawable,
-Gimp::Tile, Gimp::PixelRgn) are available with and without the C<Gimp::> prefix.
+You can access the pixels in a drawable through tiles or pixel
+regions. This manpage explains how this is done in perl. All classes
+(Gimp::GDrawable, C<Gimp::Tile>, C<Gimp::PixelRgn>) are available with and
+without the C<Gimp::> prefix.
 
 =head1 GDRAWABLES
 

plug-ins/perl/Gimp/Pod.pm

@@ -123,7 +123,7 @@ Gimp::Pod - Evaluate pod documentation embedded in scripts.
 
 =head1 DESCRIPTION
 
-Gimp::Pod can be used to find and parse embedded pod documentation in
+C<Gimp::Pod> can be used to find and parse embedded pod documentation in
 gimp-perl scripts.  At the moment only the formatted text can be fetched,
 future versions might have more interesting features.
 

plug-ins/perl/Gimp/Util.pm

@@ -26,7 +26,7 @@ and debugging times.
 These functions try to preserve the current settings like colors, but not
 all do.
 
-Also: these functions are handled in exactly the same way as
+These functions can also be 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.
 

plug-ins/perl/examples/PDB

@@ -199,13 +199,13 @@ sub complete_type {
    my($type,$name,$desc)=@_;
 
    if($type==PARAM_IMAGE) {
-      set_clist(map(("$$_: ".$_->get_filename,$$_),Gimp->list_images));
+      set_clist(map(("$$_: ".$_->get_filename,$$_),Gimp->image_list));
    } elsif($type==PARAM_LAYER) {
-      set_clist(map { my $i = $_; map(("$$_: ".$i->get_filename."/".$_->get_name,$$_),$i->get_layers)} Gimp->list_images);
+      set_clist(map { my $i = $_; map(("$$_: ".$i->get_filename."/".$_->get_name,$$_),$i->get_layers)} Gimp->image_list);
    } elsif($type==PARAM_CHANNEL) {
-      set_clist(map { my $i = $_; map(("$$_: ".$i->get_filename."/".$_->get_name,$$_),$i->get_channels)} Gimp->list_images);
+      set_clist(map { my $i = $_; map(("$$_: ".$i->get_filename."/".$_->get_name,$$_),$i->get_channels)} Gimp->image_list);
    } elsif($type==PARAM_DRAWABLE) {
-      set_clist(map { my $i = $_; map(("$$_: ".$i->get_filename."/".$_->get_name,$$_),($i->get_layers,$i->get_channels))} Gimp->list_images);
+      set_clist(map { my $i = $_; map(("$$_: ".$i->get_filename."/".$_->get_name,$$_),($i->get_layers,$i->get_channels))} Gimp->image_list);
    } elsif ($type==PARAM_INT32) {
       if ($name eq "run_mode") {
          set_clist("RUN_NONINTERACTIVE","RUN_NONINTERACTIVE",

plug-ins/perl/examples/ditherize.pl

@@ -37,6 +37,9 @@ register "plug_in_ditherize",
          sub {
    my($image,$drawable,$dither,$colours)=@_;
 
+   Gimp::set_trace(-1);
+   "Gimp::script-fu-add-bevel"->($drawable, 55, 0, 0);
+
    $drawable->is_layer or die "this plug-in only works for layers";
 
    $image->undo_push_group_start;

plug-ins/perl/scm2perl

@@ -29,8 +29,8 @@ scm2perl - convert script-fu to perl
 This program tries to convert Script-Fu (Scheme) scripts written for The
 Gimp into a Perl script.
 
-Don't expect too much from this version. To run it, you need the
-Parse::RecDescent module from CPAN.
+Don't expect too much from this version. To run it, you need
+the Parse::RecDescent module from CPAN.
 
 =head1 CONVERSION TIPS