home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / MajorBank / Install_MajorBank < prev    next >
Encoding:
Text File  |  1998-10-06  |  43.3 KB  |  913 lines
  1. ;
  2. ; Script d'installation de MajorBank V1.90 Localisé.
  3. ; © 1997-98 Donat Michel (22/3/1998)
  4. ;
  5. ;=============================================================================
  6. ; English strings
  7.   
  8. (set def_language 0)
  9. (set def_doc 0)
  10.  
  11. (set #bad-kick "You must be using Kickstart 3.0+ to install MajorBank")
  12.    
  13. (set #introduction
  14.     (cat "\n\nWelcome to the MajorBank installation tool"
  15.          "\n\nWe will install MajorBank on your hard-disk"
  16.          "\n\n\nMajorBank is Copyright 1997-98 DONAT Michel"
  17.          "\n\nPlease read the Readme file and the documentation for more informations"
  18.     )
  19. )
  20.  
  21. (set @default-dest "Work:") 
  22.  
  23. (set #hd_prompt"Where do you want MajorBank to be installed?")
  24.  
  25. (set #hd_help
  26.     (cat "    You must choose your hard disk partition on which MajorBank will install.\n"
  27.          "The default partition is " @default-dest "\n\n"
  28.          "    The installation software will create a directory named 'MajorBank' located \n"
  29.          "    where you have choosen"
  30.     )
  31. )
  32.  
  33. (set #desarchivage "Unpacking...")
  34.  
  35. (set #copy_docs "Copy of the documentation files ...")
  36. (set #copy_Images "Copy of the Images drawers ...")
  37.  
  38. (set #assign_prompt "\n\nWe will assign the program in the user-startup file.")
  39.  
  40. (set #assign_help "\n This function allows the program to find its files.")
  41.  
  42. (set #quelle-doc "\nWich documentation to install?")
  43.  
  44. (set #quelle-doc-help
  45.     "Select which language you want the documentation in.")
  46.  
  47. (set #quelle-langue "\nWhich languages to install?")
  48.  
  49. (set #quelle-langue-help
  50.     (cat "    Amiga can be used with several languages.\n"
  51.          "If you want MajorBank to use your Workbench language, \n"
  52.          "a catalog must then be copied on your hard disk for each supported language.\n"
  53.          "    Just click on the language that you want to be available on your system.\n"
  54.          "    Note that the list displays more catalogs than available"
  55.     )
  56. )
  57.  
  58. (set #fin_install_hd
  59.     (cat "\n\n Here we are... Installation is   completed"
  60.          " Remember to reset your Amiga."
  61.          " MajorBnak will be found in \n"
  62.     )
  63. )
  64.  
  65. ;=============================================================================
  66. ; French strings
  67.  
  68. (if (= @language "français")
  69.     (
  70.         (set def_language 1)
  71.         (set def_doc 1)
  72.  
  73.         (set #bad-kick "MajorBank a besoin du système 3.0 ou plus : Installation impossible")
  74.  
  75.         (set #introduction
  76.             (cat "\n\nBienvenue dans l'utilitaire d'installation de MajorBank"
  77.                  "\n\nNous allons procéder à l'installation du programme sur votre Disque Dur"
  78.                  "\n\n\nMajorBank est Copyright 1997-98 DONAT Michel"
  79.                  "\n\nVeuillez lire le fichier ReadMe et la documentation pour de plus amples renseignements"
  80.             )
  81.         )
  82.  
  83.         (set @default-dest "Work:") 
  84.  
  85.         (set #hd_prompt"Où voulez-vous installer le répertoire MajorBank ?")
  86.  
  87.         (set #hd_help
  88.             (cat "    Vous devez choisir sur quelle partition de votre disque dur "
  89.                      "le logiciel MajorBank s'installera. Par défaut il s'agit de la partition qui porte "
  90.                  "le nom de " @default-dest "\n"
  91.                  "    Le programme d'installation créera un "
  92.                  "répertoire du nom de 'MajorBank' à l'endroit que vous avez choisi."
  93.             )
  94.         )
  95.  
  96.         (set #desarchivage "Désarchivage des archives...")
  97.  
  98.         (set #copy_docs "Copie des Documentations ...")
  99.         (set #copy_Images "Copie des répertoires Images ...")
  100.  
  101.         (set #assign_prompt "\n\nNous allons assigner le programme dans le fichier user-startup.")
  102.  
  103.         (set #assign_help "\n Cette fonction permet au programme de retrouver ses fichiers.")
  104.  
  105.         (set #quelle-doc "\nQuelle documentation doit être installée?")
  106.  
  107.         (set #quelle-doc-help
  108.              "Choisissez dans quelle langue vous voulez la documentation.")
  109.  
  110.         (set #quelle-langue "\nQuelles langues doivent être installées?")
  111.  
  112.         (set #quelle-langue-help
  113.             (cat "    L'Amiga peut être utilisé dans différentes langues. Si vous "
  114.                  "voulez que MajorBank utilise la même langue que votre Workbench, "
  115.                  "un catalogue doit alors être copié dans votre disque dur pour "
  116.                  "chaque langue supportée.\n"
  117.                  "    Cochez simplement les langues que vous souhaitez avoir "
  118.                  "disponibles dans votre systême.\n"
  119.                  "    Sachez qu'il n'y a pas de autant de catalogues"
  120.                  "disponibles que la liste le propose."
  121.             )
  122.         )
  123.  
  124.         (set #fin_install_hd
  125.             (cat "\n\n Voilà.. l'installation est   terminée  ..."
  126.                      " A la fin de celle-ci, n'oubliez pas de réinitialiser votre Amiga."
  127.                  " Le programme se trouvera dans le répertoire \n"
  128.             )
  129.         )
  130.     )
  131. )
  132. ;=============================================================================
  133. ; Deutsch strings
  134.  
  135. (if (= @language "deutsch")
  136.     (
  137.         (set def_language 2)
  138.         (set def_doc 2)
  139.  
  140.         (set #bad-kick "MajorBank braucht das System 3.0 oder höher: die Installierung ist unmöglich.")
  141.  
  142.         (set #introduction
  143.             (cat "\n\nWilkommen im Installierungsprogramm von MajorBank."
  144.                  "\n\nWir werden nun die Installierung des Programmes auf Festplatte durchführen."
  145.                  "\n\n\nMajorBank ist Copyright 1997-98 DONAT Michel"
  146.                  "\n\nLesen Sie bitte die ReadMe-Datei und die Domumentation für mehr Informationen."
  147.             )
  148.         )
  149.  
  150.         (set @default-dest "Work:") 
  151.  
  152.         (set #hd_prompt"Wo wollen Sie das Verzeichnis MajorBank erstellen?")
  153.  
  154.         (set #hd_help
  155.             (cat "    Sie müssen wählen, auf welcher Partition Ihrer Festplatte"
  156.                      "das Programm MajorBank installiert werden soll. Voreingestellt ist die Partition, "
  157.                  "die den Namen " @default-dest " trägt.\n"
  158.                  "    Das Installierungsprogramm wird ein Verzeichnis namens "
  159.                  "'Majordome' an der Stelle Ihrer Wahl erstellen."
  160.             )
  161.         )
  162.  
  163.         (set #desarchivage "Entpacken der Archive ...")
  164.  
  165.         (set #copy_docs "Kopieren der Dokumentationen ...")
  166.         (set #copy_Images "Kopieren des Verzeichnisses 'Images' ...")
  167.  
  168.         (set #assign_prompt "\n\nWir werden eine Zuweisung (Assign) in die User-Startup einfügen.")
  169.  
  170.         (set #assign_help "\n Dies erlaubt dem Programm sein Dateien zu finden.")
  171.  
  172.         (set #quelle-doc "\nWelche Dokumentation soll installiert werden?")
  173.  
  174.         (set #quelle-doc-help
  175.              "Wählen Sie in welcher Sprache Sie die Dokumentation wollen.")
  176.  
  177.         (set #quelle-langue "\nWelche Sprachen sollen installiert werden?")
  178.  
  179.         (set #quelle-langue-help
  180.             (cat "    Der Amiga kann mehrere Sprachen nutzen. Wenn Sie wollen, daß "
  181.                  "MajorBank die gleichen Sprachen benutzt wie Ihre Workbench, "
  182.                  "muß ein Katalog für jede dieser Sprachen auf Ihrer Festplatt "
  183.                  "kopiert werden.\n"
  184.                  "    Wählen Sie einfach die Sprachen, die Sie installiert haben wollen.\n"
  185.                  "    Es werden nicht Kataloge für alle in der Liste angezeigten Sprachen angeboten."
  186.             )
  187.         )
  188.  
  189.         (set #fin_install_hd
  190.             (cat "\n\n So ... die Installierung ist   fertig   ..."
  191.                      " Vergessen Sie nicht, nach Beendigung des Programmes den Rechner neuzustarten."
  192.                  " Das Programm befindet sich im Verzeichnis \n"
  193.             )
  194.         )
  195.  
  196.     )
  197. )
  198. ;=============================================================================
  199. ;
  200. (set cpu (database "cpu"))
  201. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  202. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  203.  
  204. ; percentage of the size of included ClassAct classes versus the whole
  205. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  206.  
  207. (set classact-complete 90)
  208.  
  209. ; ClassAct installer scripts 
  210.  
  211. ;***********************************
  212. ;English Strings 
  213. ;***********************************
  214. (set #classdest-prompt "Please select the directory where you want the ClassAct classes installed.\n(See help for details)")
  215. (set #classdest-help (cat "ClassAct is a GUI toolkit consisting of shared BOOPSI classes.\n\nSome programs require some or all of the ClassAct classes installed on your system. "
  216.     (if v39 (cat "OS 3.0 has a standard directory for BOOPSI classes, the SYS:Classes directory. It is recommended that you install ClassAct there.")
  217.             (cat "OS 2.0 does not have a standard place for disk resident BOOPSI classes. On OS 3.0 these classes are stored in the SYS:Classes directory. It is recommended that you create this directory and install ClassAct there.\nThis directory must be added in the LIBS: assign. This can be done by placing the command\nAssign >NIL: LIBS: SYS:Classes ADD\nto User-Startup. This installer will do this for you.")
  218.         )
  219.     )
  220.  
  221. )
  222. (set #classes-020 "Do you want to use the OS 3.0, 020 optimised version of ClassAct?")
  223. (set #help-020 "Some ClassAct libraries have versions optimised for use on 020 or better equipped OS 3.0 or later machines. If your Amiga is such equipped, you should install these. The 68000/2.0 versions will also work, but are slightly slower.")
  224. (set #noclasses-message "The directory you selected for your ClassAct classes is not a part of the LIBS: assign.\n\nIt is necessary to add this assign so that the classes will be found properly.")
  225. (set #creating-dir "Creating directory ")
  226. (set #usbackup-prompt "User-Startup will now be backed up.")
  227. (set #usbackup-help "This installer will next make a modification in User-Startup. Before doing this the old User-Startup will be backed up to S:User-Startup.old")
  228. (set #adding-1 "Adding ")
  229. (set #adding-2 " to LIBS: assign\n")
  230. (set #adding-help "This is necessary so that the custom classes can be found.")
  231. (set #junod-button "It seems you have a late Commodore 'V42' button.gadget installed on your system.\n\nClassAct's button.gadget is far more capable than this gadget, and we recommend that you replace it. The ClassAct button.gadget is backwards compatible to the Commodore gadget. Do you wish to back up the Commodore gadget and replace it with the ClassAct version?")
  232. (set #junod-backed "The Commodore 'V42' button.gadget has been backed up with the name button.gadget.v42.\n\nThe ClassAct button.gadget will be installed in its place.")
  233. (set #junod-kept "The Commodore 'V42' button.gadget was not replaced with the more capable ClassAct version.\n\nPrograms depending on the availability of ClassAct-only features will be likely to work wrong.")
  234. ;(set #caprefs-message "CAPrefs is a small utility that sets some user preferences for ClassAct applications. These include the bevel style (Thin/Gadtools/Xen), window backfills, and group label details.\n\nPlease use the ClassAct GUI prefs editor to alter the default settings provided. ClassAct prefs will be installed in your system Prefs drawer.\n\n")
  235. (set #caprefs-message "ClassAct has several user-configurable aspects that affect the look of ClassAct interfaces.\n\nThese settings can be changed using the ClassAct preferences tool that will be installed in yout Prefs drawer.\n\nA small tool, CAPrefs, will be added to your user-startup to load the settings on reboot.")
  236. (set #caprefs-startup-1 "Adding the command\n\n")
  237. (set #caprefs-startup-2 "\n\nTo your s:User-Startup.")
  238. (set #decompressing-classact "Compressed ClassAct distribution detected\n\nDecompressing to RAM:")
  239. (set #deleting-cltmp "Deleting temporary files")
  240.  
  241. ;***********************************
  242. ;Spanish Strings 
  243. ;***********************************
  244. (if (= @language "español")  
  245. (
  246.  (set #classdest-prompt "Por favor, seleccione el directorio donde desea instalar las clases de ClassAct.\n(Vea la ayuda para más detalles)")
  247.  (set #classdest-help (cat "ClassAct es un kit de interface gráfica consistente es clases compartidas BOOPSI.\n\nAlgunos programas requieren que algunas o todas de las clases de ClassAct estén instaladas en su sistema. "
  248.  
  249.     (if v39 (cat "El OS 3.0 tiene un directorio estándar para las clases BOOPSI: el directorio SYS:Classes. Se recomienda que instale ClassAct ahí.")
  250.             (cat "El OS 2.0 no tiene un sitio estándar para las clases BOOPSI residentes en disco. En el OS 3.0 esas clases son almacenadas en el directorio SYS:Classes. Se recomienda que cree este directorio e instale ClassAct ahí.\nEste directorio debe ser añadido a la asignación de LIBS:. Esto puede ser hecho colocando el comando\nAssign >NIL: LIBS: SYS:Classes ADD\nal User-Startup. Este instalador lo hará por usted.")
  251.         )
  252.     )
  253.  )
  254.  (set #classes-020 "¿Quiere usar la versión optimizada para OS 3.0 y 020 de ClassAct?")
  255.  (set #help-020 "Algunas librerías de ClassAct tienen versiones optimizadas para el uso en máquinas con OS 3.0 y 020 o superior. Si su Amiga es una de tales máquinas debería instalar estas. Las versiones 68000/2.0 también funcionarán, pero son ligeramente más lentas")
  256.  (set #noclasses-message "El subdirectorio que seleccionó para sus clases ClassAct no forma parte de la asignación de LIBS:.\n\nEs necesario añadir esta asignación para que las clases puedan ser localizadas adecuadamente.")
  257.  (set #creating-dir "Creando directorio ")
  258.  (set #usbackup-prompt "Ahora se hará una copia de seguridad del User-Startup.")
  259.  (set #usbackup-help "Este instalador hará ahora una modificación en el User-Startup. Antes de hacer esto se hará una copia de seguridad del User-Startup en S:User-Startup.old")
  260.  (set #adding-1 "Añadiendo ")
  261.  (set #adding-2 "a la asignación de LIBS:\n")
  262.  (set #adding-help "Esto es necesario para que las clases puedan ser encontradas.")
  263.  (set #junod-button "Parece que tiene el último button.gadget de Comodore ('V42') instalado en su sistema.\n\nEl button.gadget de ClassAct es superior a este gadget y le recomendamos que lo remplace. El button.gadget de ClassAct es compatible con el de Commodore. ¿Desea hacer una copia de seguridad del gadget de Commodore y remplazarlo por la versión de ClassAct?")
  264.  (set #junod-backed "Se ha hecho una copia de seguridad del button.gadget 'V42' de Commodore con el nombre button.gadget.v42.\n\nEl button.gadget de ClassAct será instalado en su lugar.")
  265.  (set #junod-kept "El button.gadget 'V42' de Commodore no fué remplazado con la versión superior de ClassAct.\n\nLos programas que dependan de la disponibilidad de las características de la versión de ClassAct funcionarán mal probablemente")
  266.  ;(set #caprefs-message "CAPrefs es una pequeña utilidad que inicializa algunas preferencias del usuario para las aplicaciones ClassAct. Estas incluyen el estilo de resaltado (Fino/GadTools/Xen), relleno de ventanas, y detalles de las etiquetas de grupo.\n\nPor favor, use las preferencias de interface de ClassAct en su cajón de sistema 'Prefs' .\n\n")
  267.  (set #caprefs-message "ClasAct tiene varios aspectos configurables por el usuario que afectan a la apariencia de las interfaces ClassAct.\n\nEstos ajustes pueden ser modificados usando la herramienta de preferencias de ClassAct que será instalada en su cajón 'Prefs'.\n\nUna pequeña herramienta, CAPrefs, será añadida a su user-startup para cargar los ajustes al arrancar.")
  268.  (set #caprefs-startup-1 "Añadiendo el comando\n\n")
  269.  (set #caprefs-startup-2 "\n\nA su s:User-Startup.")
  270.  (set #decompressing-classact "Distribución de Classact comprimida detectada\n\nDescomprimiendo a RAM:")
  271.  (set #deleteing-cltmp "Borrando ficheros temporales")
  272. )
  273. )
  274.  
  275. ;***********************************
  276. ; Italian Strings 
  277. ;***********************************
  278. (if (= @language "italiano")
  279. (
  280.  (set #classdest-prompt "Per favore scegli la directory in cui vuoi installare le classi ClassAct.\n(Vedi Aiuto per i dettagli)")
  281.  (set #classdest-help (cat "ClassAct è un toolkit GUI che consiste di classi BOOPSI condivise.\n\nCerti programmi richiedono che alcune o tutte le classi ClassAct siano installate sul tuo sistema. "
  282.     (if v39 (cat "Il SO 3.0 ha una directory standard per le classi BOOPSI, la directory SYS:Classes. Si raccomanda d'installare ClassAct proprio lì.")
  283.             (cat "Il SO 2.0 non ha un posto standard per le classi BOOPSI residenti su disco. Nell'OS 3.0 queste classi sono immagazzinate nella directory SYS:Classes. Si raccomanda di creare questa directory e d'installarvi ClassAct.\nQuesta directory dev'essere aggiunta nell'assign LIBS:. Ciò può essere fatto mettendo il comando\nAssign >NIL: LIBS: SYS:Classes ADD\nnella User-Startup. Questo script d'installazione lo farà per te.")
  284.         )
  285.     )
  286.  )
  287.  (set #classes-020 "Vuoi usare la versione ottimizzata per SO 3.0 e CPU 020 di ClassAct?")
  288.  (set #help-020 "Alcune librerie ClassAct hanno versioni ottimizate per l'uso su macchine equipaggiate con una CPU 020 o superiore e il SO 3.0. Se il tuo Amiga é così equipaggiato, dovresti installarle. Le versioni 68000/2.0 funzioneranno comunque, ma sono più lente.")
  289.  (set #noclasses-message "La directory che hai scelto per le tue classi ClassAct non é parte dell'assign LIBS:.\n\nE' necessario aggiungere questo assegnamento affinché le classi siano trovate correttamente.")
  290.  (set #creating-dir "Creo la directory ")
  291.  (set #usbackup-prompt "La User-Startup sarà ora copiata per sicurezza.")
  292.  (set #usbackup-help "Questa installazione ora modificherà la User-Startup. Prima di fare ciò, la vecchia User-Startup sarà copiata per sicurezza in S:User-Startup.old")
  293.  (set #adding-1 "Aggiungo ")
  294.  (set #adding-2 " all'assign LIBS:\n")
  295.  (set #adding-help "Questo è necessario per far trovare al sistema le classi custom.")
  296.  (set #junod-button "Sembra che hai installato un recente button.gadget 'V42' della Commodore sul tuo sistema.\n\nIl button.gadget di ClassAct é molto più potente di questo gadget, e raccomandiamo di sostituirlo. Il button.gadget di ClassAct é compatibile con il gadget Commodore. Vuoi copiare per sicurezza il gadget Commodore e sostituirlo con la versione ClassAct?")
  297.  (set #junod-backed "Il  button.gadget della Commodore 'V42' é stato copiato per sicurezza col nome button.gadget.v42.\n\nIl button.gadget di ClassAct sarà installato al suo posto.")
  298.  (set #junod-kept "Il button.gadget 'V42' della Commodore non é stato sostituito dalla versione ClassAct più potente.\n\nI programmi che dipendono dalla disponibilità delle caratteristiche di ClassAct probabilmente funzioneranno male.") 
  299.  ;(set #caprefs-message "CAPrefs è una piccola utility che setta alcune preferenze dell'utente per le applicazioni ClassAct. Tra queste, lo stile dei bevel (Thin/Gadtools/Xen), i backfill delle finestre, ed il dettaglio della group label.\n\nPer favore usa l'editor di preferenze ClassAct GUI per modificare i settaggi standard forniti. ClassAct prefs sarà installato nel cassetto Prefs del tuo sistema.\n\n")
  300.  (set #caprefs-message "ClassAct ha diversi aspetti configurabili dall'utente che modificano l'aspetto delle interfacce ClassAct.\n\nQuesti settaggi possono essere cambiati usando il programma di preferenze ClassAct sarà installato nel tuo cassetto Prefs.\n\nUna piccola utility, CAPrefs, sarà aggiunta alla tua user-startup per caricare i settaggi al reboot.")
  301.  (set #caprefs-startup-1 "Aggiungo il comando\n\n")
  302.  (set #caprefs-startup-2 "\n\nalla tua S:User-Startup.")
  303.  (set #decompressing-classact "Trovata una distribuzione ClassAct compressa\n\nLa decomprimo in RAM:")
  304.  (set #deleting-cltmp "Cancello i file temporanei")
  305. )
  306. )
  307.  
  308. ;***********************************
  309. ; Swedish Strings 
  310. ;***********************************
  311. (if (= @language "svenska")
  312. (
  313. (set #classdest-prompt "Var god välj den låda där du vill installera ClassAct-klasserna.\n(Se hjälpen för detaljer.)")
  314. (set #classdest-help (cat "ClassAct är en verktygslåda för skapandet av användargränssnitt (GUI), som består av ett antal så kallade delade BOOPSI-klasser.\n\nEn del program kräver att en del, eller alla, ClassAct-klasser är installerade i din Amiga. "
  315.  
  316.     (if v39 (cat "OS 3.0 har en standardlåda för BOOPSI-klasser, Sys:Classes. Det rekommenderas att du installerar ClassAct där.")
  317.             (cat "OS 2.0 har inte någon standardlåda för diskbaserade BOOPSI-klasser. I OS 3.0 lagras sådana klasser i lådan Sys:Classes. Det rekommenderas att du skapar denna låda, och installerar ClassAct där.\nDenna låda måste vara en del av Libs:-tilldelningen. Detta kan göras genom att placera kommandot\nAssign >NIL: Libs: Sys:Classes ADD\ntill filen S:User-Startup. Den här installeraren kommer att göra det åt dig.")
  318.         )
  319.     )
  320.  
  321. )
  322.  
  323. (set #classes-020 "Vill du använda OS 3.0-versionen av ClassAct, som är optimerad för en 68020?")
  324. (set #help-020 "Några ClassAct-klasser finns i versioner som är optmierade för en 68020 och OS 3.0 eller bättre. Om din Amiga har sådan utrustning (eller bättre), så bör du installera dem. Versionerna för 68000/2.0 fungerar också, men de är något långsammare.")
  325. (set #noclasses-message "Den låda du har valt för ClassAct-klasserna är inte en del av Libs:-tilldelningen.\n\nDet är nödvändigt att lägga till denna tilldelning, så att klasserna kan hittas utan problem.")
  326. (set #creating-dir "Skapar lådan ")
  327. (set #usbackup-prompt "S:User-Startup kommer nu att backas upp.")
  328. (set #usbackup-help "Den här installeraren kommer strax att modifiera filen S:User-Startup. Innan detta görs, kommer den gamla S:User-Startup att backas upp till S:User-Startup.old")
  329. (set #adding-1 "Lägger till ")
  330. (set #adding-2 " till Libs:-tilldelningen\n")
  331. (set #adding-help "Detta måste göras för att klasserna ska kunna hittas.")
  332. (set #junod-button "Det ser ut som om du har Commodores 'V42' button.gadget installed i din Amiga.\n\nClassActs button.gadget kan mycket mer än denna knapp, och vi rekommenderar att du ersätter den. ClassAct-versionen av button.gadget är bakåtkompatibel med Commodore-knappen. Vill du backa upp Commodore-knappen, och ersätta den med ClassAct-versionen?")
  333. (set #junod-backed "Commodores 'V42' button.gadget har backats upp som button.gadget.v42.\n\nClassActs button.gadget kommer att installeras istället.")
  334. (set #junod-kept "Commodores 'V42' button.gadget har inte ersatts av den mer kapabla ClassAct-versionen.\n\nProgram som förlitar sig på tillgängligheten av ClassAct-specifika funktioner kommer troligen inte att fungera som de ska.")
  335.  
  336. ;(set #caprefs-message "CAPrefs är ett litet program som sätter användarinställningarna för ClassAct-program. Dessa inställningar inkluderar ramstil (smal/gadtools/xen), fönsterbakgrunder samt detaljer rörande gruppetiketter.\n\nVar god använd ClassActs grafiska inställningsredigerare för att ändra de förvalda inställningarna. ClassActs inställningsredigerare kommer att installeras i din Amigas Prefs-låda.\n\n")
  337.  
  338. (set #caprefs-message "ClassAct har flera användardefinierbara aspekter som påverkar hur ClassAct-gränssnitt ser ut.\n\nDessa inställningar kan ändras genom att använda ClassActs inställningsredigerare, som kommer att installeras i din Amigas Prefs-låda.\n\nEtt litet program, CAPrefs, kommer att läggas till din S:User-Startup, för att läsa in inställningarna vid systemuppstart.")
  339. (set #caprefs-startup-1 "Lägger till kommandot\n\n")
  340. (set #caprefs-startup-2 "\n\ntill din s:User-Startup.")
  341. (set #decompressing-classact "Komprimerad ClassAct-distribution upptäckt\n\nPackar upp till Ram:")
  342. (set #deleting-cltmp "Raderar temporära filer")
  343. )
  344. )
  345. ;***********************************
  346. ; French Strings 
  347. ;***********************************
  348. (if (= @language "français")
  349. (
  350.  (set #classdest-prompt "Veuillez sélectionner le répertoire dans lequel vous désirez installer les classes de ClassAct.\n(Voir l'aide pour plus de détails)")
  351.  
  352.  (set #classdest-help  (cat "ClassAct est une boite à outils pour interfacesgraphiques, constituée de classes BOOPSI partagées.\n\nCertains programmes nécessitent qu'une partie ou que l'ensemble des classes de ClassAct soit installé sur votre système. "
  353.      (if v39 (cat "L'OS 3.0 dispose d'un répertoire standard pour le stockage des classes BOOPSI, le répertoire SYS:Classes. Il est recommandé d'installer ClassAct à cet endroit.")
  354.              (cat "L'OS 2.0 ne dispose pas d'un répertoire standard pour le stockage des classes BOOPSI. Sous l'OS 3.0, ces classes sont installées dans le répertoire SYS:Classes. Il est recommandé que vous créiez ce répertoire et que vous y installiez ClassAct.\nCe répertoire doit être ajouté à l'assignation LIBS:. Cela peut être fait en ajoutant la ligne de commande\nAssign >NIL: LIBS: SYS:Classes ADD\nà votre fichier User-Startup. Cet utilitaire d'installation le fera pour vous.")
  355.          )
  356.      )
  357.  
  358.  )
  359.  (set #classes-020 "Désirez-vous utiliser la version de ClassAct optimisée pour l'OS 3.0 et le processeur 68020 ?")
  360.  (set #help-020 "Certaines librairies de ClassAct existent en version optimisée pour les machines équipées de l'OS 3.0+ et d'un 68020+. Si c'est le cas de votre Amiga, vous devriez les installer. Les versions 68000/2.0 fonctionneront aussi, mais sont légèrement plus lentes.")
  361.  (set #noclasses-message "Le répertoire que vous avez sélectionné pour l'installation des classes de ClassAct ne fait pas partie de l'assignation LIB:.\n\nIl est nécessaire d'ajouter cette assignation afin que les classes soient correctement trouvées.")
  362.  (set #creating-dir "Création du répertoire ")
  363.  (set #usbackup-prompt "Le fichier User-Startup va à présent être sauvegardé.")
  364.  (set #usbackup-help "Ce script d'installation va apporter une modification au fichier User-Startup. Avant de le faire, le fichier User-Startup actuel sera sauvegardé en S:User-Startup.old")
  365.  (set #adding-1 "Ajout de ")
  366.  (set #adding-2 " à l'assignation LIBS:\n")
  367.  (set #adding-help "Ceci est nécessaire pour que les classes puissent être trouvées.")
  368.  (set #junod-button "Il semble que vous ayez une ancienne version Commodore 'V42' de button.gadget installée sur votre système.\n\nLe button.gadget de ClassAct est beaucoup plus performant que celui-ci et nous vous recommandons de le remplacer. Le button.gadget de ClassAct offre une compatibilité ascendante avec le gadget de Commodore. Désirez-vous effectuer une sauvegarde du gadget de Commodore et le remplacer par la version de ClassAct ?")
  369.  (set #junod-backed "Le button.gadget 'V42' de Commodore vient d'être sauvegardé avec le nom button.gadget.v42.\n\nLe button.gadget de ClassAct va être installé à sa place.")
  370.  (set #junod-kept "Le button.gadget 'V42' de Commodore n'a pas été remplacé par la version plus performante de ClassAct.\n\nLes programmes reposant sur des caractéristiques propres à ClassAct ont toutes les chances de ne pas fonctionner correctement.")
  371.  ;(set #caprefs-message "CAPrefs est un petit utilitaire qui met en place certaines préférences utilisateur pour les applications ClassAct. Ces préférences incluent le style de biseau (Thin/Gadtools/Xen), le remplissage de fond des fenêtres et le détail des titres de groupe.\n\nUtilisez l'éditeur de préférences de ClassAct pour modifier les réglages fournis par défaut. L'éditeur de préférences de ClassAct va être installé dans votre répertoire système Prefs.\n\n")
  372.  (set #caprefs-message "ClassAct présente différentes caractéristiques configurables par l'utilisateur, qui affectent l'apparence des interfaces basées sur ClassAct.\n\nCes réglages peuvent être modifiés avec l'éditeur de préférences de ClassAct, qui va être installé dans votre répertoire Prefs.\n\nUn petit utilitaire, CAPrefs, sera ajouté à votre fichier User-Startup pour charger les réglages au moment du démarrage.")
  373.  (set #caprefs-startup-1 "Ajout de la commande\n\n")
  374.  (set #caprefs-startup-2 "\n\nà votre fichier S:User-Startup.")
  375.  (set #decompressing-classact "Détection d'une distribution compressée de ClassAct\n\nDécompression en cours vers RAM:")
  376.  (set #deleting-cltmp "Effacement des fichiers temporaires")
  377. )
  378. )
  379. ;***********************************
  380. ; Deutsch Strings 
  381. ;***********************************
  382. (if (= @language "deutsch")
  383. (
  384.  (set #classdest-prompt "Wählen Sie bitte das Verzeichnis aus, in welches Sie die Klassen von ClassAct installieren wollen.\n(Schauen Sie in die Hilfe für weitere Details.)")
  385.  
  386.  (set #classdest-help  (cat "ClassAct ist ein Werzeugkasten für grafische Benutzeroberflächen, dieser besteht aus geteilten BOOPSI-Klassen.\n\nEinige Programme brauchen einen Teil der BOOPSI-Klassen oder sogar das komplette Paket. "
  387.      (if v39 (cat "Das OS 3.0 vefügt über ein spezielles Verzeichnis für die BOOPSI-Klassen, das Verzeichnis SYS:Classes. Es wird empfohlen ClassAct in dieses Verzeichnis zu installieren.")
  388.              (cat "Das OS 2.0 vefügt über kein spezielles Verzeichnis für die BOOPSI-Klassen. Unter OS 3.0 ist es das Verzeichnis SYS:Classes. Es wird empfohlen, dieses Verzeichnis anzulegen und dann ClassAct hineinzukopieren.\nDas Verzeichnis braucht ein 'Assign Add' für LIBS:. Dieses kann ermöglich werden, indem sie die Zeile \nAssign >NIL: LIBS: SYS:Classes ADD\nin die User-Startup einfügen. Dieser Installer wird das für Sie übernehmen.")
  389.          )
  390.      )
  391.  
  392.  )
  393.  (set #classes-020 "Wünschen Sie, daß die ClassAct Klassen, die für OS 3.0 und für den 020er Prozessor optimiert wurden, installiert werden?")
  394.  (set #help-020 "Einige ClassAct-Libraries existieren in optiemierter Version für OS 3.0 und höher und für den 020er Prozessor und höher. Wenn beides der Fall Ihrer Maschine ist, ist es empfehlsam die optimierten Versionen zu installieren. Die Versionen 68000/2.0 funktionieren ebenfalls, sind jedoch etwas langsamer.")
  395.  (set #noclasses-message "Das Verzeichnis, das Sie für ClassAct gewählt haben, ist kein Bestandteil des Assigns (der Zuweisung) LIBS:.\n\nEs ist zwingend notwendig, dieses Assign (diese Zuweisung) hinzuzufügen, damit ClassAct gefunden werden kann.")
  396.  (set #creating-dir "Anlegen des Verzeichnisses ")
  397.  (set #usbackup-prompt "Das Verzeichnis 's:user-startup' wird nun gespeichert.")
  398.  (set #usbackup-help "Dieses Install-Skript wir die User-Startup verändern. Bevor dies getan wird, wird die aktuelle User-Startup unter S:User-Startup.old gespeichert.")
  399.  (set #adding-1 "Hinzufügen von ")
  400.  (set #adding-2 " zum Assign (zu der Zuweisung) LIBS:\n")
  401.  (set #adding-help "Dies ist nötig, damit die ClassAct-Klassen vom System gefunden werden können.")
  402.  (set #junod-button "Es scheint als hätten Sie eine alte Version 'V42' von Commodore 'V42' vom button.gadget auf Ihrem System installiert.\n\nDas button.gadget von ClassAct ist viel leistungsfähiger als das installierte und wir empfehlen Ihnen, es zu aktualisieren. Das button.gadget von ClassAct ist vollständig kompatibel zu dem von Commodore. Wollen Sie eine Sicherheitskopie von Ihrem alten button.gadget erstellen lassen und den ClassAct-Ersatz benutzen?")
  403.  (set #junod-backed "Das button.gadget 'V42' von Commodore wurde unter dem Namen button.gadget.v42 gesichert.\n\nDas button.gadget von ClassAct wird nun an die Stelle des alten kopiert.")
  404.  (set #junod-kept "Das button.gadget 'V42' von Commodore wurde nicht durch die leistungsfähigere ClassAct Version ersetzt.\n\nDie Programme, die die Fähigkeiten des neuen ClassAct button.gadgets nutzen, werden wahrscheinlich nicht funktionieren.")
  405.  ;(set #caprefs-message "CAPrefs ist ein kleines Hilfsprogramm, welches den Benutzer einige Einstellungen für ClassAct Programme vornehmen läßt. Diese Einstellungen betreffen den Stil der Rahmen (Thin/Gadtools/Xen), die Hintergrundbilder von Fenster und die Einzelheiten der Gruppentitel.\n\nBenutzen Sie den ClassAct-Einsteller, um die Voreingestellten Parameter zu verändern. Das Programm wird auf Ihre Systempartition in das Verzeichnis Prefs kopiert.\n\n")
  406.  (set #caprefs-message "ClassAct besitzt einige veränderbare Eigenschaften, die das Aussehen von aus ClassAct basierte Benutzeroberflächen betreffen.\n\nDiese Einstellungen können mit dem ClassAct-Einsteller verändert werden, der in Ihrem Verzeichnis Prefs installiert werden wird.\n\nEin kleines Hilfsmittel, CAPrefs, wird zu Ihrer User-Startup hinzugefügt, um die Einstellungen beim Start zu laden.")
  407.  (set #caprefs-startup-1 "Hinzufügen des Befehls\n\n")
  408.  (set #caprefs-startup-2 "\n\nin die Datei S:User-Startup.")
  409.  (set #decompressing-classact "Habe eine komprimierte Version von ClassAct entdeckt.\n\nEntkomprimieren nach RAM: im Gange.")
  410.  (set #deleting-cltmp "Lösche die temporären Dateien")
  411. )
  412. )
  413.  
  414. (procedure install-classact ; call this procedure to copy the classes included in the Classes directory
  415. ; in your distribution dir.
  416.  
  417.      (set @user-level 2)
  418.  
  419.     (if (exists "ClassAct.lha")    ; ClassAct is compressed - need to decompress first
  420.         (                        ; Distribution includes LHEX
  421.             (working (cat #decompressing-classact))
  422.  
  423. ; ClassAct.lha contains paths/files "Classes/*", "C/CheckAssign", "Prefs/CAPrefs" and "Prefs/ClassAct"
  424.  
  425.             (run "lhex -aqfw=ram:ClassAct/ x ClassAct.lha")
  426.             (set #classact-source "RAM:ClassAct")
  427.         )
  428.         (set #classact-source (pathonly @icon))
  429.     )
  430.     (if (exists "ClassAct.lzx")    ; ClassAct is compressed - need to decompress first
  431.         (                        ; Distribution includes UNLZX
  432.             (working (cat #decompressing-classact))
  433.  
  434. ; ClassAct.lzx contains paths/files "Classes/*", "C/CheckAssign",  "Prefs/CAPrefs" and "Prefs/ClassAct"
  435.  
  436.             (run "unlzx -amq x ClassAct.lzx ram:ClassAct/")
  437.             (set #classact-source "RAM:ClassAct")
  438.         )
  439.         (set #classact-source (pathonly @icon))
  440.     )
  441.  
  442.     (if (exists (tackon #classact-source "Classes")) ; The archive contains a ClassAct library update.
  443.     (
  444.         (set comp-dest  (/ (* classact-complete 2) 10))
  445.         (set comp-libs  (/ (* classact-complete 3) 10))
  446.         (set comp-dirs  (/ (* classact-complete 4) 10))
  447.         (set comp-junod (/ (* classact-complete 5) 10))
  448.         (set comp-020   (/ (* classact-complete 6) 10))
  449.         (set comp-gad   (/ (* classact-complete 7) 10))
  450.         (set comp-im    (/ (* classact-complete 8) 10))
  451.         (set comp-prefs (/ (* classact-complete 9) 10))
  452.     
  453.         ; has the user installed ClassAct in CLASSACT: ?
  454.         (set #classact-dest (getassign "CLASSACT" "A"))
  455.         (set @default-dest #classact-dest)
  456.         (if (= #classact-dest "") (set #classact-dest "SYS:Classes"))
  457.         
  458.         ; is ClassAct already in SYS:Classes ?
  459.         (if (or (not (exists (tackon #classact-dest "Gadgets/layout.gadget") (noreq)))
  460.                 (= @user-level 2))
  461.             ; no, ask where it should be placed
  462.             (set #classact-dest
  463.                 (askdir
  464.                     (prompt #classdest-prompt)
  465.                     (help #classdest-help)
  466.                     (default #classact-dest)
  467.                     (newpath)
  468.                 )
  469.             )
  470.         )
  471.         
  472.         (complete comp-dest)
  473.         
  474.         (if (<> (run (cat "\"" (tackon #classact-source "C/CheckAssign\"") " LIBS: " #classact-dest)) 0)
  475.             (
  476.                 (message #noclasses-message)
  477.                 (if (not (exists #classact-dest))
  478.                     (makedir #classact-dest (prompt (cat #creating-dir #classact-dest)))
  479.                 )
  480.                 (set #addassign (cat "Assign >NIL: LIBS: " #classact-dest " ADD\n"))
  481.                 (startup "CLASSACT"
  482.                     (command #addassign)
  483.                     (prompt (cat #adding-1 #classact-dest #adding-2))
  484.                     (help #adding-help)
  485.                 )
  486.                 (run (#addassign))
  487.             )
  488.         )
  489.         
  490.         (complete comp-libs)
  491.         
  492.         (set #classact-gadgets (tackon #classact-dest "Gadgets"))
  493.         (set #classact-images (tackon #classact-dest "Images"))
  494.         
  495.         (if (not (exists #classact-gadgets (noreq)))
  496.             (makedir #classact-images
  497.                 (prompt (cat #creating-dir #classact-gadgets))
  498.             )
  499.         )
  500.         
  501.         (if (not (exists #classact-images (noreq)))
  502.             (makedir #classact-images
  503.                 (prompt (cat #creating-dir #classact-images))
  504.             )
  505.         )
  506.         
  507.         (complete comp-dirs)
  508.         
  509.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  510.             (if (and (= 2752514 (getversion "SYS:Classes/Gadgets/button.gadget"))
  511.                     (= 4868 (getsize "SYS:Classes/Gadgets/button.gadget")))
  512.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  513.                     (
  514.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  515.                         (message #junod-backed)
  516.                     )
  517.                     (message #junod-kept)
  518.                 )
  519.             )
  520.         )
  521.         
  522.         (complete comp-junod)
  523.         
  524.         (if (and (and cpu020 v39) (exists (tackon #classact-source "Classes/Gadgets/layout.gadget.020")))
  525.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default 1)))
  526.             (set classes-020 0)
  527.         )
  528.  
  529.         (complete comp-020)
  530.         
  531.         (set #source-path (tackon #classact-source "Classes/Gadgets"))
  532.         (foreach #source-path "#?.gadget"
  533.             (
  534.                 (set thislib (tackon #source-path @each-name))
  535.                 (if (and classes-020 (exists (cat thislib ".020")))
  536.                     (set thislib (cat thislib ".020"))
  537.                 )
  538.                 (copylib (source thislib)
  539.                     (dest #classact-gadgets)
  540.                     (newname @each-name)
  541.                     (prompt (cat #installing @each-name))
  542.                     (help #classdest-help)
  543.                     (optional "force" "askuser")
  544.                 )
  545.             )
  546.         )
  547.         
  548.         (complete comp-gad)
  549.         
  550.         (set #source-path (tackon #classact-source "Classes/Images"))
  551.         (foreach #source-path "#?.image"
  552.             (
  553.                 (set thislib (tackon #source-path @each-name))
  554.                 (if (and classes-020 (exists (cat thislib ".020")))
  555.                     (set thislib (cat thislib ".020"))
  556.                 )
  557.                 (copylib (source thislib)
  558.                     (dest #classact-images)
  559.                     (newname @each-name)
  560.                     (prompt (cat #installing @each-name))
  561.                     (help #classdest-help)
  562.                     (optional "force" "askuser")
  563.                 )
  564.             )
  565.         )
  566.         
  567.         (complete comp-im)
  568.  
  569.         (set #source-path (tackon #classact-source "Classes"))
  570.         (foreach #source-path "#?.class"
  571.             (
  572.                 (set thislib (tackon #source-path @each-name))
  573.                 (if (and classes-020 (exists (cat thislib ".020")))
  574.                     (set thislib (cat thislib ".020"))
  575.                 )
  576.                 (copylib (source thislib)
  577.                     (dest #classact-dest)
  578.                     (newname @each-name)
  579.                     (prompt (cat #installing @each-name))
  580.                     (help #classdest-help)
  581.                     (optional "force" "askuser")
  582.                 )
  583.             )
  584.         )
  585.     )
  586.     )
  587.     (if (exists (tackon #classact-source "Prefs/ClassAct")) ; The archive contains ClassAct prefs tools
  588.     (
  589.         (message #caprefs-message)
  590.         
  591.         (copylib (source (tackon #classact-source "Prefs/CAPrefs")) 
  592.             (dest "C:") 
  593.             (prompt (cat #installing "CAPrefs"))
  594.         )
  595.         (copylib (source (tackon #classact-source "Prefs/ClassAct"))
  596.             (dest "SYS:Prefs")
  597.             (prompt (cat #installing "ClassAct Prefs"))
  598.             (infos)
  599.         )
  600.         
  601.         (complete comp-prefs)
  602.         
  603.         (if (not (exists "ENVARC:ClassAct" (noreq)))
  604.             (
  605.                 (makedir "ENVARC:ClassAct"
  606.                     (prompt (cat #creating-dir "ENVARC:ClassAct"))
  607.                 )
  608.                 (textfile (dest "ENVARC:ClassAct/ClassAct")
  609.                     (append "")
  610.                 )
  611.             )
  612.         )
  613.         (set caprefs-cmd "C:CAPrefs >NIL:\n")
  614.  
  615.         (startup "CAPREFS"
  616.             (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2))
  617.             (help #caprefs-message)
  618.             (command caprefs-cmd)
  619.         )
  620.     )
  621.     )
  622.     
  623.     (if (or (exists "ClassAct.lha") (exists "ClassAct.lzx"))
  624.         (run "C:Delete RAM:ClassAct ALL"
  625.  
  626. ;        (delete "RAM:ClassAct" (all)
  627.  
  628.             (prompt #deleting-cltmp)
  629.         )
  630.     )
  631.  
  632.     (complete classact-complete) )
  633.  
  634. ; ************** END OF CLASSACT INSTALL PROCEDURE. COPY THE BLOCK ABOVE
  635. ; ************** TO YOUR CLASSACT APPLICATION INSTALLER.
  636.  
  637. ; ---------------------------------------------------------------------------
  638.  
  639. ;
  640. ;
  641. ;
  642. ; Teste la version du Kickstart si < 3.0 Installation impossible
  643. ;
  644. (complete 0)
  645. (if (< (/ (getversion) 65536) 39)
  646. (
  647.     (exit #bad-kick (quiet))
  648. ))
  649. ;
  650. ; Message introduction 
  651. ;
  652. (set #version "MajorBank Version 1.93")
  653.  
  654. (procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )
  655.  
  656. (working (cat "\n\n\n\n\n\n\n\n\n\n\n\n\n"#version"")) (WAITX)
  657. (working (cat "\n\n\n\n\n\n\n\n\n\n\n\n"#version"")) (WAITX)
  658. (working (cat "\n\n\n\n\n\n\n\n\n\n\n"#version"")) (WAITX)
  659. (working (cat "\n\n\n\n\n\n\n\n\n\n"#version"")) (WAITX)
  660. (working (cat "\n\n\n\n\n\n\n\n\n"#version"")) (WAITX)
  661. (working (cat "\n\n\n\n\n\n\n\n"#version"")) (WAITX)
  662. (working (cat "\n\n\n\n\n\n\n"#version"")) (WAITX)
  663. (working (cat "\n\n\n\n\n\n"#version"")) (WAITX)
  664. (working (cat "\n\n\n\n\n"#version"")) (WAITX)
  665. (working (cat "\n\n\n\n"#version"")) (WAITX)
  666. (working (cat "\n\n\n"#version"")) (WAITX)
  667. (working (cat "\n\n"#version"")) (WAITX)
  668. (working (cat "\n\n"#version"")) (WAITX)
  669. (working (cat "\n"#version"")) (WAITX)
  670. (working (cat "\n"#version"")) (WAITX)
  671.  
  672. (working (cat "\n"#version"\n\n\n\n\n\n\n\n\n\n\n\nby")) (WAITX)
  673. (working (cat "\n"#version"\n\n\n\n\n\n\n\n\n\n\nby")) (WAITX)
  674. (working (cat "\n"#version"\n\n\n\n\n\n\n\n\n\nby")) (WAITX)
  675. (working (cat "\n"#version"\n\n\n\n\n\n\n\n\nby")) (WAITX)
  676. (working (cat "\n"#version"\n\n\n\n\n\n\n\nby")) (WAITX)
  677. (working (cat "\n"#version"\n\n\n\n\n\n\nby")) (WAITX)
  678. (working (cat "\n"#version"\n\n\n\n\n\nby")) (WAITX)
  679. (working (cat "\n"#version"\n\n\n\n\nby")) (WAITX)
  680. (working (cat "\n"#version"\n\n\n\nby")) (WAITX)
  681. (working (cat "\n"#version"\n\n\nby")) (WAITX)
  682. (working (cat "\n"#version"\n\n\nby")) (WAITX)
  683.  
  684. (working (cat "\n"#version"\n\n\nby\n\n\n\n\n\n\n\n\nDonat Michel")) (WAITX) 
  685. (working (cat "\n"#version"\n\n\nby\n\n\n\n\n\n\n\nDonat Michel")) (WAITX) 
  686. (working (cat "\n"#version"\n\n\nby\n\n\n\n\n\n\nDonat Michel")) (WAITX) 
  687. (working (cat "\n"#version"\n\n\nby\n\n\n\n\n\nDonat Michel")) (WAITX) 
  688. (working (cat "\n"#version"\n\n\nby\n\n\n\n\nDonat Michel")) (WAITX) 
  689. (working (cat "\n"#version"\n\n\nby\n\n\n\nDonat Michel")) (WAITX) 
  690. (working (cat "\n"#version"\n\n\nby\n\n\nDonat Michel")) (WAITX) 
  691.  
  692. (message (cat "\n\n\n"#version"\n\n\nby\n\n\nDonat Michel")) (WAITX) 
  693.  
  694.  
  695. (complete 5)
  696. (message #introduction)
  697.  
  698. ;******************************************************************************** 
  699. ; installation sur le disque Dur
  700. ;********************************************************************************     
  701. ;======================== choix et assignement tiroir
  702.     
  703. (complete 10)
  704.  
  705. (set MajorBankDir
  706.      (tackon
  707.         (askdir
  708.            (prompt #hd_prompt)
  709.            (default @default-dest)
  710.            (help #hd_help )
  711.         )
  712.         "MajorBank"
  713.       )
  714. )
  715.  
  716. ;    
  717. ;======= création tiroir ==============================
  718. ;    
  719.  
  720. (complete 20)
  721. (makedir MajorBankDir (prompt #cree_tiroir destination ".") (infos))
  722.  
  723. ;
  724. ;======= copie des fichiers MajorBank ==================
  725. ;    
  726.  
  727. (complete 30) 
  728. (copyfiles (source "MajorBank") (dest MajorBankDir))
  729. (copyfiles (source "MajorBank.info") (dest MajorBankDir))    
  730. (copyfiles (source "Exemple.MBank") (dest MajorBankDir))
  731.  
  732. ;
  733. ;======= Installe les Catalogues ========================
  734. ;
  735.  
  736. (set destcatalogs (tackon majorbankdir "Catalogs"))
  737. (makedir destcatalogs (prompt #cree_tiroir destcatalogs "."))
  738.  
  739. (complete 40)
  740.  
  741. (set lang (askchoice
  742.             (prompt #quelle-langue)
  743.             (choices 
  744.             "English"
  745.             "Français"
  746.             "Deutsch"
  747.         )
  748.             (help #quelle-langue-Help "\n\n" @askchoice-help)
  749.            (default def_language)
  750.     )
  751. )
  752.  
  753. (set language
  754.     (select lang
  755.          "English"
  756.          "Français"
  757.          "Deutsch"
  758.     )
  759. )
  760.  
  761. (set destination (tackon destcatalogs language))
  762. (makedir destination)
  763.  
  764.  
  765. (if (= lang 1)
  766.     (copyfiles
  767.         (source "Catalogs/Français/MajorBank.catalog")
  768.         (dest destination)
  769.     )
  770. )
  771.  
  772. (if (= lang 2)
  773.     (copyfiles
  774.         (source "catalogs/Deutsch/MajorBank.catalog")
  775.         (dest destination)
  776.     )
  777. )
  778.  
  779.  
  780. ;
  781. ; Copie des fichiers de description
  782. ;
  783.  
  784. (copyfiles
  785.     (source "catalogs/Français.CT")
  786.     (dest destcatalogs)
  787. )
  788.  
  789. (copyfiles
  790.     (source "catalogs/Deutsch.CT")
  791.     (dest destcatalogs)
  792. )
  793.  
  794. (copyfiles
  795.     (source "catalogs/MajorBank.cd")
  796.     (dest destcatalogs)
  797. )
  798.  
  799. ;
  800. ;======= Copie du tiroir Documentation ==================
  801. ;
  802.  
  803. (set destdocs (tackon MajorBankDir "Docs"))
  804. (makedir destdocs (prompt #cree_tiroir destination "."))
  805. (Working #copy_docs )
  806. (complete 45)    
  807.  
  808. (set Doc (askchoice
  809.             (prompt #quelle-doc)
  810.             (choices 
  811.             "English"
  812.             "Français"
  813.         )
  814.             (help #quelle-doc-Help)
  815.            (default def_doc)
  816.     )
  817. )
  818.  
  819. (if (= Doc 0)
  820.     (copyfiles
  821.         (source "docs/MajorBank_ENG.guide")
  822.         (dest destdocs)
  823.         (newname "MajorBank.guide")
  824.         (infos)
  825.     )
  826. )
  827.  
  828. (if (= Doc 1)
  829.     (copyfiles
  830.         (source "docs/MajorBank_FR.guide")
  831.         (dest destdocs)
  832.         (newname "MajorBank.guide")
  833.         (infos)
  834.     )
  835. )
  836.  
  837. (if (= Doc 2)
  838.     (copyfiles
  839.            (source "docs/MajorBank_GER.guide")
  840.            (dest destdocs)
  841.            (newname "MajorBank.guide")
  842.         (infos)
  843.     )
  844. )
  845.  
  846.  
  847. (copyfiles
  848.     (source "docs/Register.English")
  849.     (dest destdocs)
  850.     (infos)
  851. )
  852. (copyfiles
  853.     (source "docs/Enregistrement_en_France")
  854.     (dest destdocs)
  855.     (infos)
  856. )
  857.  
  858.  
  859. (copyfiles (source "docs.info") (dest MajorBankDir))    
  860.  
  861. ;======= Copie du tiroir Images ==================
  862.  
  863. (set destimages (tackon MajorBankDir "Gfx"))
  864. (makedir destimages (prompt #cree_tiroir destination "."))
  865.  
  866. (Working #copy_Images )
  867. (complete 50)    
  868. (copyfiles
  869.     (source "Gfx")
  870.         (dest destimages)
  871.         (optional nofail)
  872.     (all)
  873.     (infos)
  874. )
  875. (copyfiles (source "Gfx.info") (dest MajorBankDir))    
  876.  
  877. ;======= Copie des gadgets Boopsi & ClassAct ============
  878.  
  879. (complete 75)    
  880. (install-classact)
  881.  
  882. ;======= Copie de la Iff.library ========================
  883.  
  884. (complete 85)    
  885. (copyfiles
  886.     (source "libs")
  887.         (dest "Libs:")
  888.         (optional nofail)
  889.     (all)
  890.     (infos)
  891. )
  892. ;======= assign ==========================================
  893.     
  894. (complete 90)
  895. (startup "MajorBank"
  896.     (command "assign MajorBank: " MajorBankDir "\n")
  897.     (command "assign Libs: Sys:Classes ADD")
  898.     (prompt #assign_prompt )
  899.     (help #assign_help )
  900. )
  901.  
  902. ;======= fin ============================================
  903.  
  904. (complete 100)
  905.  
  906. (message #fin_install_hd  MajorBankDir "\n")
  907.  
  908. (exit (quiet))
  909.  
  910.  
  911.  
  912.   
  913.