home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wpobj.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-10-28  |  1KB  |  41 lines
  1. /* REXX installation program for ColorPalette and StarColorPalette classes */
  2. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  3. call RxFuncAdd 'SysRegisterObjectClass', 'RexxUtil', 'SysRegisterObjectClass'
  4.  
  5. /* Register the object classes */
  6. rc    = SysRegisterObjectClass('ColorPalette','CLRPALET');
  7. if rc = 0 then
  8.     say 'Registration of ColorPalette class failed.';
  9. rc    = SysRegisterObjectClass('StarColorPalette','CLRPALET');
  10. if rc = 0 then
  11.     say 'Registration of StarColorPalette class failed.';
  12.  
  13. /* Create an instance of each class, open in palette view */
  14.  
  15. rc    = SysCreateObject('WPFolder',,
  16.                       'Palette Folder',,
  17.                       '<WP_DESKTOP>',,
  18.                       'OPEN=ICON;ICONPOS=55,50;OBJECTID=<PALETFLDR>',,
  19.                       'update');
  20. if rc = 0 then
  21.     say 'Creation of palette folder failed.';
  22. rc    = SysCreateObject('ColorPalette',,
  23.                       'Color Palette',,
  24.                       '<PALETFLDR>',,
  25.                       'OPEN=DEFAULT;OBJECTID=<CLRPALET>',,
  26.                       'replace');
  27. if rc = 0 then
  28.     say 'Creation of color palette failed.';
  29. rc    = SysCreateObject('StarColorPalette',,
  30.                       'Star^Color Palette',,
  31.                       '<PALETFLDR>',,
  32.                       'OPEN=DEFAULT;OBJECTID=<STARCLRPALET>',,
  33.                       'replace');
  34. if rc = 0 then
  35.     say 'Creation of star color palette failed.';
  36.  
  37. if rc = 1 then
  38.     say 'Successful completion';
  39.  
  40.  
  41.