tappytux: Adds descriptions and translations to modules

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1933 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-09-10 21:42:25 +00:00
parent f743387f69
commit 1c94c886bd
8 changed files with 227 additions and 100 deletions

View File

@@ -0,0 +1,44 @@
unit mod_tappymath;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
tappymodules;
type
{ TTappyMath }
TTappyMath = class(TTappyModule)
public
constructor Create; override;
procedure TranslateTextsToEnglish; override;
procedure TranslateTextsToPortuguese; override;
end;
implementation
{ TTappyWords }
constructor TTappyMath.Create;
begin
inherited Create;
end;
procedure TTappyMath.TranslateTextsToEnglish;
begin
ShortDescription := 'TappyMath - A game to learn arithmetics';
end;
procedure TTappyMath.TranslateTextsToPortuguese;
begin
ShortDescription := 'TappyMath - Um jogo para aprender aritmética';
end;
initialization
AddModule(TTappyMath.Create);
end.