home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / source / tlktbeta / samples / textfldr / install.cmd next >
Encoding:
Text File  |  1993-07-14  |  956 b   |  25 lines
  1. /* Register the TextFolder class and create an object instance. */
  2. '@ECHO OFF'
  3.  
  4. /* Load the REXX utility */
  5. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. Call SysLoadFuncs
  7.  
  8. /* Make sure the proper directories have been created and copy   */
  9. /* the required files to those directories.                      */
  10. Call SysMkDir '..\..\..\DLL'
  11. COPY 'textfldr.dll' '..\..\..\DLL'
  12.  
  13. /* Register the class with the Workplace Shell                   */
  14. if SysRegisterObjectClass( 'TextFolder', 'TEXTFLDR')
  15.         then say 'TextFolder class registered sucessfully.'
  16.         else say 'Error registering the TextFolder class.'
  17.  
  18. /* Create an object instance of the class                        */
  19. if SysCreateObject( 'TextFolder', 'TextOnlyFolder', '<WP_DESKTOP>',,
  20.                     'OBJECTID=TEXTFLDR001')
  21.         then say 'TextFolder instance created sucessfully.'
  22.         else say 'Error creating TextFolder instance.'
  23.  
  24. Exit 0
  25.