FPCUnit:

1) improved localization of FPCUnitIDE. Patch from Marcelo B Paula. Part of bug #16484.
  2) Added FPCUnitIDE translations: Portuguese (from Marcelo B Paula) and Russian.

git-svn-id: trunk@25468 -

.gitattributes

@@ -784,7 +784,11 @@ components/fpcunit/ide/fpcunitproject1.pas svneol=native#text/plain
 components/fpcunit/ide/languages/fpcunitlazideintf.pb.po svneol=native#text/plain
 components/fpcunit/ide/languages/fpcunitlazideintf.po svneol=native#text/plain
 components/fpcunit/ide/languages/fpcunitlazideintf.ru.po svneol=native#text/plain
+components/fpcunit/ide/languages/strtestcaseopts.pb.po svneol=native#text/plain
+components/fpcunit/ide/languages/strtestcaseopts.po svneol=native#text/plain
+components/fpcunit/ide/languages/strtestcaseopts.ru.po svneol=native#text/plain
 components/fpcunit/ide/lib/README.txt svneol=native#text/plain
+components/fpcunit/ide/strtestcaseopts.pas svneol=native#text/pascal
 components/fpcunit/ide/testcaseopts.lfm svneol=native#text/plain
 components/fpcunit/ide/testcaseopts.pas svneol=native#text/pascal
 components/fpcunit/languages/guitestrunner.pb.po svneol=native#text/plain

components/fpcunit/ide/fpcunitide.lpk

@@ -16,7 +16,7 @@
       </Other>
     </CompilerOptions>
     <Version Minor="1"/>
-    <Files Count="2">
+    <Files Count="3">
       <Item1>
         <Filename Value="fpcunitlazideintf.pas"/>
         <HasRegisterProc Value="True"/>
@@ -26,6 +26,10 @@
         <Filename Value="fpcunitproject1.inc"/>
         <Type Value="Include"/>
       </Item2>
+      <Item3>
+        <Filename Value="strtestcaseopts.pas"/>
+        <UnitName Value="strtestcaseopts"/>
+      </Item3>
     </Files>
     <i18n>
       <EnableI18N Value="True"/>

components/fpcunit/ide/fpcunitide.pas

@@ -1,5 +1,5 @@
-{ This file was automatically created by Lazarus. Do not edit!
+{ Este arquivo foi automaticamente criado pelo Lazarus. Não edite!
-This source is only used to compile and install the package.
+  Este fonte é usado apenas para compilar e instalar o pacote.
  }
 
 unit fpcunitide; 
@@ -7,15 +7,15 @@ unit fpcunitide;
 interface
 
 uses
-  FPCUnitLazIDEIntf, LazarusPackageIntf;
+  FPCUnitLazIDEIntf, strtestcaseopts, LazarusPackageIntf;
 
 implementation
 
 procedure Register; 
 begin
-  RegisterUnit('FPCUnitLazIDEIntf',@FPCUnitLazIDEIntf.Register);
+  RegisterUnit('FPCUnitLazIDEIntf', @FPCUnitLazIDEIntf.Register); 
 end; 
 
 initialization
-  RegisterPackage('fpcunitide',@Register);
+  RegisterPackage('fpcunitide', @Register); 
 end.

components/fpcunit/ide/fpcunitlazideintf.pas

@@ -32,7 +32,7 @@ unit FPCUnitLazIDEIntf;
 interface
 
 uses
-  Classes, SysUtils, LazIDEIntf, ProjectIntf, Controls, Forms,testcaseopts;
+  Classes, SysUtils, LazIDEIntf, ProjectIntf, Controls, Forms, testcaseopts;
 
 type
   { TFPCUnitApplicationDescriptor }
@@ -298,7 +298,7 @@ begin
                    +'end;'+le;
   Result:='procedure '+TestCaseName+'.TestHookUp;'+le
     +'begin'+le
-    +'  Fail('+sWriteYourOwnTest+');'+le
+    +'  Fail('+QuotedStr(sWriteYourOwnTest)+');'+le
     +'end;'+le
     +le
     +setupMethod

components/fpcunit/ide/languages/strtestcaseopts.pb.po

@@ -0,0 +1,41 @@
+msgid ""
+msgstr ""
+"Content-Type: text/plain; charset=UTF-8\n"
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: \n"
+"Last-Translator: Marcelo Borges de Paula\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: strtestcaseopts.sbtncreate
+msgid "Create unit"
+msgstr "Criar unidade"
+
+#: strtestcaseopts.schksetup
+#, fuzzy
+#| msgid "Create Setup Menthod"
+msgid "Create Setup Method"
+msgstr "Criar Método Configuração"
+
+#: strtestcaseopts.schktear
+msgid "Create TearDown method"
+msgstr "Criar Método \"TearDown\""
+
+#: strtestcaseopts.sfrmtest
+msgid "TestCase Options"
+msgstr "Opções Testes Unitários"
+
+#: strtestcaseopts.sgrpfixture
+msgid "Fixture"
+msgstr "Combinações"
+
+#: strtestcaseopts.sgrpnames
+msgid "Names"
+msgstr "Nomes"
+
+#: strtestcaseopts.slbldefault
+msgid "Default Test Name"
+msgstr "Nome Padrão do Teste"
+

components/fpcunit/ide/languages/strtestcaseopts.po

@@ -0,0 +1,31 @@
+msgid ""
+msgstr "Content-Type: text/plain; charset=UTF-8"
+
+#: strtestcaseopts.sbtncreate
+msgid "Create unit"
+msgstr ""
+
+#: strtestcaseopts.schksetup
+msgid "Create Setup Method"
+msgstr ""
+
+#: strtestcaseopts.schktear
+msgid "Create TearDown method"
+msgstr ""
+
+#: strtestcaseopts.sfrmtest
+msgid "TestCase Options"
+msgstr ""
+
+#: strtestcaseopts.sgrpfixture
+msgid "Fixture"
+msgstr ""
+
+#: strtestcaseopts.sgrpnames
+msgid "Names"
+msgstr ""
+
+#: strtestcaseopts.slbldefault
+msgid "Default Test Name"
+msgstr ""
+

components/fpcunit/ide/languages/strtestcaseopts.ru.po

@@ -0,0 +1,39 @@
+msgid ""
+msgstr ""
+"Content-Type: text/plain; charset=UTF-8\n"
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: \n"
+"Last-Translator: Maxim Ganetsky <maxkill@mail.ru>\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: strtestcaseopts.sbtncreate
+msgid "Create unit"
+msgstr "Создать модуль"
+
+#: strtestcaseopts.schksetup
+msgid "Create Setup Method"
+msgstr "Создать настраивающий метод"
+
+#: strtestcaseopts.schktear
+msgid "Create TearDown method"
+msgstr "Создать завершающий метод"
+
+#: strtestcaseopts.sfrmtest
+msgid "TestCase Options"
+msgstr "Параметры теста"
+
+#: strtestcaseopts.sgrpfixture
+msgid "Fixture"
+msgstr "Общие методы"
+
+#: strtestcaseopts.sgrpnames
+msgid "Names"
+msgstr "Имена"
+
+#: strtestcaseopts.slbldefault
+msgid "Default Test Name"
+msgstr "Имя теста по умолчанию"
+

components/fpcunit/ide/strtestcaseopts.pas

@@ -0,0 +1,39 @@
+{ TestCase Opions Resource Strings
+
+  Copyright (C) 2010 Marcelo Borges de Paula
+
+  Estes fontes são software livre; você pode redistribuir e/ou modificá-los
+  sob os termos da GNU Library General Public License como publicada pela Free
+  Software Foundation; ou a versão 2 da Licença, ou (a sua escolha) qualquer
+  versão posterior.
+
+  Este código é distribuído na esperança de que seja útil, mas SEM
+  QUALQUER GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE ou
+  ADEQUAÇÃO A UMA FINALIDADE PARTICULAR. Veja a licença GNU General Public
+  License para maiores detalhes.
+
+  Você deve ter recebido uma cópia da licença GNU Library General Public
+  License juntamente com esta biblioteca; senão, escreva a Free Software
+  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+}
+unit strtestcaseopts;
+
+{$mode objfpc}{$H+}
+
+interface
+
+resourcestring
+  //visual components captions
+  sfrmTest = 'TestCase Options';
+  sgrpNames = 'Names';
+  slblDefault = 'Default Test Name';
+  sgrpFixture = 'Fixture';
+  schkSetup = 'Create Setup Method';
+  schkTear = 'Create TearDown method';
+  sbtnCreate = 'Create unit';
+
+
+implementation
+
+end.
+

components/fpcunit/ide/testcaseopts.lfm

@@ -1,93 +1,92 @@
 object TestCaseOptionsForm: TTestCaseOptionsForm
-  BorderStyle = bsDialog
+  Left = 1218
-  Caption = 'TestCase Options'
+  Height = 243
-  ClientHeight = 248
+  Top = 523
-  ClientWidth = 266
+  Width = 266
-  PixelsPerInch = 95
-  Position = poScreenCenter
   HorzScrollBar.Page = 265
   VertScrollBar.Page = 247
-  Left = 464
+  BorderStyle = bsDialog
-  Height = 248
+  Caption = 'TestCase Options'
-  Top = 464
+  ClientHeight = 243
-  Width = 266
+  ClientWidth = 266
+  OnCreate = FormCreate
+  Position = poScreenCenter
+  LCLVersion = '0.9.29'
   object gbNames: TGroupBox
-    Align = alTop
+    Left = 0
-    BorderSpacing.OnChange = nil
-    Caption = 'Names'
-    ClientHeight = 72
-    ClientWidth = 262
-    ParentColor = True
-    TabOrder = 0
     Height = 89
+    Top = 0
     Width = 266
+    Align = alTop
+    Caption = 'Names'
+    ClientHeight = 67
+    ClientWidth = 262
+    TabOrder = 0
     object Label1: TLabel
-      BorderSpacing.OnChange = nil
-      Caption = 'Default Test Name'
-      Color = clNone
-      FocusControl = edDefaultName
       Left = 16
-      Height = 12
+      Height = 18
       Top = 9
-      Width = 102
+      Width = 113
+      Caption = 'Default Test Name'
+      FocusControl = edDefaultName
+      ParentColor = False
     end
     object edDefaultName: TEdit
-      BorderSpacing.OnChange = nil
+      Left = 16
+      Height = 25
+      Top = 25
+      Width = 232
       MaxLength = 30
       TabOrder = 0
       Text = 'TTestCase1'
-      Left = 16
-      Height = 23
-      Top = 25
-      Width = 232
     end
   end
   object Panel1: TPanel
+    Left = 0
+    Height = 42
+    Top = 201
+    Width = 266
     Align = alBottom
-    BorderSpacing.OnChange = nil
     BevelOuter = bvNone
     ClientHeight = 42
     ClientWidth = 266
     FullRepaint = False
     TabOrder = 1
-    Height = 42
-    Top = 206
-    Width = 266
     object btnAccept: TButton
-      Caption = 'Create unit'
-      OnClick = btnAcceptClick
-      TabOrder = 0
       Left = 64
       Height = 25
       Top = 10
       Width = 120
+      Caption = 'Create unit'
+      OnClick = btnAcceptClick
+      TabOrder = 0
     end
   end
   object gbFixture: TGroupBox
-    Align = alClient
+    Left = 0
-    Caption = 'Fixture'
+    Height = 112
-    ClientHeight = 100
-    ClientWidth = 262
-    ParentColor = True
-    TabOrder = 2
-    Height = 117
     Top = 89
     Width = 266
+    Align = alClient
+    Caption = 'Fixture'
+    ClientHeight = 90
+    ClientWidth = 262
+    TabOrder = 2
     object cbSetup: TCheckBox
+      Left = 22
+      Height = 21
+      Top = 11
+      Width = 152
       Caption = 'Create Setup Method'
       TabOrder = 0
-      Left = 22
-      Height = 23
-      Top = 11
-      Width = 216
     end
     object cbTeardown: TCheckBox
+      Left = 22
+      Height = 21
+      Top = 59
+      Width = 181
       Caption = 'Create TearDown method'
       TabOrder = 1
-      Left = 22
-      Height = 23
-      Top = 59
-      Width = 216
     end
   end
 end

components/fpcunit/ide/testcaseopts.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Buttons;
+  ExtCtrls, Buttons, strtestcaseopts;
 
 type
 
@@ -22,6 +22,7 @@ type
     Label1: TLabel;
     Panel1: TPanel;
     procedure btnAcceptClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     { private declarations }
   public
@@ -40,5 +41,17 @@ begin
   Close;
 end;
 
+procedure TTestCaseOptionsForm.FormCreate(Sender: TObject);
+begin
+  //
+  Caption := sfrmTest;
+  gbNames.Caption:= sgrpNames;
+  gbFixture.Caption:= sgrpFixture;
+  label1.Caption:= slblDefault;
+  cbSetup.Caption:= schkSetup;
+  cbTeardown.Caption:= schkTear;
+  btnAccept.Caption:= sbtnCreate;
+end;
+
 end.