home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / oct93 / develop / mui.lha / MUI / MUI-Install < prev    next >
Text File  |  1993-08-16  |  6KB  |  252 lines
  1. (transcript "Installing Magic User Interface System...")
  2.  
  3.  
  4. ; **************************************************************************
  5. ; **************************************************************************
  6. ; **************************************************************************
  7.  
  8.  
  9. (set @default-dest "SYS:")
  10.  
  11.  
  12. ; **************************************************************************
  13. ; **************************************************************************
  14. ; **************************************************************************
  15.  
  16.  
  17. (copylib
  18.     (help @copylib-help)
  19.     (prompt "Installing muimaster.library...")
  20.     (confirm)
  21.     (source "Libs/muimaster.library")
  22.     (dest
  23.         (askdir
  24.             (prompt "Please select a place for \"muimaster.library\".")
  25.             (help @askdir-help)
  26.             (default "LIBS:")
  27.         )
  28.     )
  29. )
  30.  
  31.  
  32. (complete 20)
  33.  
  34.  
  35. ; **************************************************************************
  36. ; **************************************************************************
  37. ; **************************************************************************
  38.  
  39.  
  40. (set classdest
  41.     (askdir
  42.         (prompt "Please select a place for the classes. A sub drawer called \"MUI\" will be created here.")
  43.         (help @askdir-help)
  44.         (default "SYS:Classes")
  45.         (newpath)
  46.     )
  47. )
  48.  
  49.  
  50. (makedir classdest)
  51.  
  52. (makedir (tackon classdest "MUI"))
  53.  
  54.  
  55. (foreach "Classes/MUI" "#?.mui"
  56.     (copylib
  57.         (prompt "Installing Classes...")
  58.         (source (tackon "Classes/MUI" @each-name))
  59.         (help @copylib-help)
  60.         (dest (tackon classdest "MUI"))
  61.     )
  62. )
  63.  
  64.  
  65. (complete 40)
  66.  
  67.  
  68. ; **************************************************************************
  69. ; **************************************************************************
  70. ; **************************************************************************
  71.  
  72.  
  73. (copylib
  74.     (prompt "Installing the preferences program...")
  75.     (source "Prefs/MUI")
  76.     (confirm)
  77.     (infos)
  78.     (noposition)
  79.     (help @copylib-help)
  80.     (dest
  81.         (askdir
  82.             (prompt "Please select a place for the preferences program.")
  83.             (help @askdir-help)
  84.             (default "SYS:Prefs")
  85.             (newpath)
  86.         )
  87.     )
  88. )
  89.  
  90.  
  91. (complete 50)
  92.  
  93.  
  94. ; **************************************************************************
  95. ; **************************************************************************
  96. ; **************************************************************************
  97.  
  98.  
  99. (if (askbool (help @askbool-help) (prompt "Do you want to install the additional BOOPSI images?"))
  100. (
  101.     (set boopsidest
  102.         (askdir
  103.             (prompt "Please select a place for the BOOPSI images.")
  104.             (help @askdir-help)
  105.             (default (tackon classdest "Images"))
  106.             (newpath)
  107.         )
  108.     )
  109.  
  110.     (foreach "Classes/Images" "#?.image"
  111.         (copylib
  112.             (prompt "Installing BOOPSI Images...")
  113.             (source (tackon "Classes/Images" @each-name))
  114.             (help @copylib-help)
  115.             (dest boopsidest)
  116.         )
  117.     )
  118. )
  119. )
  120.  
  121.  
  122. (complete 60)
  123.  
  124.  
  125. ; **************************************************************************
  126. ; **************************************************************************
  127. ; **************************************************************************
  128.  
  129.  
  130. (if (askbool (help @askbool-help) (prompt "Do you want to install the additional ILBM images?"))
  131. (
  132.     (copyfiles
  133.         (prompt "Installing ILBM brushes...")
  134.         (help @copyfiles-help)
  135.         (source "Images")
  136.         (pattern "#?.mb?")
  137.         (dest
  138.             (askdir
  139.                 (prompt "Please select a place for the ILBM brushes.")
  140.                 (help @askdir-help)
  141.                 (default "brush:")
  142.                 (newpath)
  143.             )
  144.         )
  145.     )
  146. )
  147. )
  148.  
  149.  
  150. (complete 70)
  151.  
  152.  
  153. ; **************************************************************************
  154. ; **************************************************************************
  155. ; **************************************************************************
  156.  
  157.  
  158. (if (askbool (help @askbool-help) (prompt "Do you want to install the english online help manual?"))
  159. (
  160.     (if (exists "libs:amigaguide.library")
  161.     (
  162.         (copyfiles
  163.             (prompt "Installing the english online help...")
  164.             (source "Docs/English/MUI.guide")
  165.             (help @copyfiles-help)
  166.             (dest
  167.                 (set manpath (askdir
  168.                     (prompt "Please select a place for the english online help.")
  169.                     (help @askdir-help)
  170.                     (default "HELP:english")
  171.                     (newpath)
  172.                 ))
  173.             )
  174.         )
  175.     )
  176.    (
  177.         (message "I couldn't locate \"amigaguide.libary\" on your system, you won't be able to use online help.")
  178.     )
  179.     )
  180. )
  181. )
  182.  
  183.  
  184. (complete 80)
  185.  
  186.  
  187. ; **************************************************************************
  188. ; **************************************************************************
  189. ; **************************************************************************
  190.  
  191.  
  192. (if (askbool (help @askbool-help) (prompt "Do you want to install the german online help manual?"))
  193. (
  194.     (if (exists "libs:amigaguide.library")
  195.     (
  196.         (copyfiles
  197.             (prompt "Installing the german online help...")
  198.             (source "Docs/Deutsch/MUI.guide")
  199.             (help @copyfiles-help)
  200.             (dest
  201.                 (askdir
  202.                     (prompt "Please select a place for the german online help.")
  203.                     (help @askdir-help)
  204.                     (default "HELP:deutsch")
  205.                     (newpath)
  206.                 )
  207.             )
  208.         )
  209.     )
  210.    (
  211.         (message "I couldn't locate \"amigaguide.libary\" on your system, you won't be able to use online help.")
  212.     )
  213.     )
  214. )
  215. )
  216.  
  217.  
  218. (complete 90)
  219.  
  220.  
  221.  
  222. ; **************************************************************************
  223. ; **************************************************************************
  224. ; **************************************************************************
  225.  
  226.  
  227. (set vernum (getversion "exec.library" (resident)))
  228. (set ver (/ vernum 65536))
  229.  
  230. (if (< ver 39)
  231. (
  232.     (startup "MUI"
  233.         (prompt "You are not running Kickstart 3.0 or higher, so I have to add some commands to your user-startup.")
  234.         (help @startup-help)
  235.         (command "assign add LIBS: \"" classdest "\"")
  236.     )
  237. )
  238. )
  239.  
  240.  
  241. (complete 99)
  242.  
  243.  
  244. ; **************************************************************************
  245. ; **************************************************************************
  246. ; **************************************************************************
  247.  
  248.  
  249.  
  250.  
  251. (exit)
  252.