home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / htm2txt1.zip / MAKEOBJ.CMD < prev    next >
OS/2 REXX Batch file  |  1997-03-11  |  1KB  |  21 lines
  1. /* --------------------- REXX -------------------------------------------- */
  2. /* 96-07-12 or make Desktop Object for HTM2TXT                             */
  3. /* ----------------------------------------------------------------------- */
  4. /* note: start this command from the directory where HTM2TXT.CMD is held   */
  5. /* ----------------------------------------------------------------------- */
  6.    if ¬RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs') then call SysLoadFuncs
  7. /* ----------------------------------------------------------------------- */
  8.    f_name = '<WP_DESKTOP>'
  9.    p_name = '<HTM2TXT>'
  10.    p_text = 'HTML to Text'
  11.    p_date = 'Mar.11,1997'
  12.  
  13.    if SysSetObjectData(p_name,'TITLE='p_text'^'p_date) \=1 then do
  14.      call SysCreateObject 'WPProgram',p_text,f_name,'OBJECTID='p_name
  15.      call SysSetObjectData p_name,'EXENAME='directory()'\htm2txt.cmd'
  16.      call SysSetObjectData p_name,'PROGTYPE=PM'
  17.      call SysSetObjectData p_name,'ICONFILE='directory()'\htm2txt.ico'
  18.      call SysSetObjectData p_name,'TITLE='p_text'^'p_date
  19.      end
  20. /* ----------------------------------------------------------------------- */
  21.