home *** CD-ROM | disk | FTP | other *** search
/ Enter 1999 November / ENTER11_1.bin / OS2 / PMFOED / finst.cmd < prev    next >
Encoding:
Text File  |  1998-12-31  |  2.3 KB  |  66 lines
  1. /* REXX installation script for Display Font Editor */
  2. /* Copyright (C) 1998 by BigVic & Kolosoft Group */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. /*-------------------------- Initialization ------------------------------*/
  8. installdir = directory()
  9.  
  10. if GetYesNo( "Install Display Font Editor in "installdir ) == 0 then
  11.    exit
  12.  
  13.  
  14. /*------------------------- Create Display Font Editor folder ---------------------*/
  15.  
  16. param='ICONFILE='installdir'\finstfl.ICO;OBJECTID=<PMFOED_FLD>;ALWAYSSORT=Yes;ICONVIEWPOS=25,25,45,30'
  17. rc = SysCreateObject( "WPFolder","Display Font Editor","<WP_DESKTOP>",param,"REPLACE" )
  18. if rc then
  19.    say "Display Font Editor folder successfully created on desktop..."
  20. else
  21.    say "ERROR: Display Font Editor folder creating failed!"
  22.  
  23. /*------------------- Create Display Font Editor object ---------------------------*/
  24.  
  25. param='ICONFILE='installdir'\pmfoed.ICO;OBJECTID=<PMFOED_EXE>;EXENAME='installdir'\pmfoed.EXE;STARTUPDIR='installdir
  26. rc = SysCreateObject( "WPProgram", "Display Font Editor", "<PMFOED_FLD>",param,"REPLACE" )
  27.  
  28. if rc then
  29.    say "Display Font Editor object successfully created..."
  30. else 
  31.    say "ERROR: Display Font Editor object creating failed!"
  32.  
  33.  
  34. /*--------------- Create Display Font Editor Uninstall object -----------------------*/
  35.  
  36. param='ICONFILE='installdir'\funinst.ICO;EXENAME=*;PROGTYPE=PM;PARAMETERS=/C 'installdir'\funinst.CMD;STARTUPDIR='installdir
  37. rc = SysCreateObject( "WPProgram", "Uninstall Display Font Editor", "<PMFOED_FLD>",param,'REPLACE')
  38.  
  39. if rc then
  40.    say "Uninstall object successfully created..."
  41. else 
  42.    say "ERROR: Uninstall object creating failed!"
  43.  
  44.  
  45. /*-------------------------- Install DC User Pack Information -----------------*/
  46. param='PROGTYPE=PM;NOPRINT=YES;HELPPANEL=4083;EXENAME=VIEW.EXE;NOPRINT=YES;STARTUPDIR='installdir';PARAMETERS='installdir'\pmfoed.INF'
  47. rc = SysCreateObject("WPProgram","Display Font Editor Reference","<PMFOED_FLD>",param,'REPLACE')
  48.  
  49. exit
  50.  
  51. GetYesNo: procedure
  52.  
  53.    ok = 0
  54.  
  55.    do until ok
  56.       call charout, arg(1) || "? "
  57.       pull reply
  58.       reply = left(reply, 1)
  59.       ok = (reply = "Y") | (reply = "N")
  60.       if \ok then do
  61.          say 'Sorry. Please enter "Y" or "N".'
  62.       end
  63.    end
  64.  
  65. return (reply = "Y")
  66.