/*
 * MainActor/2 installation program, (c) 1996 by MainConcept, GbR
 */

mv2assoc = ';ASSOCFILTER=*.AVI,*.MOV,*.MPG,*.TGA,*.FLI,*.FLC,*.PCX,*.IFF,*.DL,*.GIF'

call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

say "Creating MainActor/2 folder and objects on desktop ..."

current = directory()

/* Create MainActor/2 folder */

rc = stream('ma2fldr.ico','c','query exists')
title="MainActor/2"
classname='WPFOLDER'
location='<WP_DESKTOP>'
setup='OBJECTID=<MA/2_Folder>;OPEN=DEFAULT'
if rc \= '' then setup = setup';ICONFILE='rc
result=SysCreateObject(classname,title,location,setup,replace)

/* Creating MainActor/2 object */

title = "MainActor/2"
classname = 'WPProgram'
location = '<MA/2_Folder>'
setup = 'OBJECTID=<MA/2>;EXENAME='current'\MActr.EXE;STARTUPDIR='current
result=SysCreateObject(classname,title,location,setup,replace)

/* Creating MainView/2 object */

title = "MainView/2"
classname = 'WPProgram'
location = '<MA/2_Folder>'
setup = 'OBJECTID=<MAVIEW/2>;EXENAME='current'\mainview.exe;STARTUPDIR='current''mv2assoc
result=SysCreateObject(classname,title,location,setup,replace)

/* Create the ModulePath Entry in the User Ini */

SysIni('USER', 'MainView/2', 'ModulePath', current)

/* Creating MainActor/2 english documentation object */

title = "English Documentation"
classname = 'WPProgram'
location = '<MA/2_Folder>'
setup = 'OBJECTID=<MADOCU/2>;EXENAME=view.exe;PARAMETERS='current'\MActr.inf'
result=SysCreateObject(classname,title,location,setup,replace)

/* Creating MainActor/2 german documentation object */

title = "German Documentation"
classname = 'WPProgram'
location = '<MA/2_Folder>'
setup = 'OBJECTID=<MADOCUG/2>;EXENAME=view.exe;PARAMETERS='current'\MActrg.inf'
result=SysCreateObject(classname,title,location,setup,replace)

say ""
say "Installation complete."
say ""
say "This version of MainActor/2 supports English, the default language, and German."
say "You can change the current language during runtime in the SETTINGS menu."
say ""

