home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / os2 / grafika / pmview / update.cmd < prev    next >
Encoding:
Text File  |  1995-09-19  |  2.1 KB  |  66 lines
  1. /* REXX program to create a WPS object for PMView 0.92 */
  2.  
  3. 'cls'
  4.  
  5. say "Have you already installed PMView? That is, do you already have the"
  6. reply = GetYesNo('environment variables in your CONFIG.SYS')
  7. if \reply then do
  8.    say "Please run INSTALL (or do the steps in DIY.TXT) instead of this"
  9.    say "program. To run INSTALL, simply enter INSTALL at an OS/2 prompt."
  10.    end
  11.  
  12. say 'Creating "PMVIEW92" icon for desktop.'
  13.  
  14. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  15. Call sysloadfuncs
  16.  
  17. fullpath=Directory()
  18. if right(fullpath, 1) \= "\" then do
  19.    fullpath = fullpath || "\"
  20.    end
  21.  
  22. drop res.
  23. call SysFileTree fullpath || "PMVIEW.EXE", res, "OF"
  24. if res.1 = "RES.1" then do
  25.    say "Hmm, I can't find PMView.EXE here...."
  26.    say "I'm afraid I'll have to stop."
  27.    say
  28.    say "Please make sure to unzip PMView into this directory and"
  29.    say "re-run this program."
  30.    exit
  31.    end
  32. else do
  33.    assoc = '*.BMP,*.EPS,*.GIF,*.IFF,*.JPG,*.MSP,*.PBM,*.PCD,*.PCX,' ||,
  34.            '*.PGM,*.PIC,*.PNG,*.PPM,*.SHW,*.TGA,*.TIF,'
  35.    Call SysCreateObject 'WPProgram','PMView92','<WP_DESKTOP>','CCVIEW=YES;EXENAME='||fullpath||'\PMVIEW.EXE;PROGTYPE=PM;PARAMETERS=%*;STARTUPDIR='||fullpath||';ASSOCFILTER='||assoc,'R'
  36.    Say "Okay, I've created a desktop icon for PMView."
  37.    end
  38.  
  39. say "If you are a registered user, and you have put your name and code"
  40. say "in a file called MYCODE, then enter REGME at an OS/2 prompt to"
  41. say "register your new copy of PMView."
  42. say
  43. say "(If you are a registered user and have NOT put your name and code in"
  44. say "MYCODE, we recommend that you do so. All you have to do is create"
  45. say "a text file called MYCODE and put two lines in it -- your name as"
  46. say "the first line, and your code as the second line. Then you can"
  47. say "register your new copy by simply entering REGME at an OS/2 prompt.)"
  48. say
  49. say "Thanks for your interest in PMView."
  50.  
  51. exit
  52.  
  53. GetYesNo: procedure
  54. ok = 0
  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
  62.       say 'Huh? Please enter "Y" or "N".'
  63.       end
  64.    end /* loop */
  65. return (reply = "Y")
  66.