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