see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -18,7 +18,7 @@ Revision history for Gimp-Perl extension.
           mail from me) regarding return values for register'ed scripts.
         - fixed the make install-po problem that Sven fixed but dumb Marc
           accidently reverted...
-        - added examples/fade-alpha by Seth.
+        - added/updated examples/fade-alpha by Seth.
         - re-apply patches to examples/xachshadow, xachlego after I nuked
           them without knowing.
 

plug-ins/perl/Gimp.pm

@@ -23,7 +23,6 @@ BEGIN {
 
 my @_param = qw(
 	PDB_BOUNDARY	PDB_CHANNEL	PDB_COLOR	PDB_DISPLAY	PDB_DRAWABLE
-        w
 	PDB_END		PDB_FLOAT	PDB_IMAGE	PDB_INT32	PDB_FLOATARRAY
 	PDB_INT16	PDB_PARASITE	PDB_STRING	PDB_PATH	PDB_INT16ARRAY
 	PDB_INT8	PDB_INT8ARRAY	PDB_LAYER	PDB_REGION	PDB_STRINGARRAY

plug-ins/perl/examples/fade-alpha

@@ -945,7 +945,7 @@ sub create_window
   $frm->set_border_width(6);
   $frm->show;
 
-  $box1->pack_start($frm, 0, 0, 0);
+  $box1->pack_start($frm, 1, 1, 0);
   $btnTable = new Gtk::Table(3,3,1);
   $btnTable->set_border_width(6);
   $frm->add($btnTable);
@@ -961,10 +961,21 @@ sub create_window
 	   $btn->show;
 	   $btnTable->attach_defaults($btn, $i, $i+1, $j, $j+1); 
 	   add_pixmap($window, $btn, $i*3+$j);
-	   if (Gimp->get_data($plugin)*1 == $i*3+$j)
-	     {
-	       $btn->clicked;
+	   
+	   if (Gimp->get_data($plugin) ne "")
+	     { # if run before, get last data
+	       if (Gimp->get_data($plugin) == $i*3+$j)
+	         {
+	           $btn->clicked;
+	         }
 	     }
+	   else 
+	     { # first run of plug-in, set first button
+	       if ($i==0 && $j==0)
+	         {
+		   $btn->clicked;
+		 }
+             }
 	}
     }