home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 May / PCO_5_97.ISO / FilesBBS / OS2 / WCAT21.ARJ / WCAT21.ZIP / instwpc.cmd < prev    next >
Encoding:
Text File  |  1995-11-12  |  997 b   |  27 lines
  1. /**********************************************************/
  2. /*                                                        */
  3. /* WatchCat 2.1 - Register and create WatchCat WPS object */
  4. /*                                                        */
  5. /* It is recommended to use INSTALL.EXE.                  */
  6. /*                                                        */
  7. /**********************************************************/
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
  10. call SysLoadFuncs;
  11.  
  12. /* register WatchCat class WPCat */
  13.  
  14. result = SysRegisterObjectClass("WPCat", "WPCAT");
  15.  
  16. if result then
  17. do
  18.   say "WPCat has been registered successfully";
  19.  
  20.   /* create WatchCat WPS object on desktop */
  21.  
  22.   if SysCreateObject("WPCat", "WatchCat", "<WP_DESKTOP>", "OBJECTID=<WP_CAT>")
  23.   then say "WatchCat WPS object has been created successfully.";
  24.   else say "WatchCat WPS object could not be created on desktop!";
  25. end
  26. else say "WatchCat class is not registered!";
  27.