home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cdity / bexchange / install_english < prev    next >
Encoding:
Text File  |  1995-06-08  |  3.2 KB  |  150 lines
  1. ;
  2. ; $VER: Installation de BGUI-Exchange v1.0 (28.5.1995)
  3. ;
  4. ;       Installer script pour BGUI-Exchange.
  5. ;
  6.  
  7.         (set UserLevel.old @user-level)
  8.  
  9. ; Initialisation des messages.
  10.  
  11.         (set Language 16)
  12.  
  13.         (set #WrongKickStart "\nBGUI-Exchange ne fonctionne qu'avec un KickStart >= à 2.04.")
  14.  
  15.  
  16.  
  17. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  18.  
  19.         (if (< (/ (getversion) 65536) 37)
  20.           (abort #WrongKickStart)
  21.         )
  22.  
  23.  
  24. (set LangueHelp "Select in which language you want the documentation.")
  25.  
  26. (set IconHelp "What kind of icons do you want:\n\n- 4 colors:          Standards icons\n- 8 colors MagicWB : Standard MagicWB\n- NewIcon :          Standard NewIcon")
  27.  
  28. (set bguiHelp "The bgui.library make easier the creation of GUI, and produce nicer GUI.\n\nbgui.library   (C) 1993-1995 Jan van den Baard")
  29.  
  30. ;
  31. ; Répertoire de destination
  32. ; *************************
  33. ;
  34.  
  35. (set Path.source (pathonly @icon) )
  36.  
  37. (set  Path.dest
  38.         (askdir
  39.                 (prompt "\nSelect or create a directory to install BGUI-Exchange.\n")
  40.                 (help @askdir-help)
  41.                 (default "Sys:Tools/Commodities")
  42.         )
  43. )
  44.  
  45.  
  46. ; Copie de l'executable
  47. ; **********************
  48. (copyfiles
  49.         (prompt "Copy of BGUI-Exchange")
  50.         (help @copyfiles-help)
  51.         (source Path.source)
  52.         (dest Path.dest)
  53.         (choices "BGUI-Exchange" "BGUI-Exchange.info")
  54. )
  55.  
  56.  
  57.  
  58. ; Copie de la documentation
  59. ; *************************
  60. (set Doc (askchoice
  61.             (prompt "Documentation of BGUI-Exchange")
  62.             (choices "Frensh" "English")
  63.             (help LangueHelp)
  64.             (default 1)
  65.  
  66.     )
  67. )
  68.  
  69.  
  70.     (if (= Doc 0)
  71.         (copyfiles
  72.             (source "BGUI-Exchange_FR.guide")
  73.             (dest Path.dest)
  74.             (newname "BGUI-Exchange.guide")
  75.             (infos)
  76.         )
  77.     )
  78.  
  79.     (if (= Doc 1)
  80.         (copyfiles
  81.             (source "BGUI-Exchange_ENG.guide")
  82.             (dest Path.dest)
  83.             (newname "BGUI-Exchange.guide")
  84.             (infos)
  85.         )
  86.     )
  87.  
  88.  
  89.  
  90.  
  91. ; On copie les icônes
  92. ; *******************
  93. (set Icon (askchoice
  94.             (prompt "What sort of icons do you want ?")
  95.             (choices "4 couleurs" "MagicWB" "NewIcon")
  96.             (help IconHelp)
  97.     )
  98. )
  99.  
  100.     ; MagicWB ?
  101.     ; *********
  102.     (if (= Icon 1)
  103.         (
  104.         (copyfiles
  105.             (source "Icons/EXE_MagicWb.info")
  106.             (dest Path.dest)
  107.             (newname "BGUI-Exchange.info")
  108.         )
  109.  
  110.         (copyfiles
  111.             (source "Icons/Guide_MagicWb.info")
  112.             (dest Path.dest)
  113.             (newname "BGUI-Exchange.guide.info")
  114.         )
  115.         )
  116.     )
  117.  
  118.     ; NewIcon ?
  119.     ; *********
  120.     (if (= Icon 2)
  121.         (
  122.         (copyfiles
  123.             (source "Icons/EXE_NewIcon.info")
  124.             (dest Path.dest)
  125.             (newname "BGUI-Exchange.info")
  126.         )
  127.  
  128.         (copyfiles
  129.             (source "Icons/Guide_NewIcon.info")
  130.             (dest Path.dest)
  131.             (newname "BGUI-Exchange.guide.info")
  132.         )
  133.         )
  134.     )
  135.  
  136.  
  137. ; Copie de la bgui.library
  138. ; ************************
  139. (copylib
  140.     (prompt "Copy of the bgui.library")
  141.     (source "libs/bgui.library")
  142.     (dest "Libs:")
  143.     (help bguiHelp)
  144.     (confirm)
  145. )
  146.  
  147. (set @default-dest Path.dest )
  148.         (exit)
  149.  
  150.