Ticket #102: gettext_sprintf.patch

Dialog/Find.pm

@@ -256 +256 @@
     eval { $regex = qr/$search_term/m };
     if ($@) {
         my $main_window = Padre->ide->wx->main_window;
-        Wx::MessageBox(gettext("Cannot build regex for '%s'", $search_term), gettext("Search error"), Wx::wxOK, $main_window);
+        Wx::MessageBox(sprintf(gettext("Cannot build regex for '%s'"), $search_term), gettext("Search error"), Wx::wxOK, $main_window);
         return;
     }
     return $regex;

Dialog/ModuleStart.pm

@@ -118 +118 @@
     my @fields = qw(_module_name_ _author_name_ _email_ _builder_choice_ _license_choice_);
     foreach my $f (@fields) {
         if (not $data->{$f}) {
-            Wx::MessageBox(gettext("Field %s was missing. Module not created.", $f), gettext("missing field"), Wx::wxOK, $main_window);
+            Wx::MessageBox(sprintf(gettext("Field %s was missing. Module not created."), $f), gettext("missing field"), Wx::wxOK, $main_window);
             return;
         }
     }
@@ -135 +135 @@
     Module::Starter::App->run;
     @ARGV = ();
     chdir $pwd;
-    Wx::MessageBox(gettext("%s apparantly created.", $data->{_module_name_}), gettext("Done"), Wx::wxOK, $main_window);
+    Wx::MessageBox(sprintf(gettext("%s apparantly created."), $data->{_module_name_}), gettext("Done"), Wx::wxOK, $main_window);
 
     return;
 }

MainWindow.pm

@@ -918 +918 @@
     }
 
     if (not $file) {
-        Wx::MessageBox(gettext("Could not find file '%s'", $selection), gettext("Open Selection"), Wx::wxOK, $self);
+        Wx::MessageBox(sprintf(gettext("Could not find file '%s'"), $selection), gettext("Open Selection"), Wx::wxOK, $self);
         return;
     }
 
@@ -1369 +1369 @@
     my $code = $doc->text_get;
     eval $code;
     if ( $@ ) {
-        Wx::MessageBox(gettext("Error: %s", $@), gettext("Self error"), Wx::wxOK, $self);
+        Wx::MessageBox(sprintf(gettext("Error: %s"), $@), gettext("Self error"), Wx::wxOK, $self);
         return;
     }
     return;