home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 117 / af117a.adf / archives / af117a2.lzx / Viewfonts2 / Install_VF2 < prev    next >
Encoding:
Text File  |  1998-09-22  |  1.4 KB  |  75 lines
  1. ; $VER: Viewfonts 2 installer 2/2/97
  2. (set @default-dest "Workbench:Tools")
  3.  
  4. (if (exists "reqtools.library")
  5. (copylib
  6.   (prompt "Copying reqtools.library v38.1210")
  7.   (help @copylib-help)
  8.   (source "reqtools.library")
  9.   (dest "LIBS:")
  10.   (confirm)
  11. ))
  12.  
  13. (set @default-dest
  14.   (askdir
  15.     (prompt "Select a directory for program")
  16.     (help @askdir-help)
  17.     (default @default-dest)
  18.     (newpath)
  19.   )
  20. )
  21.  
  22. (if (NOT (exists (tackon @default-dest "Viewfonts2")))
  23.   (
  24.     (copyfiles
  25.       (prompt "Copying program and icon")
  26.       (help @copyfile-help)
  27.       (source "Viewfonts2")
  28.       (dest @default-dest)
  29.       (files)
  30.       (infos)
  31.       (confirm)
  32.     )
  33.   
  34.     (copyfiles
  35.       (prompt "Copying Install program")
  36.       (help @copyfile-help)
  37.       (source "Install_VF2")
  38.       (dest @default-dest)
  39.       (files)
  40.       (infos)
  41.       (confirm)
  42.     )
  43.   )
  44. )
  45.  
  46.  
  47. (set helpdir
  48.   (askdir
  49.     (prompt "Select a directory for the online help")
  50.     (help @askdir-help)
  51.     (default "HELP:")
  52.     (newpath)
  53.   )
  54. )
  55.  
  56. (if (NOT(exists(tackon helpdir "Viewfonts2.guide")))
  57. (copyfiles
  58.   (prompt "Copying online help")
  59.   (help @copyfile-help)
  60.   (source "Viewfonts2.guide")
  61.   (dest helpdir)
  62.   (files)
  63.   (infos)
  64.   (confirm)
  65. ))
  66.  
  67. (tooltype
  68.   (prompt "Setting HELPPATH in tooltypes")
  69.   (help  "Sets the path to the online help, in the program icon's tooltypes")
  70.   (dest (tackon @default-dest "Viewfonts2"))
  71.   (settooltype "HELPPATH" helpdir)
  72.   (confirm)
  73. )
  74.  
  75.