home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 19 Printer / 19-Printer.zip / pu2v15.zip / ICONS.CMD < prev    next >
OS/2 REXX Batch file  |  1995-12-10  |  2KB  |  62 lines
  1. /* REXX */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4.  
  5. this=directory()
  6. this=TRANSLATE(this)
  7. datadir=this || '\DATA'
  8. MD datadir
  9.  
  10. /* build folder */
  11. say 'Building Folder...'
  12. class='WPFolder'
  13. title='Print Utility/2'
  14. location='<WP_DESKTOP>'
  15. setup='ICONFILE=' || this || '\FOLDER.ICO;'
  16. setup=setup       || 'OBJECTID=<Print Utility/2 Folder>'
  17. result=SysCreateObject(class,title,location,setup,'U')
  18.  
  19. say 'Adding Objects To Folder...'
  20. /* build File Lister/2 */
  21. class='WPProgram'
  22. title='File Lister/2'
  23. location='<Print Utility/2 Folder>'
  24. setup='EXENAME=' || this || '\LISTER.EXE;PROGTYPE=PM;'
  25. setup=setup      || 'STARTUPDIR=' || this || ';'
  26. setup=setup      || 'OBJECTID=<File Lister/2>'
  27. result=SysCreateObject(class,title,location,setup,'U')
  28.  
  29. /* build PrtScr */
  30. class='WPProgram'
  31. title='PrtScr'
  32. location='<Print Utility/2 Folder>'
  33. setup='EXENAME=' || this || '\PRTSCR.EXE;PROGTYPE=PM;'
  34. setup=setup      || 'STARTUPDIR=' || this || ';'
  35. setup=setup      || 'OBJECTID=<PrtScr>'
  36. result=SysCreateObject(class,title,location,setup,'U')
  37.  
  38. /* build PSShow */
  39. class='WPProgram'
  40. title='PSShow'
  41. location='<Print Utility/2 Folder>'
  42. setup='EXENAME=' || this || '\PSSHOW.EXE;PROGTYPE=PM;'
  43. setup=setup      || 'STARTUPDIR=' || this || ';'
  44. setup=setup      || 'OBJECTID=<PSShow>'
  45. result=SysCreateObject(class,title,location,setup,'U')
  46.  
  47. /* build manual */
  48. class='WPProgram'
  49. title='Manual'
  50. location='<Print Utility/2 Folder>'
  51. setup='EXENAME=VIEW.EXE;PROGTYPE=PM;'
  52. setup=setup      || 'STARTUPDIR=' || this || ';'
  53. setup=setup      || 'PARAMETERS=' || this || '\PU2.INF;'
  54. setup=setup      || 'OBJECTID=<PU2_Manual>'
  55. result=SysCreateObject(class,title,location,setup,'U')
  56.  
  57. call SysDropFuncs
  58.  
  59. say 'Build of ICONS Complete...'
  60.  
  61. exit
  62.