From 0647863ca1a450ae233c1fb783d3bb0ef51523f4 Mon Sep 17 00:00:00 2001
From: Marc Lehmann <pcg@src.gnome.org>
Date: Sun, 30 Jan 2000 22:24:03 +0000
Subject: [PATCH] see plug-ins/perl/Changes

---
 plug-ins/perl/Changes           |  1 +
 plug-ins/perl/TODO              |  4 +++-
 plug-ins/perl/examples/fit-text | 20 +++++++++-----------
 plug-ins/perl/examples/xachlego |  2 +-
 4 files changed, 14 insertions(+), 13 deletions(-)

diff --git a/plug-ins/perl/Changes b/plug-ins/perl/Changes
index 8b5266b4c9..c9c55b9829 100644
--- a/plug-ins/perl/Changes
+++ b/plug-ins/perl/Changes
@@ -10,6 +10,7 @@ Revision history for Gimp-Perl extension.
         - do not install examples/gap-vcr.
         - added new sethspin, with slight changes.
         - do not install "feedback".
+        - updated xachlego.
 
 1.19  Thu Jan  6 00:21:58 CET 2000
         - used N_ to mark all the menu paths, since gimp now tries to
diff --git a/plug-ins/perl/TODO b/plug-ins/perl/TODO
index 9e16367cba..f2d3ba5732 100644
--- a/plug-ins/perl/TODO
+++ b/plug-ins/perl/TODO
@@ -23,7 +23,9 @@ firetext! AND _grayscale_ for map_gradient(!)
 sota-chrome pagesize of 2 is _wrong_
 
 bugs
-  * alow gimp_selection_shrink with a zero argument.
+[DONE]  * alow gimp_selection_shrink with a zero argument.
+  * font_text with negative size? bug report #5523
+  * g_direct_equal and glin hash, kill in favour of way nicer perl hashes.
   * ping-funktion für JENS.
 [DONE]  * never grayed out = "undef" imagetypes!!!
 [DONE]  * gimp_layer_set_name(4, "(null)") = gimp: fatal error: sigsegv caught
diff --git a/plug-ins/perl/examples/fit-text b/plug-ins/perl/examples/fit-text
index 8327d4863b..a14d0f2d14 100755
--- a/plug-ins/perl/examples/fit-text
+++ b/plug-ins/perl/examples/fit-text
@@ -22,23 +22,21 @@ undef $defaultfont;
 $calls = 0;
 
 sub growfont {
-	($fontname, $plussize) = @_;
-	@fontdesc = split /-/, $fontname;
-	$fontdesc[8] eq "*" ?  
-		$fontdesc[7] += $plussize/72 : # if in pixels  
-		$fontdesc[8] += $plussize;     # if in points
-	$outname = join "-", @fontdesc;
-	print ("!!!${fontdesc[8]}-${fondesc[9]}!!!\n");
-	$calls ++;
-	return $outname;
-	}
+        ($fontname, $plussize) = @_;
+        @fontdesc = split /-/, $fontname;
+        $fontdesc[8] eq "*" ?  ($fontdesc[7] += $plussize/72) : ($fontdesc[8]+= $plussize);
+        $outname = join "-", @fontdesc;
+        #print ("!!!${fontdesc[7]}-${fontdesc[8]}!!!\n");
+        $calls ++;
+        return $outname;
+        }                                                                                                                                                        
 
 register "fit_text",
          "Fit Text - fit text to a selection",
          "Have a rectangular selection, and select the font type and spacing.  It will fill the selection with text as closely as possible.  If no selection is made prior to running, it will fill the entire image.",
          "Seth Burgess",
          "Seth Burgess <sjburges\@gimp.org>",
-         "1999-03-21",
+         "2000-01-29",
          N_"<Image>/Filters/Render/Fit Text...",
          "*",
          [
diff --git a/plug-ins/perl/examples/xachlego b/plug-ins/perl/examples/xachlego
index 2ceef1af99..0444588e3d 100755
--- a/plug-ins/perl/examples/xachlego
+++ b/plug-ins/perl/examples/xachlego
@@ -39,7 +39,7 @@ register "xach_blocks",
          "Seth Burgess",
          "Seth Burgess <sjburges\@gimp.org>",
          "2-15-98",
-         N_"<Image>/Filters/Map/Xach Blocks...",
+         N_"<Image>/Filters/Map/Xach Blocks",
          "*",
          [
           [PF_SLIDER,	"block_size",	"The size of the blocks", 10, [0, 255, 1]],