home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / TextEditors&Viewers / TextViewer / mi23.lha / MIndicator2.3 / Install / InstallMI_I < prev    next >
Encoding:
Text File  |  1994-10-18  |  4.1 KB  |  224 lines
  1. (complete 0)
  2.  
  3. (set versionnumber (getversion "exec.library" (resident)))
  4. (set version (/ versionnumber 65536))
  5.  
  6. (set usage (exists "MIndicator_GB.guide" (noreq)))
  7.  
  8. (if (< version 37)
  9.  (
  10.   (abort "You need at least OS 2.0 to use MultiIndicator.")
  11.  )
  12. )
  13.  
  14. (set programdir
  15.  (askdir
  16.   (prompt  "Select the directory you want to install the program MultiIndicator.")
  17.   (help    "")
  18.   (default "SYS:")
  19.   (newpath)
  20.  )
  21. )
  22.  
  23. (set @default-dest programdir)
  24.  
  25. (if (= usage 0)
  26.  (copyfiles
  27.   (prompt "Copying MultiIndicator-mainprogram...")
  28.   (source "/MI")
  29.   (infos)
  30.   (dest programdir)
  31.  )
  32.  (copyfiles
  33.   (prompt "Copying MultiIndicator-mainprogram...")
  34.   (source "//MI")
  35.   (infos)
  36.   (dest programdir)
  37.  )
  38. )
  39.  
  40. (complete 42)
  41.  
  42. (if (= usage 0)
  43.  (copyfiles
  44.   (prompt  "Copying help to ENVARC:MIndicator/...")
  45.   (source  "/MI_GB.help")
  46.   (dest    "ENVARC:MIndicator")
  47.   (newname "MI.help")
  48.  )
  49.  (copyfiles
  50.   (prompt  "Copying help to ENVARC:MIndicator/...")
  51.   (source  "//MI_GB.help")
  52.   (dest    "ENVARC:MIndicator")
  53.   (newname "MI.help")
  54.  )
  55. )
  56.  
  57. (if (= usage 0)
  58.  (copyfiles
  59.   (prompt  "Copying help to ENV:MIndicator/...")
  60.   (source  "/MI_GB.help")
  61.   (dest    "ENV:MIndicator")
  62.   (newname "MI.help")
  63.  )
  64.  (copyfiles
  65.   (prompt  "Copying help to ENV:MIndicator/...")
  66.   (source  "//MI_GB.help")
  67.   (dest    "ENV:MIndicator")
  68.   (newname "MI.help")
  69.  )
  70. )
  71.  
  72. (complete 46)
  73.  
  74. (if (askbool
  75.   (prompt "\n\nDo you want to copy the MultiIndicatorGuide ?")
  76.   (help   "")
  77.  )
  78.  (
  79.   (set guidedir
  80.    (askdir
  81.     (prompt  "Select the directory you want to copy the guide for MultiIndicator.")
  82.     (help    "")
  83.     (default "SYS:")
  84.     (newpath)
  85.    )
  86.   )
  87.  
  88.   (set @default-dest guidedir)
  89.  
  90.   (if (= usage 0)
  91.    (
  92.     (if (< version 40)
  93.      (copyfiles
  94.       (prompt  "Copying MultiIndicatorGuide...")
  95.       (source  "/Documents/OS2.x+3.0/MIndicator_GB.guide")
  96.       (infos)
  97.       (dest guidedir)
  98.       (newname "MIndicator.guide")
  99.      )
  100.      (copyfiles
  101.       (prompt  "Copying MultiIndicatorGuide...")
  102.       (source  "/Documents/OS3.1/MIndicator_GB.guide")
  103.       (infos)
  104.       (dest guidedir)
  105.       (newname "MIndicator.guide")
  106.      )
  107.     )
  108.    )
  109.    (copyfiles
  110.     (prompt  "Copying MultiIndicatorGuide...")
  111.     (source  "MIndicator_GB.guide")
  112.     (infos)
  113.     (dest guidedir)
  114.     (newname "MIndicator.guide")
  115.    )
  116.   )
  117.  )
  118. )
  119.  
  120. (set @default-dest programdir)
  121.  
  122. (complete 72)
  123.  
  124. (if (askbool
  125.   (prompt "\n\nDo you want to copy the MultiIndicatorDoc ?")
  126.   (help   "")
  127.  )
  128.  (
  129.   (set docdir
  130.    (askdir
  131.     (prompt  "Select the directory you want to copy the doc for MultiIndicator.")
  132.     (help    "")
  133.     (default "SYS:")
  134.     (newpath)
  135.    )
  136.   )
  137.  
  138.   (set @default-dest docdir)
  139.  
  140.   (if (= usage 0)
  141.    (copyfiles
  142.     (prompt  "Copying MultiIndicatorDoc...")
  143.     (source  "/Documents/OS2.x+3.0/MIndicator_GB.doc")
  144.     (infos)
  145.     (dest docdir)
  146.     (newname "MIndicator.doc")
  147.    )
  148.    (copyfiles
  149.     (prompt  "Copying MultiIndicatorDoc...")
  150.     (source  "/OS2.x+3.0/MIndicator_GB.doc")
  151.     (infos)
  152.     (dest docdir)
  153.     (newname "MIndicator.doc")
  154.    )
  155.   )
  156.  )
  157. )
  158.  
  159. (set @default-dest programdir)
  160.  
  161. (complete 95)
  162.  
  163. (if (exists "Locale:Catalogs/Italiano")
  164.  (if (askbool
  165.    (prompt "\n\nDo you want to install the italian catalog ?")
  166.    (help   "")
  167.   )
  168.   (
  169.    (if (= usage 0)
  170.     (copyfiles
  171.      (prompt "Copying italian catalog...")
  172.      (source "/Catalogs/Italiano/MI.catalog")
  173.      (dest   "Locale:Catalogs/Italiano")
  174.     )
  175.     (copyfiles
  176.      (prompt "Copying italian catalog...")
  177.      (source "//Catalogs/Italiano/MI.catalog")
  178.      (dest   "Locale:Catalogs/Italiano")
  179.     )
  180.    )
  181.   )
  182.  )
  183. )
  184.  
  185. (complete 97)
  186.  
  187. (if (exists "Fonts:")
  188.  (if (askbool
  189.    (prompt "\n\nDo you want to install the MIFont ?")
  190.    (help   "")
  191.   )
  192.   (
  193.    (if (= usage 0)
  194.     (copyfiles
  195.      (prompt "Copying MIFont...")
  196.      (source "/MIFonts/MI.font")
  197.      (dest   "Fonts:")
  198.     )
  199.     (copyfiles
  200.      (prompt "Copying MIFont...")
  201.      (source "//MIFonts/MI.font")
  202.      (dest   "Fonts:")
  203.     )
  204.    )
  205.    (if (= usage 0)
  206.     (copyfiles
  207.      (prompt "Copying MIFont...")
  208.      (source "/MIFonts/MI/8")
  209.      (dest   "Fonts:MI")
  210.     )
  211.     (copyfiles
  212.      (prompt "Copying MIFont...")
  213.      (source "//MIFonts/MI/8")
  214.      (dest   "Fonts:MI")
  215.     )
  216.    )
  217.   )
  218.  )
  219. )
  220.  
  221. (complete 99)
  222.  
  223. (exit)
  224.