see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -39,6 +39,8 @@ Revision history for Gimp-Perl extension.
         - fixed examples/image_tile to use die instead of exit.
         - improved croak behaviour.
         - new plug-in: clear alpha.
+        - fix the "manpages installed twice under different names" bug that
+          nobody had noticed.
 
 1.19  Thu Jan  6 00:21:58 CET 2000
         - used N_ to mark all the menu paths, since gimp now tries to

plug-ins/perl/MANIFEST

@@ -129,6 +129,7 @@ examples/visual
 examples/billboard
 examples/blended2
 examples/dust
+examples/clear_alpha
 pxgettext
 po/ChangeLog
 po/Makefile.PL

plug-ins/perl/Makefile.PL

@@ -311,9 +311,6 @@ WriteMakefile(
     		    'Gimp/Data.pm'	=> '$(INST_LIBDIR)/Gimp/Data.pm',
     		    'Gimp/Fu.pm'	=> '$(INST_LIBDIR)/Gimp/Fu.pm',
     		    'Gimp/Lib.pm'	=> '$(INST_LIBDIR)/Gimp/Lib.pm',
-    		    'UI/UI.pm'		=> '$(INST_LIBDIR)/Gimp/UI.pm',
-    		    'UI/basewidget.pm'	=> '$(INST_LIBDIR)/Gimp/basewidget.pm',
-    		    'Net/Net.pm'	=> '$(INST_LIBDIR)/Gimp/Net.pm',
     		    'Gimp/PDL.pm'	=> '$(INST_LIBDIR)/Gimp/PDL.pm',
     		    'Gimp/Util.pm'	=> '$(INST_LIBDIR)/Gimp/Util.pm',
     		    'Gimp/Feature.pm'	=> '$(INST_LIBDIR)/Gimp/Feature.pm',

plug-ins/perl/Net/Makefile.PL

@@ -20,4 +20,7 @@ WriteMakefile(
     'TYPEMAPS'	=> ["$topdir/typemap",@pdl_typemaps],
     #dynamic_lib	=> { OTHERLDFLAGS => "$LDFLAGS $LIBS $cfg{GLIB_LIBS}" },
     dynamic_lib	=> { OTHERLDFLAGS => "$LDFLAGS $LIBS" },
+    'PM'	=> {
+    		    'Net.pm'	=> '$(INST_LIBDIR)/Net.pm',
+    		   },
 );

plug-ins/perl/UI/Makefile.PL

@@ -38,4 +38,8 @@ WriteMakefile(
     'DEFINE'	=> "$DEFINE1 $DEFS",
     'macro'	=> { libdir => $libdir, exec_prefix => $exec_prefix, prefix => $prefix },
     'TYPEMAPS'	=> ["$topdir/typemap",@pdl_typemaps],
+    'PM'	=> {
+    		    'UI.pm'		=> '$(INST_LIBDIR)/UI.pm',
+    		    'basewidget.pm'	=> '$(INST_LIBDIR)/basewidget.pm',
+    		   },
 );

plug-ins/perl/configure.frag

@@ -9,7 +9,7 @@ dnl disable some warnings I don't want to see
 if test "x$GCC" = xyes; then
    nowarn="-Wno-parentheses -Wno-unused -Wno-uninitialized"
    GIMP_CFLAGS="$GIMP_CFLAGS $nowarn"
-   GIMP_CFLAGS_NOUI="$GIMP_CFLAGS"
+   GIMP_CFLAGS_NOUI="$GIMP_CFLAGS_NOUI $nowarn"
 fi
 
 AC_SUBST(EXTENSIVE_TESTS)dnl from Makefile.PL

plug-ins/perl/examples/clear_alpha

@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+
+use Gimp::Feature 'pdl';
+use Gimp 1.098;
+use Gimp::Fu;
+use PDL::LiteF;
+
+register "clear_alpha",
+         "This plug-in sets the (hidden) colour in transparent regions to some constant, to support better file compression",
+         "This plug-in sets the (hidden) colour in transparent regions to some constant, to support better file compression",
+         "Marc Lehmann",
+         "Marc Lehmann <pcg\@goof.com>",
+         "20000412",
+         N_"<Image>/Image/Alpha/Clear Alpha...",
+         "RGB*, GRAY*, INDEXED*",	
+         [
+          [PF_SLIDER,	"threshold",	"The threshold to detect 'transparent' with",	0, [0, 255, 1, 10]],
+          [PF_COLOUR,	"colour",	"The colour to set the transparent parts to",	"black"],
+          [PF_BOOL,	"all_layers",	"Apply to all layers instead of only the active one?", 1],
+         ],
+         sub {
+   my($image, $drawable, $thresh, $colour, $all)=@_;
+
+   Gimp->progress_init ("Clearing Alpha...");
+   $image->undo_push_group_start;
+
+   my $colour = pdl byte, @$colour;
+
+   for my $drawable ($all ? $image->get_layers : $drawable) {
+      next unless $drawable->has_alpha;
+
+      my @bounds = $drawable->bounds;
+      my @off = $drawable->offsets;
+
+      $bounds[2]-- if $bounds[0]+$bounds[2] >= ($drawable->offsets)[0]+$drawable->width;
+      $bounds[3]-- if $bounds[1]+$bounds[3] >= ($drawable->offsets)[1]+$drawable->height;
+      {
+         my $src = new PixelRgn ($drawable,@bounds,0,0);
+         my $dst = new PixelRgn ($drawable,@bounds,1,1);
+
+         my $iter = Gimp->pixel_rgns_register ($src, $dst);
+         my $area = $bounds[2]*$bounds[3];
+         my $progress = 0;
+
+         do {
+            my $data = $src->data;
+
+            my $mask = $data->slice("-1") <= $thresh;
+            my $rgb  = $data->slice("0:-2");
+
+            $rgb *= !$mask;
+            $rgb += $colour * $mask;
+            
+            $dst->data($data);
+
+            $progress += $src->w*$src->h/$area;
+            Gimp->progress_update ($progress);
+         } while (Gimp->pixel_rgns_process ($iter));
+      }
+
+      $drawable->merge_shadow (1);
+      $drawable->update (@bounds);
+   }
+   $image->undo_push_group_end;
+   Gimp->progress_update (1);
+
+   ();
+};
+
+exit main;
+
+
+
+
+
+
+
+
+
+

plug-ins/perl/po/ChangeLog

@@ -1,15 +1,3 @@
-2000-04-18  Valek Filippov  <frob@df.ru>
-
-	* ru.po: Updated russian translation.
-
-2000-04-17  Yuri Syrota  <rasta@renome.rovno.ua>
-
-	* uk.po: Added Ukrainian translation
-
-Sat Apr  8 23:29:31 CEST 2000  Stanislav Brabec  <utx@penguin.cz>
-
-	* cs.po: Updated translation.
-
 Thu Apr  6 22:38:51 CEST 2000  Marc Lehmann <pcg@goof.com>
 
         * Makefile.PL: msgmerge will no longer be called under any