home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / Programming / titlebar_ic / Install next >
Text File  |  1998-09-21  |  5KB  |  199 lines
  1. ;** $VER: titlebar.image_install 40.1 (7.9.98) by Massimo Tantignone
  2. ;**
  3.  
  4. ;******************************
  5. ;** MESSAGES (DEFAULT: ENGLISH)
  6.  
  7. (set msg_what    "What do you want to install?")
  8. (set msg_doc     "Documentation")
  9. (set msg_inc     "Include files")
  10. (set msg_fd      "Library .fd file")
  11. (set msg_seldr   "Select the destination drawer:")
  12. (set msg_whimage "Where do you want to copy the \"titlebar.image\" library?")
  13. (set msg_whdoc   "Where do you want to copy the documentation files?")
  14. (set msg_whinc   "Where do you want to copy the include files?\nYou should choose an already existing \"include\" directory.")
  15. (set msg_whfd    "Where do you want to copy the library .fd file?")
  16. ;(set msg_cpu000  "68000")
  17. ;(set msg_cpu020  "68020/030")
  18. ;(set msg_cpu040  "68040")
  19. ;(set msg_cpu060  "68060")
  20. (set whathelp    "Choose which part(s) of the titlebar.image package are to be installed.")
  21. (set dirhelp     "Select the drawer into which the \"titlebar.image\" library is to be copied.\nThe default is \"SYS:Classes/Images\".\nIf a newer version is already in place, it won't be overwritten.")
  22. (set dirhelp2    "Select the drawer into which the documentation is to be copied.")
  23. (set dirhelp3    "Select the directory into which the include files are to be copied.\nThe include directory itself won't be copied to the destination directory; only its contents will.\nThis means that you should choose an already existing \"include\" directory.")
  24. (set dirhelp4    "Select the drawer into which the library .fd file is to be copied.")
  25. ;(set cpuhelp     "If you have an accelerated Amiga, you can choose to\ninstall a more optimized version of titlebar.image.")
  26. (set msg_done    "For any question or bug report, please write to:\n\ntanti@intercom.it")
  27.  
  28. ;*******************************
  29. ;** ASK INSTALLATION PREFERENCES
  30.  
  31. (complete 5)
  32.  
  33. (set var_what
  34.    (askoptions
  35.       (prompt msg_what)
  36.       (help whathelp)
  37.       (choices "titlebar.image" msg_doc msg_inc msg_fd)
  38.       (default 1)
  39.    )
  40. )
  41.  
  42. (complete 10)
  43.  
  44. ;(set var_cpu
  45. ;   (askchoice
  46. ;      (prompt msg_selcpu)
  47. ;      (help cpuhelp)
  48. ;      (choices msg_cpu000 msg_cpu020 msg_cpu040 msg_cpu060)
  49. ;   )
  50. ;))
  51.  
  52. (if (bitand var_what 1)(
  53.    (set imagedir
  54.       (askdir
  55.          (default "SYS:Classes/Images")
  56.          (help dirhelp)
  57.          (prompt (cat msg_whimage "\n\n" msg_seldr))
  58.       )
  59.    )
  60.    (set imagedir (tackon imagedir ""))
  61. ))
  62.  
  63. (complete 20)
  64.  
  65. (if (bitand var_what 2)(
  66.    (set docdir
  67.       (askdir
  68.          (default @default-dest)
  69.          (help dirhelp2)
  70.          (prompt (cat msg_whdoc "\n\n" msg_seldr))
  71.       )
  72.    )
  73.    (set docdir (tackon docdir ""))
  74. ))
  75.  
  76. (complete 30)
  77.  
  78. (if (bitand var_what 4)(
  79.    (set incdir
  80.       (askdir
  81.          (default @default-dest)
  82.          (help dirhelp3)
  83.          (prompt (cat msg_whinc "\n\n" msg_seldr))
  84.       )
  85.    )
  86.    (set incdir (tackon incdir ""))
  87. ))
  88.  
  89. (complete 40)
  90.  
  91. (if (bitand var_what 8)(
  92.    (set fddir
  93.       (askdir
  94.          (default @default-dest)
  95.          (help dirhelp4)
  96.          (prompt (cat msg_whfd "\n\n" msg_seldr))
  97.       )
  98.    )
  99.    (set fddir (tackon fddir ""))
  100. ))
  101.  
  102. (if (bitand var_what 1)
  103.    (
  104.       (set @default-dest imagedir)
  105.    )
  106.    (
  107.       (set @default-dest "RAM:")
  108.    )
  109. )
  110.  
  111. ;****************************************
  112. ;** INSTALL FILES: TITLEBAR.IMAGE LIBRARY
  113.  
  114. (complete 50)
  115.  
  116. (if (bitand var_what 1)
  117.    (copylib
  118.       (source "Classes/Images/titlebar.image")
  119.       (dest imagedir)
  120.       (optional nofail)
  121.    )
  122. )
  123.  
  124. ;*******************************
  125. ;** INSTALL FILES: DOCUMENTATION
  126.  
  127. (complete 60)
  128.  
  129. (if (bitand var_what 2)
  130.    (copyfiles
  131.       (source "")
  132.       (choices "titlebar.doc"
  133.                "titlebar.doc.info"
  134.                "titlebar.guide"
  135.                "titlebar.guide.info"
  136.                "ReadMe!"
  137.                "ReadMe!.info")
  138.       (dest docdir)
  139.    )
  140. )
  141.  
  142. ;*******************************
  143. ;** INSTALL FILES: INCLUDE FILES
  144.  
  145. (complete 70)
  146.  
  147. (if (bitand var_what 4)
  148.    (copyfiles
  149.       (source "include")
  150.       (dest incdir)
  151.       (all)
  152.    )
  153. )
  154.  
  155. ;**************************
  156. ;** INSTALL FILES: .FD FILE
  157.  
  158. (complete 80)
  159.  
  160. (if (bitand var_what 8)
  161.    (copyfiles
  162.       (source "titlebarimage_cl.fd")
  163.       (dest fddir)
  164.    )
  165. )
  166.  
  167. ;**********************************
  168. ;** INSTALL FILES: PREFERENCES FILE
  169.  
  170. ;(complete 90)
  171.  
  172. ;(if (= 0 (exists "ENVARC:Images/titlebar.prefs" (noreq)))(
  173. ;   (copyfiles
  174. ;      (source "Env-Archive/Images/titlebar.prefs")
  175. ;      (dest "ENVARC:Images")
  176. ;   )
  177. ;   (copyfiles
  178. ;      (source "Env-Archive/Images/titlebar.prefs")
  179. ;      (dest "ENV:Images")
  180. ;   )
  181. ;))
  182.  
  183. (run "Avail FLUSH > NIL:")
  184.  
  185. ;***********
  186. ;** READ ME!
  187.  
  188. (complete 90)
  189.  
  190. (run "SYS:Utilities/MultiView \"ReadMe!\"" (safe))
  191.  
  192. ;*******
  193. ;** DONE
  194.  
  195. (complete 100)
  196.  
  197. (exit (cat "\n" msg_done))
  198.  
  199.