home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega Top 1
/
os2_top1.zip
/
os2_top1
/
APPS
/
UTILS
/
P-Z
/
TSKBAR20
/
MAKEOBJS.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-31
|
1KB
|
38 lines
/* v2.00 : Program to recreate the Taskbar program */
/* workplace shell objects. */
SIGNAL ON SYNTAX
CALL RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
CALL SysLoadFuncs
currentDir = DIRECTORY()
SAY "Creating/updating Taskbar program object."
objectSetup = "OBJECTID=<Taskbar_RFY>;EXENAME="||currentDir||"\Taskbar.EXE;STARTUPDIR="||currentDir
IF 0=SysCreateObject( "WPProgram","Taskbar","<WP_DESKTOP>",objectSetup,"update" ) THEN
DO
SAY "Unable to create program object."
EXIT
END
SAY "Creating/updating shadow in startup folder."
objectSetup = "OBJECTID=<Taskbar_RFY_Shadow>;SHADOWID=<Taskbar_RFY>"
IF 0=SysCreateObject( "WPShadow","Taskbar","<WP_START>",objectSetup,"update" ) THEN
DO
SAY "Unable to create shadow object."
EXIT
END
SAY "Taskbar program objects created."
EXIT
/*****************************************************************************/
/*****************************************************************************/
* Standard REXX program error handler
*****************************************************************************/
SYNTAX:
SAY 'REXX error' rc 'in line' sigl
SAY "Instruction = "||SOURCELINE(sigl)
EXIT
/*****************************************************************************/