home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 April / Computerworld_1996-04_cd.bin / ibm / programy / task_bar / makeobjs.cmd < prev    next >
Encoding:
Text File  |  1995-01-30  |  1.3 KB  |  38 lines
  1. /* v2.00 : Program to recreate the Taskbar program  */
  2. /*         workplace shell objects.                 */
  3. SIGNAL ON SYNTAX
  4.  
  5. CALL RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  6. CALL SysLoadFuncs
  7.  
  8. currentDir = DIRECTORY()
  9.  
  10. SAY "Creating/updating Taskbar program object."
  11. objectSetup = "OBJECTID=<Taskbar_RFY>;EXENAME="||currentDir||"\Taskbar.EXE;STARTUPDIR="||currentDir
  12. IF 0=SysCreateObject( "WPProgram","Taskbar","<WP_DESKTOP>",objectSetup,"update" ) THEN
  13.     DO
  14.         SAY "Unable to create program object."
  15.         EXIT
  16.     END
  17.  
  18. SAY "Creating/updating shadow in startup folder."
  19. objectSetup = "OBJECTID=<Taskbar_RFY_Shadow>;SHADOWID=<Taskbar_RFY>"
  20. IF 0=SysCreateObject( "WPShadow","Taskbar","<WP_START>",objectSetup,"update" ) THEN
  21.     DO
  22.         SAY "Unable to create shadow object."
  23.         EXIT
  24.     END
  25.  
  26. SAY "Taskbar program objects created."
  27. EXIT
  28. /*****************************************************************************/
  29.  
  30. /*****************************************************************************/
  31.  * Standard REXX program error handler
  32.  *****************************************************************************/
  33. SYNTAX:
  34.     SAY 'REXX error' rc 'in line' sigl
  35.     SAY "Instruction = "||SOURCELINE(sigl)
  36.     EXIT
  37. /*****************************************************************************/
  38.