|
Last change
on this file since 20 was 2, checked in by stevenhl, 8 years ago |
|
Import sources from cwmm-full.zip dated 2005-03-21
|
|
File size:
934 bytes
|
| Line | |
|---|
| 1 | /* */
|
|---|
| 2 | call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
|
|---|
| 3 | call SysLoadFuncs
|
|---|
| 4 |
|
|---|
| 5 |
|
|---|
| 6 | parse source . . sourceFile
|
|---|
| 7 |
|
|---|
| 8 | thedir=FILESPEC('drive', sourcefile)||FILESPEC('path', sourcefile)
|
|---|
| 9 | theDir=LEFT(theDir,LENGTH(theDir)-1)
|
|---|
| 10 |
|
|---|
| 11 | globalData._languagefile=theDir"\lang\lang.ini"
|
|---|
| 12 | theLang=getLanguage(globalData._languageFile)
|
|---|
| 13 | theTitle=SysIni(globalData._languagefile, thelang, "wpsobject")
|
|---|
| 14 | IF theTitle="ERROR:" THEN theTitle="Slide Show"
|
|---|
| 15 | rc=SysCreateObject("WPProgram", theTitle, "<WP_DESKTOP>", "EXENAME="||theDir||"\slide-show.exe;OBJECTID=<CW_SLIDESHOW_PGM>", "update" )
|
|---|
| 16 |
|
|---|
| 17 | EXIT
|
|---|
| 18 |
|
|---|
| 19 | getLanguage: PROCEDURE
|
|---|
| 20 |
|
|---|
| 21 |
|
|---|
| 22 | theLang=VALUE("LANG",,"OS2ENVIRONMENT")
|
|---|
| 23 | if theLang="" then return "EN"
|
|---|
| 24 | theLang=LEFT(theLang, 5)
|
|---|
| 25 | IF LENGTH(theLang)<2 then return "EN"
|
|---|
| 26 |
|
|---|
| 27 | theLang=TRANSLATE(RIGHT(theLang,2))
|
|---|
| 28 | /* Try to load an entry */
|
|---|
| 29 | rc=SysIni(ARG(1), theLang, "installed")
|
|---|
| 30 | IF rc="ERROR:" THEN return "EN"
|
|---|
| 31 |
|
|---|
| 32 | return TRANSLATE(RIGHT(theLang,2))
|
|---|
| 33 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
