home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / dxpsh10.zip / object.cmd < prev    next >
OS/2 REXX Batch file  |  1994-08-09  |  877b  |  29 lines
  1. /* OBJECT.CMD: A REXX application (c) Copyright 1994 by Larry R.   */
  2. /* Tubbs Jr. ALL RIGHTS RESERVED!  Installation for DXP Shell 1.0  */
  3.  
  4. /* call the Rexx Utility Library */
  5.  
  6. CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  7. CALL SysLoadFuncs
  8.  
  9. SAY " "
  10. SAY "Would you like to create a Program Object on the Desktop? y/n"
  11. PARSE UPPER PULL object
  12. IF object = "Y" THEN DO
  13.     CALL SysCreateObject "WPProgram", ,
  14.                          "DXP Shell", ,
  15.                          "<WP_DESKTOP>", ,
  16.                          "EXENAME=" || DIRECTORY() || "\dxpshell.exe;STARTUPDIR=" || DIRECTORY(), ,
  17.                          "replace"
  18.     SAY " "
  19.     SAY "Program Object Created - Install Complete"
  20.     SAY " "
  21. END /* if */
  22. ELSE DO
  23.     SAY " "
  24.     SAY "No program Object created - Install Complete"
  25.     SAY " "
  26. END  /* else */
  27.  
  28. CALL SysDropFuncs
  29.