home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwRexx.lha / Install_Fonts.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-06-26  |  635 b   |  38 lines
  1. /*    Install_Fonts
  2.  
  3.         Installs fonts, then re-starts Wordworth.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 18 June 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16.     RequestFile TITLE "Select drawer..." DRAWERSONLY
  17.     Drawer = Result
  18.  
  19.     IF (RC > 0) THEN
  20.         Exit
  21.  
  22.  
  23. IF Open('tempfile', 'ENV:Wordworth/WwFonts', R) THEN DO
  24.     WwFontsDir = ReadLn('tempfile')
  25.     Call Close('tempfile')
  26.  
  27.     Com = WwFontsDir || '//WwTools/InstallOutlines ' || Drawer
  28.  
  29.     Address Command Com
  30.  
  31.     RequestResponse "Do you wish to re-start Wordworth now?"
  32.     If (RC > 0) THEN
  33.         Exit
  34.  
  35.     Quit FORCE
  36.     Address Command 'Run Wordworth'
  37.  
  38. END