Changeset 105


Ignore:
Timestamp:
Jul 30, 2021, 7:51:31 PM (4 years ago)
Author:
Gregg Young
Message:

Change to code page 1208; setup for translation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/warpin/Gotcha.WIS

    r90 r105  
    33
    44<WARPIN
    5      OS="OS2_3x"
    6      CODEPAGE=850
     5     VERSION="1.0.18"
     6     OS="OS2_4x"
     7     CODEPAGE=1208
    78>
    89
    … …  
    4748    return MsgStr
    4849</REXX>
    49 
    50 <TITLE>GOTCHA!</TITLE>
     50<REXX NAME=nls>
     51call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
     52call SysLoadFuncs
     53langs = "EN,FR,DE,NL,ES,SV,IT,CS,DA,RU,ZH,PL"
     54lang = translate(left(strip(value("LANG",,"OS2ENVIRONMENT")),2))
     55if pos(lang,langs) = 0 then lang = 'EN'
     56rc =WirexxPutEnv('prog','Lucide')
     57/*Make sure you change the help file object name when adding a new translation*/
     58select                                       
     59  when lang = 'FR' then do
     60                    /* Translate */     
     61    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     62    rc =WirexxPutEnv('uguide','Gotcha Help')
     63    rc =WirexxPutEnv('licensetxt','License')                               
     64    rc =WirexxPutEnv('readmetitle','LisezMoi')
     65    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     66    rc =WirexxPutEnv('accept','Veuillez prendre connaissance et accepter l''accord de licence suivant.')
     67    rc =WirexxPutEnv('target','Veuillez s‚lectionner le dossier de destination')
     68    rc =WirexxPutEnv('re_install','Si vous effectuez une mise
     69 jour de SearchPlus, le dossier d''installation par d‚faut sera celui actuellement utilis‚ par l''ancienne version.')
     70    rc =WirexxPutEnv('install','~Install')
     71    rc =WirexxPutEnv('license','~J''accepte')
     72    rc =WirexxPutEnv('next','~Suivant')
     73    rc =WirexxPutEnv('nextText','Select "Suivant" to continue.')
     74    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     75    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     76                        /* End Translate */
     77                    /* Update us if this translation is added */ 
     78    rc =WirexxPutEnv('readmefile','Readme_en')
     79    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     80  end
     81  when lang = 'DE' then do
     82                    /* Translate */     
     83    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     84    rc =WirexxPutEnv('uguide','Gotcha Help')
     85    rc =WirexxPutEnv('licensetxt','License')
     86    rc =WirexxPutEnv('readmetitle','Lies mich!')
     87    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     88    rc =WirexxPutEnv('accept','Bitte lesen Sie den folgenden Text und akzeptieren Sie die Lizenzvereinbarung.')
     89    rc =WirexxPutEnv('target','W„hlen Sie bitte das Zielverzeichnis.')
     90    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     91    rc =WirexxPutEnv('install','~Installieren')
     92    rc =WirexxPutEnv('license','St~imme zu')
     93    rc =WirexxPutEnv('next','W~eiter')
     94    rc =WirexxPutEnv('nextText','Zum Fortfahren "Weiter" ausw„hlen.')
     95    rc =WirexxPutEnv('cancelText','Zum Abbrechen "Cancel" ausw„hlen.')
     96    rc =WirexxPutEnv('installText','Bitte "Installieren" ausw„hlen, um die Installation des Archivs zu starten.')
     97                    /* End Translate */
     98                    /* Update us if this translation is added */
     99    rc =WirexxPutEnv('readmefile','Readme_en')
     100    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     101  end
     102  when lang = 'NL' then do
     103                   /* Translate */     
     104    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     105    rc =WirexxPutEnv('uguide','Gotcha Help')
     106    rc =WirexxPutEnv('licensetxt','License').                             
     107    rc =WirexxPutEnv('readmetitle','ReadMe')
     108    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     109    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     110    rc =WirexxPutEnv('target','Please select a target directory.')
     111    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     112    rc =WirexxPutEnv('install','~Install')
     113    rc =WirexxPutEnv('license','I ~accept')
     114    rc =WirexxPutEnv('next','~Next')
     115    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     116    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     117    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')               
     118                    /* End Translate */
     119                    /* Update us if this translation is added */
     120    rc =WirexxPutEnv('readmefile','Readme_en')
     121    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp').
     122  end
     123  when lang = 'ES' Then Do
     124                    /* Translate */     
     125    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     126    rc =WirexxPutEnv('uguide','Gotcha Help')
     127    rc =WirexxPutEnv('licensetxt','License')
     128    rc =WirexxPutEnv('readmetitle','L‚ame')
     129    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     130    rc =WirexxPutEnv('accept','Por favor, lea y acepte el siguiente acuerdo de licencia (GPL).')
     131    rc =WirexxPutEnv('target','Por favor, seleccione el directorio de destino.')
     132    rc =WirexxPutEnv('re_install','Si est  actualizandoGotch!, el directorio de instalaci¢n por omisi¢n ser  el directorio actual.')
     133    rc =WirexxPutEnv('install','~Instalar')
     134    rc =WirexxPutEnv('license','~Acepto')
     135    rc =WirexxPutEnv('next','~Siguiente')
     136    rc =WirexxPutEnv('nextText','Seleccione ®Siguiente¯ para continuar.')
     137    rc =WirexxPutEnv('cancelText','Seleccione ®Cancelar¯ para abortar la instalaci¢n.')
     138    rc =WirexxPutEnv('installText','Pulse ®Instalar¯ para iniciar la instalaci¢n de este archivo.')
     139                    /* End Translate */
     140                    /* Update us if this translation is added */
     141    rc =WirexxPutEnv('readmefile','Readme_es')
     142    rc =WirexxPutEnv('uguidefile','gotcha_es.hlp')
     143  end
     144  when lang = 'SV' Then Do
     145                  /* Translate */     
     146    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     147    rc =WirexxPutEnv('uguide','Gotcha Help')
     148    rc =WirexxPutEnv('licensetxt','License')
     149    rc =WirexxPutEnv('readmetitle','ReadMe')
     150    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     151    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     152    rc =WirexxPutEnv('target','Please select a target directory.')
     153    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     154    rc =WirexxPutEnv('install','~Install')
     155    rc =WirexxPutEnv('license','I ~accept')
     156    rc =WirexxPutEnv('next','~Next')
     157    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     158    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     159    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     160                    /* End Translate */
     161                    /* Update us if this translation is added */
     162    rc =WirexxPutEnv('readmefile','Readme_en')
     163    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     164  end
     165  when lang = 'IT' Then Do
     166                /* Translate */     
     167    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     168    rc =WirexxPutEnv('uguide','Gotcha Help')
     169    rc =WirexxPutEnv('licensetxt','License')
     170    rc =WirexxPutEnv('readmetitle','ReadMe')
     171    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     172    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     173    rc =WirexxPutEnv('target','Please select a target directory.')
     174    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     175    rc =WirexxPutEnv('install','~Install')
     176    rc =WirexxPutEnv('license','I ~accept')
     177    rc =WirexxPutEnv('next','~Next')
     178    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     179    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     180    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     181                    /* End Translate */
     182                    /* Update us if this translation is added */
     183    rc =WirexxPutEnv('readmefile','Readme_en')
     184    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     185  end
     186  when lang = 'CS' Then Do
     187                  /* Translate */     
     188    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     189    rc =WirexxPutEnv('uguide','Gotcha Help')
     190    rc =WirexxPutEnv('licensetxt','License')
     191    rc =WirexxPutEnv('readmetitle','ReadMe')
     192    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     193    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     194    rc =WirexxPutEnv('target','Please select a target directory.')
     195    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     196    rc =WirexxPutEnv('install','~Install')
     197    rc =WirexxPutEnv('license','I ~accept')
     198    rc =WirexxPutEnv('next','~Next')
     199    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     200    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     201    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     202                    /* End Translate */
     203                    /* Update us if this translation is added */
     204    rc =WirexxPutEnv('readmefile','Readme_en')
     205    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     206  end
     207  when lang = 'DA' Then Do
     208                    /* Translate */     
     209    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     210    rc =WirexxPutEnv('uguide','Gotcha Help')
     211    rc =WirexxPutEnv('licensetxt','License')
     212    rc =WirexxPutEnv('readmetitle','ReadMe')
     213    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     214    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     215    rc =WirexxPutEnv('target','Please select a target directory.')
     216    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     217    rc =WirexxPutEnv('install','~Install')
     218    rc =WirexxPutEnv('license','I ~accept')
     219    rc =WirexxPutEnv('next','~Next')
     220    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     221    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     222    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     223                    /* End Translate */
     224                    /* Update us if this translation is added */
     225    rc =WirexxPutEnv('readmefile','Readme_en')
     226    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     227  end
     228  when lang = 'RU' Then Do
     229                  /* Translate */     
     230    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     231    rc =WirexxPutEnv('uguide','Gotcha Help')
     232    rc =WirexxPutEnv('licensetxt','License')
     233    rc =WirexxPutEnv('readmetitle','ReadMe')
     234    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     235    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     236    rc =WirexxPutEnv('target','Please select a target directory.')
     237    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     238    rc =WirexxPutEnv('install','~Install')
     239    rc =WirexxPutEnv('license','I ~accept')
     240    rc =WirexxPutEnv('next','~Next')
     241    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     242    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     243    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     244                    /* End Translate */
     245                    /* Update us if this translation is added */
     246    rc =WirexxPutEnv('readmefile','Readme_en')
     247    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     248  end
     249  when lang = 'PL' Then Do
     250                    /* Translate */     
     251    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     252    rc =WirexxPutEnv('uguide','Gotcha Help')
     253    rc =WirexxPutEnv('licensetxt','License')
     254    rc =WirexxPutEnv('readmetitle','ReadMe')
     255    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     256    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     257    rc =WirexxPutEnv('target','Please select a target directory.')
     258    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     259    rc =WirexxPutEnv('install','~Install')
     260    rc =WirexxPutEnv('license','I ~accept')
     261    rc =WirexxPutEnv('next','~Next')
     262    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     263    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     264    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     265                    /* End Translate */
     266                    /* Update us if this translation is added */
     267    rc =WirexxPutEnv('readmefile','Readme_en')
     268    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     269  end 
     270  when lang = 'ZH' Then Do
     271                  /* Translate */     
     272    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     273    rc =WirexxPutEnv('uguide','Gotcha Help')
     274    rc =WirexxPutEnv('licensetxt','License')
     275    rc =WirexxPutEnv('readmetitle','ReadMe')
     276    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     277    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     278    rc =WirexxPutEnv('target','Please select a target directory.')
     279    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     280    rc =WirexxPutEnv('install','~Install')
     281    rc =WirexxPutEnv('license','I ~accept')
     282    rc =WirexxPutEnv('next','~Next')
     283    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     284    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     285    rc =WirexxPutEnv('installText','Press "Install" in order to start installation of this archive.')
     286                    /* End Translate */
     287                    /* Update us if this translation is added */
     288    rc =WirexxPutEnv('readmefile','Readme_en')
     289    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     290  end
     291  otherwise do
     292    rc =WirexxPutEnv('title','Gotcha Screen Capture Utility')
     293    rc =WirexxPutEnv('uguide','Gotcha Help')
     294    rc =WirexxPutEnv('licensetxt','License')
     295    rc =WirexxPutEnv('readmefile','Readme_en')
     296    rc =WirexxPutEnv('uguidefile','gotcha_en.hlp')
     297    rc =WirexxPutEnv('readmetitle','ReadMe')
     298    rc =WirexxPutEnv('welcome','This package will install the Gotcha! Screen Capture Utility on your system.')
     299    rc =WirexxPutEnv('accept','Please read and accept the following license-agreement (GPL).')
     300    rc =WirexxPutEnv('target','Please select a target directory.')
     301    rc =WirexxPutEnv('re_install','If you are updating Gotcha, the default installation directory will be the current install directory.')
     302    rc =WirexxPutEnv('install','~Install')
     303    rc =WirexxPutEnv('license','I ~accept')
     304    rc =WirexxPutEnv('next','~Next')
     305    rc =WirexxPutEnv('nextText','Select "Next" to continue.')
     306    rc =WirexxPutEnv('cancelText','Select "Cancel" to abort installation.')
     307  end
     308end
     309return ''
     310</REXX>
     311<REXX NAME=get_env>
     312Parse Arg subject .
     313Return WirexxGetEnv(subject)
     314</REXX>
     315
     316<TITLE>Gotcha!</TITLE>
    51317
    52318<PCK INDEX=1
    53319     PACKAGEID="Netlabs\Gotcha\program\
    54320     TARGET="$(WARPIN_DEFAULTTOOLSPATH)\GOTCHA"
    55      TITLE="GOTCHA!"
     321     =("nls")
     322     TITLE="=("get_env title")"
    56323     SELECT
    57324     KILLPROCESS=gotchdll.dll
    … …  
    60327     CREATEOBJECT='REPLACE WPProgram|Gotcha! Quiet|<GOTCHAFOLDER>|EXENAME=$(1)\gotchaq.exe;STARTUPDIR=$(1);ICONFILE=$(1)\gotchaq.ico;OBJECTID=<Gotcha_Quiet>;'
    61328     CREATEOBJECT='REPLACE WPProgram|Gotcha!|<GOTCHAFOLDER>|EXENAME=$(1)\gotcha.exe;STARTUPDIR=$(1);ICONFILE=$(1)\gotcha.ico;OBJECTID=<RunGotcha>;'
    62      CREATEOBJECT='REPLACE WPProgram|Gotcha Help|<GOTCHAFOLDER>|EXENAME=VIEW.EXE;PARAMETERS=$(1)\gotcha_en.hlp;OBJECTID=<GOTCHAHELP>;'
    63      CREATEOBJECT='REPLACE WPShadow|README|<GOTCHAFOLDER>|SHADOWID=$(1)\README_EN;OBJECTID=<GOTCHAReadme>;'
    64      CREATEOBJECT='REPLACE WPShadow|LICENSE|<GOTCHAFOLDER>|SHADOWID=$(1)\COPYING;OBJECTID=<GOTCHALic>;'
     329     CREATEOBJECT='REPLACE WPProgram|=("get_env uguide")|<GOTCHAFOLDER>|EXENAME=VIEW.EXE;PARAMETERS=$(1)\=("get_env uguidefile");OBJECTID=<GOTCHAHELP>;'
     330     CREATEOBJECT='REPLACE WPProgram|README|<GOTCHAFOLDER>|EXENAME=e.exe;OBJECTID=<GOTCHAReadme>;TITLE==("get_env readmetitle");PROGTYPE=PM;PARAMETERS=$(1)\=("get_env readmefile");STARTUPDIR=$(1);'
     331     CREATEOBJECT='REPLACE WPProgram|LICENCE|<GOTCHAFOLDER>|EXENAME=e.exe;OBJECTID=<GOTCHALic>;TITLE==("get_env licensetxt");PROGTYPE=PM;PARAMETERS=$(1)\COPYING;STARTUPDIR=$(1);'
    65332     CREATEOBJECT='REPLACE WPShadow|Gotcha! Quiet|<WP_START>|SHADOWID=<Gotcha_Quiet>;OBJECTID=<SHADOW_GOTCHA_QUIET>;'
    66      =("ChkREQ GBM.DLL Package:Heiko Nitzsche\GBM - Generalised Bitmap Module\GBM Tools\1\76")
     333     =("ChkREQ GBM.DLL Package:Heiko Nitzsche\GBM - Generalised Bitmap Module\GBM Tools\1\77")
    67334     >"GOTCHA!"
    68335     </PCK>
    … …  
    80347
    81348<PAGE INDEX=1 TYPE=README>
    82 <NEXTBUTTON TARGET=2>~Next</NEXTBUTTON>
    83 <TEXT>This package will install the Gotcha! Application on your system.</TEXT>
    84 <README FORMAT=PLAIN EXTRACTFROMPCK="1">README_EN</README>
     349<NEXTBUTTON TARGET=2>=("get_env next")</NEXTBUTTON>
     350<TEXT>=("get_env welcome") =("get_env nexttext")</TEXT>
     351<README FORMAT=PLAIN EXTRACTFROMPCK="1">=("get_env readmefile")</README>
    85352</PAGE>
    86353
    87354<PAGE INDEX=2 TYPE=README>
    88 <NEXTBUTTON TARGET=3>~I agree</NEXTBUTTON>
     355<NEXTBUTTON TARGET=3>=("get_env license")</NEXTBUTTON>
    89356<TEXT>
    90 The License agreement for Gotcha! is the GNU GPL License:
     357=("get_env accept")
    91358</TEXT>
    92359<README FORMAT=PLAIN EXTRACTFROMPCK="1">COPYING</README>
    … …  
    96363
    97364<PAGE INDEX=3 TYPE=CONTAINER>
    98 <NEXTBUTTON TARGET=0>I~nstall</NEXTBUTTON>
    99 <TEXT>
    100 Please select the packages which are to be installed. You may change the target paths for the packages.
    101 </TEXT>
     365<NEXTBUTTON TARGET=0>=("get_env install")</NEXTBUTTON>
     366<TEXT>=("get_env target") =("get_env installtext") =("get_env canceltext") =("get_env re_install")</TEXT>
    102367</PAGE>
    103368
Note: See TracChangeset for help on using the changeset viewer.