home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / WPSOBJ.LZH / WPSOBJ.CMD < prev   
OS/2 REXX Batch file  |  1992-07-11  |  1KB  |  27 lines
  1. /*******************************************************************/
  2. /*** Rexx Exec for Creating a new WPS Object  -  By Tony Nadalin ***/
  3. /*******************************************************************/
  4. trace 'o'
  5. parse arg WPSClass WPSLocation  WPSName
  6.  
  7. if WPSClass = '?' | WPSClass = '' then
  8.   do
  9.     Say 'WPSOBJ class_name location object_name'
  10.     Say ''
  11.     Say 'Valid class names are: WPClock, WPCountry, WPKeyboard, WPMouse'
  12.     Say '    WPPalette,  WPPrinter,  WPProgram,  WPShadow,   WPShredder'
  13.     Say '    WPSound, WPSpecialNeeds, WPSPooler, WPSystem, WPFileSystem'
  14.     Say '    WPDataFile,    WPInstall,  WPFolder,   WPDesktop,   WPDisk'
  15.     Say '    WPStartup, WPTemplates, WPDrives'
  16.     Say ''
  17.     Say 'Valid locations are:  WP_NOWHERE, WP_DESKTOP, WP_OS2SYS'
  18.     Say '       WP_TEMPS,WP_CONFIG, WP_START, WP_INFO, WP_DRIVES'
  19.     exit
  20.   end
  21.  
  22. call RxFuncadd 'SysLoadFuncs','RexxUtil','SysloadFuncs'
  23. call SysLoadFuncs
  24. call SysRegisterObjectClass WPSClass, 'PMWP'
  25. call SysCreateObject WPSClass, WPSName, '<'||WPSLocation||'>'
  26. Exit
  27.