Changeset 4227

Timestamp:

2003-05-06T14:17:26+12:00 (21 years ago)

Author:

mdewsnip

Message:

First stab at generating collector_bar_buttons. Assumes that the text to go onto the buttons is formatted nicely (in terms of newlines and spaces to center text).

File:

• trunk/gsdl/bin/script/translate.pl (modified) (1 diff)

trunk/gsdl/bin/script/translate.pl

@@ -239 +239 @@
     &process_width_macro ($fullfilename, $image_name, \$image_macros);
 
+    } elsif ($image_type eq "collector_bar_button") {
+
+    # unescape any newline characters in the text
+    $text =~ s/\\n/\n/g;
+
+    # generate on and off images (yellow)
+    my $options = "-text \"$text\" -filenamestem yc$image_name -image_dir $image_dir";
+    $options .= " -width 77 -height 26 -fixed_width -whitespace -fontsize 13";
+    # special case for russian images
+    if ($language_symbol eq "ru") {
+        $options .= " -foundry cronyx -fontname helvetica";
+    }
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
+
+    # generate on and off images (green)
+    $options = "-text \"$text\" -filenamestem gc$image_name -image_dir $image_dir";
+    $options .= " -width 77 -height 26 -fixed_width -whitespace -fontsize 13";
+    $options .= " -bgcolor \"#96c19b\"";
+    # special case for russian images
+    if ($language_symbol eq "ru") {
+        $options .= " -foundry cronyx -fontname helvetica";
+    }
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
+
+    # generate on and off images (grey) - only the light image (off) is used
+    $options = "-text \"$text\" -filenamestem nc$image_name -image_dir $image_dir";
+    $options .= " -width 77 -height 26 -fixed_width -whitespace -fontsize 13";
+    $options .= " -bgcolor \"#7E7E7E\" -fontcolor \"#a0a0a0\"";
+    # special case for russian images
+    if ($language_symbol eq "ru") {
+        $options .= " -foundry cronyx -fontname helvetica";
+    }
+    `$ENV{'GSDLHOME'}/bin/script/gimp/flash_button-1.2.pl $options`;
+
+    # delete the unused dark image
+    if (-e util::filename_cat($image_dir, "nc$image_name" . "on.gif")) {
+        unlink(util::filename_cat($image_dir, "nc$image_name" . "on.gif"));
+    }
+
     } elsif ($image_type eq "document_button") {