Changeset 3211

Timestamp:

2002-07-04T10:01:23+12:00 (22 years ago)

Author:

sjboddie

Message:

Updated translate.pl to work with gimp-1.2

Location:

trunk/gsdl/bin/script

Files:

• gimp/flash_button-1.2.pl (modified) (1 diff)
• gimp/title_icon-1.2.pl (modified) (2 diffs)
• translate.pl (modified) (8 diffs)

trunk/gsdl/bin/script/gimp/flash_button-1.2.pl

@@ -243 +243 @@
     if ($whitespace) {
     gimp_rect_select ($image, 0, 0, 1, $height, 0, 0, 0);
-    gimp_edit_clear ($image, $backlayer);
+    gimp_edit_clear ($backlayer);
     gimp_selection_none ($image);
     gimp_rect_select ($image, $width-1, 0, 1, $height, 0, 0, 0);
-    gimp_edit_clear ($image, $backlayer);
+    gimp_edit_clear ($backlayer);
     gimp_selection_none ($image);
     }

trunk/gsdl/bin/script/gimp/title_icon-1.2.pl

@@ -250 +250 @@
     # clear the new layer
     gimp_selection_all ($image);
-    gimp_edit_clear ($image, $imagelayer);
+    gimp_edit_clear ($imagelayer);
     gimp_selection_none ($image);
     
@@ -287 +287 @@
         } else {
             gimp_selection_all ($image);
-            gimp_edit_clear ($image, $textlayer);
+            gimp_edit_clear ($textlayer);
             gimp_selection_none ($image);
             $fsize --;

trunk/gsdl/bin/script/translate.pl

@@ -38 +38 @@
 }
 
-use Gimp;
+use Gimp qw/:auto :DEFAULT/;
 use parsargv;
 use util;
@@ -208 +208 @@
         $options .= " -fontsize 12 -height 20 -whitespace -image_dir $image_dir";
     }
-    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button.pl $options`;
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
 
     # get width of new images and edit width macro
@@ -224 +224 @@
         $options .= " -foundry cronyx -fontname helvetica";
     }
-    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button.pl $options`;
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
 
     # generate green image
@@ -233 +233 @@
         $options .= " -foundry cronyx -fontname helvetica";
     }
-    `$ENV{'GSDLHOME'}/bin/script/gimp/green_bar.pl $options`;
+    `$ENV{'GSDLHOME'}/bin/script/gimp/green_bar-1.2.pl $options`;
 
     # get width of new images and edit width macro
@@ -247 +247 @@
         $options .= " -fontsize 8 -foundry cronyx -fontname helvetica";
     }
-    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button.pl $options`;
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
 
     # get width of new images and edit width macro
@@ -262 +262 @@
         $options .= " -foundry cronyx -fontname helvetica";
     }
-    `$ENV{'GSDLHOME'}/bin/script/gimp/green_bar.pl $options`;
+    `$ENV{'GSDLHOME'}/bin/script/gimp/green_bar-1.2.pl $options`;
 
     } elsif ($image_type eq "green_title") {
@@ -278 +278 @@
         $options .= " -foundry cronyx -fontname helvetica";
     }
-    `$ENV{'GSDLHOME'}/bin/script/gimp/title_icon.pl $options`;
+    `$ENV{'GSDLHOME'}/bin/script/gimp/title_icon-1.2.pl $options`;
 
     # get width of resulting image and edit _width..._ macro in $image_macros
@@ -353 +353 @@
 }
 
-sub net {
-  gsdl_translate;
-}
-
+Gimp::on_net {   gsdl_translate; };
 exit main;