home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / graphics / viewerprefs / viewerprefs.install < prev    next >
Encoding:
Text File  |  1998-03-02  |  3.9 KB  |  153 lines
  1. (welcome "Welcome to the ViewerPrefs installation utility.")
  2.  
  3. ; (abort #bad-kick)
  4.  
  5. (if (< (/ (getversion) 65536) 39)
  6.    (abort "You need at least Kickstart 3.0 to use ViewerPrefs.")
  7. )
  8. (complete 0)
  9.  
  10. ; Executable
  11. (set #defaultdir
  12.    (askdir
  13.       (prompt  "Where would you like to install the program and it's icon?")
  14.       (help    "The files will be copied directly into the directory you specify.")
  15.       (default "SYS:Prefs/")
  16.    )
  17. )
  18.  
  19. (set @default-dest #defaultdir)
  20. (if (= (exists @default-dest) 0) (makedir @default-dest))
  21.  
  22. (copyfiles
  23.    (source  "")
  24.    (choices "Viewers" "Viewers.info")
  25.    (dest    @default-dest)
  26. )
  27. (complete 25)
  28.  
  29. ; "Reset to Defaults" config
  30. (if
  31.    (askbool
  32.       (prompt  "Do you want the default config file to be installed (see help)?")
  33.       (help    "This is to enable the Reset to Defaults menu item.  You should install it regardless of whether you already have a config file you're using or not.")
  34.       (default 1)
  35.    )
  36.    (
  37.      (set config-dest
  38.        (askdir
  39.           (prompt  "Copy the default config where?")
  40.           (help    "The file 'orig_IDer.prefs' will be copied here.")
  41.           (default "s:")
  42.        )
  43.      )
  44.  
  45.      (if (= (exists config-dest) 0) (makedir config-dest))
  46.  
  47.      (copyfiles
  48.        (source  "")
  49.        (choices "def_IDer.prefs")
  50.        (dest    config-dest)
  51.      )
  52.  
  53.      (tooltype
  54.        (dest (tackon @default-dest "Viewers"))
  55.        (settooltype "DEFNAME" (tackon config-dest "def_IDer.prefs"))
  56.      )
  57.    )
  58. )
  59. (complete 50)
  60.  
  61. ; Catalogs
  62. (set #lang
  63.    (askoptions
  64.       (prompt  "Which languages would you like to install?")
  65.       (help    "Catalogs will be copied to Locale:Catalogs/<language>/IDerPrefs.catalog.  Language catalogs are by members of the Amiga Translators' Organisation.")
  66.       (choices "Dansk" "Deutsch" "English (built-in)" "Hrvatski" "Italiano" "Português" "Serbian" "Suomi")
  67.       (default 4)
  68.    )
  69. )
  70.  
  71. (if (= (exists "Locale:Catalogs") 0) (makedir "Locale:Catalogs"))
  72.  
  73. (set #i 0)
  74. (while
  75.    (set #language
  76.       (select #i "Dansk" "Deutsch" "English" "Hrvatski" "Italiano" "Português" "Serbian" "Suomi" "")
  77.    )
  78.    (
  79.       (if (AND (IN #lang #i) (<> #language "English"))
  80.         (
  81.           (set #sourcename ("Catalogs/%s/IDerPrefs.catalog" #language))
  82.           (set #destname   (tackon "Locale:Catalogs" #language))
  83.           (copylib
  84.              (source #sourcename)
  85.              (dest   #destname)
  86.           )
  87.         )
  88.       )
  89.       (set #i (+ #i 1))
  90.    )
  91. )
  92. (complete 75)
  93.  
  94. ; Docs
  95. (set docs
  96.    (askchoice
  97.       (prompt  "Which online help(.guide) file would you like to install?")
  98.       (help    "The language you choose will be copied to Help:<language>/ViewerPrefs_XXX.guide")
  99.       (choices "English" "Italiano" "Português")
  100.       (default 0)
  101.    )
  102. )
  103.  
  104. (if (= docs 0)
  105.     (
  106.        (if (= (exists "Help:English") 0) (makedir "Help:English"))
  107.  
  108.        (copyfiles
  109.           (source  "Docs/")
  110.           (choices "ViewerPrefs.guide" "ViewerPrefs.guide.info")
  111.           (dest    "Help:English/")
  112.        )
  113.  
  114.        (tooltype
  115.           (dest (tackon @default-dest "Viewers"))
  116.           (settooltype "HELPNAME" "Help:English/ViewerPrefs.guide")
  117.        )
  118.     )
  119. )
  120. (if (= docs 1)
  121.     (
  122.        (if (= (exists "Help:Italiano") 0) (makedir "Help:Italiano"))
  123.  
  124.        (copyfiles
  125.           (source  "Docs/")
  126.           (choices "ViewerPrefs_ITA.guide" "ViewerPrefs_ITA.guide.info")
  127.           (dest    "Help:Italiano/")
  128.        )
  129.  
  130.        (tooltype
  131.           (dest (tackon @default-dest "Viewers"))
  132.           (settooltype "HELPNAME" "Help:Italiano/ViewerPrefs_ITA.guide")
  133.        )
  134.     )
  135. )
  136. (if (= docs 2)
  137.     (
  138.        (if (= (exists "Help:Português") 0) (makedir "Help:Português"))
  139.  
  140.        (copyfiles
  141.           (source  "Docs/")
  142.           (choices "VPrefs-Portuguese.guide" "VPrefs-Portuguese.guide.info")
  143.           (dest    "Help:Português/")
  144.        )
  145.  
  146.        (tooltype
  147.           (dest (tackon @default-dest "Viewers"))
  148.           (settooltype "HELPNAME" "Help:Português/VPrefs-Portuguese.guide")
  149.        )
  150.     )
  151. )
  152. (complete 100)
  153.