updated my gimp-perl plugins for sane menus and email addys

ChangeLog

+Mon Feb 15  21:14:00 CST 1999 Seth Burgess <sjburges@gimp.org>
+	* plug-ins/perl/examples/prep4gif.pl
+	* plug-ins/perl/examples/alpha2color.pl
+	* plug-ins/perl/examples/windy.pl
+    * plug-ins/perl/examples/feedback.pl 
+	* plug-ins/perl/examples/xachlego.pl 
+	* plug-ins/perl/examples/xachshadows.pl: added email addresses and 
+       put things in a more sane spot in the menus
+
 Mon Feb 15 05:23:18 1999  Tor Lillqvist  <tml@iki.fi>
 
 	* app/color_balance.c (color_balance): Use the rgb_to_l function.

plug-ins/perl/examples/alpha2color.pl

-#!/usr/app/bin/perl
+#!/usr/bin/perl
 
 use Gimp qw( :auto );
 use Gimp::Fu;
@@ -78,11 +78,6 @@ sub alpha2col {
 		}		
 	$target_layer->set_visible(1);
 	gimp_palette_set_background($color);
-#	$newlay = gimp_layer_new (  $img, 
-#								$target_layer->width, 
-#								$target_layer->height, 
-#								1, "NewLayer", 100, NORMAL);
-#	$img->add_layer($newlay, scalar(@layers));	
 	$newlay = $target_layer->copy(1);
 	$img->add_layer($newlay, 0);	
 	$newlay->set_offsets(@offsets);
@@ -107,8 +102,8 @@ register
 	"Change the current alpha to a selected color.",
 	"Seth Burgess",
 	"Seth Burgess<sjburges\@gimp.org>",
-	"1998-10-18",
-	"<Image>/Filters/Misc/Alpha2Color",
+	"2-15-98",
+	"<Image>/Image/Colors/Alpha2Color",
 	"RGBA",
 	[
 	 [PF_COLOR, "Color", "Color for current alpha", [127,127,127]]

plug-ins/perl/examples/feedback.pl

-#!/usr/app/bin/perl
+#!/usr/bin/perl
 
 # Revision 1.0: Released it
 #          1.1: Marc Lehman added undo capability! <pcg@goof.com>
+#          1.2: Added my email, and put it in "Noise" where it belongs 
+#                <sjburges@gimp.org>
+
 
 use Gimp;
 use Gimp::Fu;
@@ -10,9 +13,9 @@ register "feedback",
          "Take an image and feed it back onto itself multiple times",
          "This plug-in simulates video feedback.  It makes for kinda a neat desktop if you're into that sort of thing",
          "Seth Burgess",
-         "Seth Burgess",
-         "1.1",
-         "<Image>/Filters/Misc/feedback",
+         "Seth Burgess <sjburges\@gimp.org>",
+         "2-15-99",
+         "<Image>/Filters/Noise/Feedback",
          "RGB, GRAY",
          [
           [PF_SLIDER,	"offset",	"the amount the frames will offset", 3, [0, 255, 1]],

plug-ins/perl/examples/prep4gif.pl

-#!/usr/app/bin/perl
+#!/usr/bin/perl
 
 use Gimp;
 use Gimp::Fu;
@@ -93,8 +93,8 @@ register
 	"Prep for gif",
 	"Make the image a small-cut-out of the intended background, so your transparent text doesn't look blocky.",
 	"Seth Burgess",
-	"Seth Burgess",
-	"1998-09-14",
+	"Seth Burgess <sjburges\@gimp.org>",
+	"2-15-98",
 	"<Image>/Filters/Misc/Prepare for GIF",
 	"RGB*",
 	[

plug-ins/perl/examples/windy.pl

-#!/usr/app/bin/perl
+#!/usr/bin/perl
 
-# sent to me by Seth Burgess <sjburges@ou.edu>
+# sent to me by Seth Burgess <sjburges@gimp.org>
 # small changes my Marc Lehmann <pcg@goof.com>
 
 use Gimp;
@@ -49,9 +49,9 @@ register
 	"Add wind to an image",
 	"Blow your image all over :)",
 	"Seth Burgess",
-	"Seth Burgess (c)",
+	"Seth Burgess <sjburges\@gimp.org>",
 	"1998-09-14",
-	"<Image>/Filters/Artistic/Windify",
+	"<Image>/Filters/Distorts/Windify",
 	"*",
 	[
 	 [PF_INT32, "Angle", "Wind Angle, 0 is left", 120],

plug-ins/perl/examples/xachlego.pl

-#!/usr/app/bin/perl
+#!/usr/bin/perl
 # This is (hopefully) a demonstration of how pathetically easy it is to script
 # a neato effect you've come up with.  This lil' effect was created by xach,
 # and translated by sjburges (me).  You can consider it released under the GPL
@@ -25,7 +25,8 @@
 #            1.2:   Fixed buggy selection handling - oops ;)  
 #            1.3:   Added undo capability by Marc Lehman <pcg@goof.com>
 #            1.4:   Marc Lehman <pcg@goof.com>, changed function name
-
+#            1.5:   Seth Burgess <sjburges@gimp.org> added my email, put it
+#                   in a directory more suitable than the lame "Misc"
 # Here's the boring start of every script...
 
 use Gimp;
@@ -36,9 +37,9 @@ register "xach_blocks",
          "Turn your picture into something that resembles a certain trademarked
           building block creation",
          "Seth Burgess",
-         "Seth Burgess",
-         "1.4",
-         "<Image>/Filters/Misc/Xach Blocks",
+         "Seth Burgess <sjburges\@gimp.org>",
+         "2-15-98",
+         "<Image>/Filters/Map/Xach Blocks",
          "*",
          [
           [PF_SLIDER,	"Block size",	"The size of the blocks...", 10, [0, 255, 1]],

plug-ins/perl/examples/xachshadow.pl

-#!/usr/app/bin/perl
+#!/usr/bin/perl
+# by Seth Burgess <sjburges@gimp.org>
+
 #[Xach] start off with an image, then pixelize it
 #[Xach] then add alpha->add layer mask                                   [20:21]
 #[Xach] render a checkerboard into the layer mask
@@ -15,7 +17,9 @@
 
 # Revision 1.1: Marc Lehman <pcg@goof.com> added undo capability
 # Revision 1.2: Marc Lehman <pcg@goof.com>, changed function name
-
+# Revision 1.3: Seth Burgess <sjburges@gimp.org>, changed location and 
+#                 added my email address
+#
 # Here's the boring start of every script...
 
 use Gimp;
@@ -25,9 +29,9 @@ register "xach_shadows",
          "Xach's Shadows o' Fun",
          "Screen of 50% of your drawing into a dropshadowed layer.",
          "Seth Burgess",
-         "Seth Burgess",
-         "1.2",
-         "<Image>/Filters/Misc/Xach Shadows",
+         "Seth Burgess <sjburges\@gimp.org>",
+         "2-15-98",
+         "<Image>/Filters/Map/Xach Shadows",
          "RGB*, GRAY*",
          [
           [PF_SLIDER,	"Block size",	"The size of the blocks...", 10, [0, 255, 1]],