home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / BK-WW6E3.DMS / in.adf / Archive / WwTools.lha / InstallFonts < prev    next >
Encoding:
Text File  |  1996-10-22  |  1.3 KB  |  48 lines
  1. ; Digita Wordworth Font Installer v1.1, by Mark Jackson
  2. ; fixed to work with paths containing spaces!
  3.  
  4. Echo "*NDigita Wordworth Font Installer"
  5. Echo "Copyright (C) 1996 Digita International.*N"
  6.  
  7. If NOT Exists ENV:Wordworth/WwFonts
  8.     Echo "*NERROR: Wordworth does not seem to be installed correctly."
  9.     Echo "*NIf you run Wordworth from floppy-disks then you must boot your"
  10.     Echo "Amiga from the 'Wordworth' disk before running this installer."
  11.     Ask "*NPress Return to exit."
  12.     Quit
  13. EndIf
  14.  
  15. Type ENV:Wordworth/WwFonts >ENV:FontPath
  16. CD >ENV:CurrentDir
  17.  
  18. RequestChoice >ENV:Result "InstallFonts" "Do you want to add to the old*Nfontlist or overwrite it?" "Add" "Overwrite"
  19. If $Result eq 0
  20.     Echo "*NPlease wait... Deleting files"
  21.  
  22.     CD >NIL: "$FontPath"
  23.     CD >NIL: UFST
  24.     Delete >NIL: FontList
  25.     Delete >NIL: (#?.font|#?.otag)
  26. EndIf
  27.  
  28. CD >NIL: "$FontPath"
  29. CD >NIL: Intellifont
  30. CD >ENV:IntelliDir
  31. CD >NIL: "$CurrentDir"
  32.  
  33. RequestFile >ENV:NewFontPath TITLE "Select Fonts drawer..." POSITIVE "Install" NOICONS DRAWERSONLY DRAWER "$IntelliDir"
  34. If warn
  35.     UnSetEnv >NIL: FontPath
  36.     UnSetEnv >NIL: CurrentDir
  37.     UnSetEnv >NIL: IntelliDir
  38.     Quit
  39. EndIf
  40.  
  41. Echo "*NPlease wait... Installing fonts"
  42.  
  43. InstallOutlines $NewFontPath >NIL:
  44.  
  45. UnSetEnv >NIL: FontPath
  46. UnSetEnv >NIL: CurrentDir
  47. UnSetEnv >NIL: IntelliDir
  48.