home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / FLD-MW11.LZX / muiwbpatternfr_regged / Install < prev    next >
Encoding:
Text File  |  1996-04-29  |  2.1 KB  |  87 lines
  1.  
  2. ; Ceci est un teste de plusieurs caractéristiques d'Installer
  3. ; Imprimez "debugging info" si vous le lancez du CLI.
  4.  
  5. (transcript "\"MUI_WBPattern\" Résultats du script d'installation :")
  6.  
  7. (set prefpath
  8.    (askdir
  9.       (prompt "Où voulez-vous que \"MUI_WBPattern\" soit installé ?")
  10.       (help @askdir-help)
  11.       (default "SYS:Prefs/")
  12.       (newpath)
  13.    )
  14. )
  15.  
  16. (set @default-dest prefpath)
  17. (set name (tackon prefpath "MUI_WBPattern"))
  18.  
  19. (copyfiles
  20.         (prompt ("Copie de MUI_WBPattern vers le tiroir \"%s\" en cours..." prefpath))
  21.         (help @copyfiles-help)
  22.         (source "Prefs/")
  23.    (all)
  24.         (dest prefpath)
  25.         (confirm)
  26. )
  27.  
  28. (set startup-path
  29.    (askdir
  30.       (prompt "Où voulez-vous que l'icône de lancement soit installée ?")
  31.       (help @askdir-help)
  32.       (default "SYS:WBStartup/")
  33.    )
  34. )
  35.  
  36. (copyfiles
  37.         (prompt ("Copie de l'icône de lancement MUI_WBPattern vers le tiroir \"%s\" en cours..." startup-path))
  38.         (help @copyfiles-help)
  39.         (source "WBStartup/")
  40.    (all)
  41.         (dest startup-path)
  42.         (confirm)
  43. )
  44.  
  45. (tooltype
  46.    (prompt ("Changement de l'outil par défaut de l'icône de lancement par le nom de \"%s\" en cours..." name))
  47.    (dest (tackon startup-path "MUI_WBPattern"))
  48.    (setdefaulttool name)
  49.    (noposition)
  50. )
  51.  
  52. (tooltype
  53.    (prompt "Libération de la position de l'icône en cours...")
  54.    (dest name)
  55.    (noposition)
  56. )
  57.  
  58. (if (askbool (prompt "Voulez-vous installer la documentation ?") (help @askbool))
  59.    (
  60.       (set doc-path
  61.          (askdir
  62.             (prompt "Où voulez-vous que l'icône de la documentation soit installée ?")
  63.             (help @askdir-help)
  64.             (default prefpath)
  65.          )
  66.       )
  67.       (copyfiles
  68.          (prompt ("Copie de la documentation vers \"%s\" en cours..." doc-path))
  69.          (help @copyfiles-help)
  70.          (source "")
  71.          (pattern "MUI_WBPattern.guide#?")
  72.          (dest doc-path)
  73.          (confirm)
  74.       )
  75.       (if (>= (getversion) 39)
  76.          (set doc-tool "Multiview")
  77.          (set doc-tool "Amigaguide")
  78.       )
  79.       (tooltype
  80.          (dest (tackon doc-path "MUI_WBPattern.guide"))
  81.          (setdefaulttool doc-tool)
  82.          (noposition)
  83.       )
  84.    )
  85. )
  86.  
  87.