see plug-ins/perl/Changes

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

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

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...",
          "*",
          [

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]],