home *** CD-ROM | disk | FTP | other *** search
- /* MANAGEIT demo installation */
- /* Copyright (c) 1995 Client Server Networking Inc. */
-
- call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'sysLoadFuncs'
- call SysLoadFuncs
- defaultdir=directory()||'\'
- cr='0d'x
-
- classname='WPFolder'
- title='MANAGEIT'||cr||' DEMO'
- location='<WP_DESKTOP>'
- setup='OBJECTID=<MGIT_demo>;ICONFILE='||defaultdir||'MANAGEIT.ICO;'
- result = SysCreateObject(classname, title, location, setup, 'R')
-
- classname='WPProgram'
- progtype='STARTUPDIR='||directory()||';'
- location='<MGIT_demo>'
-
- /* FILTER */
-
- title='FILTER'||cr||' demo'
- objectid='OBJECTID=<MGIT_F_demo>;'
- exename='EXENAME='||defaultdir||'FILTER.CMD;'
- setup=objectid||exename||progtype||'PARAMETERS=manual.inf FILTER:;'
- result = SysCreateObject(classname, title, location, setup, 'R')
-
- /* ACCESS */
-
- title='ACCESS'||cr||' program'
- objectid='OBJECTID=<MGIT_A_demo>;'
- exename='EXENAME='||defaultdir||'ACCESS.EXE;'
- setup=objectid||exename||progtype
-
- result = SysCreateObject(classname, title, location, setup, 'R')
-
-
- /* NOTIFY */
-
- title='NOTIFY'||cr||' demo'
- objectid='OBJECTID=<MGIT_N_demo>;'
- exename='EXENAME='||defaultdir||'NOTIFY.CMD;'
- setup=objectid||exename||progtype||'PARAMETERS=manual.inf NOTIFY:;'
- result = SysCreateObject(classname, title, location, setup, 'R')
-
- /* DUPS */
-
- title='DUPLICATES'||cr||' demo'
- objectid='OBJECTID=<MGIT_D_demo>;'
- exename='EXENAME='||defaultdir||'DUPS.CMD;'
- setup=objectid||exename||progtype||'PARAMETERS=manual.inf Duplicates:;'
- result = SysCreateObject(classname, title, location, setup, 'R')
-
- /* BILL IT */
-
- title='BILL IT'||cr||' demo'
- objectid='OBJECTID=<MGIT_BI_demo>;'
- exename='EXENAME='||defaultdir||'BILLIT.CMD;'
- setup=objectid||exename||progtype||'PARAMETERS=manual.inf Bill It:;'
- result = SysCreateObject(classname, title, location, setup, 'R')
-
- /* manual */
-
- title='ONLINE Ref'
- objectid='OBJECTID=<MGIT_B_demo>;'
- exename='EXENAME=view.exe;'
- setup=objectid||exename||progtype||'PARAMETERS=manual.inf introduction;'
- result = SysCreateObject(classname, title, location, setup, 'R')
-