home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / heddley / install-heddley < prev    next >
Text File  |  1995-02-27  |  3KB  |  128 lines
  1. ; Heddley installation file
  2. ; version 1.12
  3. ; by and (C) Edd Dumbill
  4. ; 17/8/94
  5. ;
  6. ; documentation now gets bunged in the same directory
  7. ; as Heddley for the sake of on-line help support
  8. ;
  9.  
  10. (set @askmagichelp "If you use the MagicWB icons and backdrops you will probably want to use the MagicWB style icons for Heddley and def_guide.info. This install script will copy a MagicWB style icon to ENVARC:sys/def_guide.info.")
  11. (set @askrexx-help "The ARexx scripts are usually placed in the REXX: drawer")
  12. (set hdestdir
  13.     (askdir
  14.         (prompt "Give Heddley a home...")
  15.         (help @askdir-help)
  16.         (default "SYS:Tools")
  17.     )
  18. )
  19. (complete 10)
  20. (set magicwb
  21.     (askbool
  22.         (prompt "Do you want to install MagicWB icons?")
  23.         (help @askmagichelp)
  24.     )
  25. )
  26. (complete 20)
  27. (if (= magicwb 1)
  28.     (
  29.      (set hicon "Archive/Heddley.info")
  30.      (set guideicon "Archive/def_guide.info")
  31.      (set dicon "Archive/def_doc.info")
  32.     )
  33.     (
  34.      (set hicon "Archive/Heddley_old_unsnap.info")
  35.      (set guideicon "Archive/def_guide_old.info")
  36.      (set dicon "Archive/def_doc_old.info")
  37.     )
  38. )
  39. (complete 30)
  40. (copyfiles 
  41.     (prompt "Copying Heddley...")
  42.     (source "Archive/Heddley")
  43.     (dest hdestdir)
  44. )
  45. (complete 40)
  46. (copyfiles
  47.     (prompt "Copying icon...")
  48.     (source hicon)
  49.     (dest hdestdir)
  50.     (newname "Heddley.info")
  51. )
  52. (complete 50)
  53. (copyfiles
  54.     (prompt "Copying documentation...")
  55.     (source "Archive/")
  56.     (choices ("Heddley.guide") ("edd.gif"))
  57.     (dest hdestdir)
  58. )
  59. (complete 52)
  60. (copyfiles
  61.     (prompt "Copying manual page...")
  62.     (source "Archive/Heddley.man")
  63.     (dest hdestdir)
  64. )
  65. (complete 55)
  66. (set hpdestdir
  67.     ("%s/Pictures" hdestdir)
  68. )
  69. (makedir 
  70.     (hpdestdir)
  71. )
  72. (copyfiles
  73.     (prompt "Copying pictures...");
  74.     (source "Archive/Pictures")
  75.     (all)
  76.     (dest hpdestdir)
  77. )
  78. (complete 60)
  79. (copyfiles
  80.     (prompt "Copying default guide icon...")
  81.     (source guideicon)
  82.     (dest "ENVARC:sys/")
  83.     (newname "def_guide.info")
  84. )
  85. (complete 70)
  86. (copyfiles
  87.     (prompt "Copying documentation icon...")
  88.     (source guideicon)
  89.     (dest hdestdir)
  90.     (newname "Heddley.guide.info")
  91. )
  92. (complete 75)
  93. (copyfiles
  94.     (prompt "Copying manual page icon...")
  95.     (source dicon)
  96.     (dest hdestdir)
  97.     (newname "Heddley.man.info")
  98. )
  99. (complete 80)
  100. (set rdestdir
  101.     (askdir
  102.         (prompt "Choose where to put the ARexx scripts")
  103.         (help @askrexx-help)
  104.         (default "REXX:")
  105.         (newpath)
  106.     )
  107. )
  108. (complete 90)
  109. (copyfiles
  110.     (prompt "Copying ARexx scripts...")
  111.     (pattern "#?.rexx")
  112.     (source "Archive/")
  113.     (dest rdestdir)
  114. )
  115. (set @default-dest hdestdir)
  116. (complete 100)
  117. (exit
  118.     ("ARexx support scripts can be found in the ")
  119.     (rdestdir)
  120.     (" drawer (or partition). ")
  121.     ("Documentation can be found in the ")
  122.     (hdestdir)
  123.     (" drawer (or partition). Enjoy using Heddley!")
  124.     (" Please mail any bugs or suggestions to the author at")
  125.     (" ejad-a@minster.york.ac.uk (see documentation).")
  126. )
  127.  
  128.