home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Graphics / KaraCollection / TKC_Docs / Utilities / H / 6 / 0 / 2 / SetPPView < prev   
Encoding:
Text File  |  1996-08-27  |  8.6 KB  |  273 lines
  1. ; $VER: SetPPView 1.1
  2. ; Cloanto PPView Configuration Script
  3. ; Copyright © 1996 Cloanto Italia srl
  4. ; Cloanto is a registered trademark of Cloanto Italia srl
  5. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  6. ;  Reproduced and distributed under license from Commodore"
  7. ; New installer icon design Copyright © 1994 Cloanto Italia srl
  8.  
  9. (set id_lang_eng 0)
  10. (set id_lang_deu 1)
  11. (set id_lang_fra 3)
  12. (set id_lang_ita 2)
  13.  
  14. (set installer_lang -1)
  15.  
  16. (if (= @language "Deutsch") (set installer_lang id_lang_deu))
  17.  
  18. (if (= installer_lang id_lang_deu) (
  19.     (set #wrong-kick
  20.         "SetPPView erfordert mindestens Kickstart 1.2.")
  21.  
  22.     (set #wrong-wb
  23.         "SetPPView erfordert mindestens Workbench 1.3.")
  24.  
  25.     (set #ask-pic
  26.         "\nBitte Pfad und Optionen für den\nBildbetrachter festlegen:")
  27.     (set #ask-pic-help
  28.         (cat "\nDie hier angegebenen Daten werden in der Variablen "
  29.         "\"PPViewPic\" gespeichert. Diese wird von PPView zum Laden "
  30.         "eines Bildbetrachters verwendet."
  31.         "\n\nDieses Feld freilassen, um die Standardeinstellungen "
  32.         "der CD-ROM wiederherzustellen."
  33.         "\n\nBeispieleinträge:"
  34.         "\n\n   SYS:Utilities/MultiView SCREEN"
  35.         "\n\noder"
  36.         "\n\n   MultiView"
  37.         "\n\noder"
  38.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"))
  39.  
  40.     (set #ask-anim
  41.         "\nBitte Pfad und Optionen für den\nAnimationsbetrachter festlegen:")
  42.     (set #ask-anim-help
  43.         (cat "\nDie hier angegebenen Daten werden in der Variablen "
  44.         "\"PPViewAnim\" gespeichert. Diese wird von PPView zum Laden "
  45.         "eines Animationsbetrachters verwendet."
  46.         "\n\nDieses Feld freilassen, um die Standardeinstellungen "
  47.         "der CD-ROM wiederherzustellen."
  48.         "\n\nBeispieleinträge:"
  49.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"
  50.         "\n\noder"
  51.         "\n\n   VT"))
  52.  
  53.     (set #ask-permanent
  54.         "\nÄnderungen an der Konfigurationsdatei sichern?")
  55.     (set #ask-permanent-help
  56.         (cat "\nWenn diese Option gewählt wird, werden die neuen Einstellungen "
  57.         "in \"ENVARC:\" gespeichert und bei jedem Neustart automatisch geladen."
  58.         "\n\nWenn diese Option nicht gewählt wird, gehen die Änderungen nach "
  59.         "einem Neustart des Systems verloren."))
  60.  
  61.     (set #msg-complete
  62.         "\nKonfiguration von PPView abgeschlossen.")
  63.  
  64.     (set @abort-button "SetPPView abbrechen")
  65. ))
  66.  
  67.  
  68. (if (= @language "Français") (set installer_lang id_lang_fra))
  69.  
  70. (if (= installer_lang id_lang_fra) (
  71.     (set #wrong-kick
  72.         "SetPPView nécessite au moins le Kickstart 1.2.")
  73.  
  74.     (set #wrong-wb
  75.         "SetPPView nécessite au moins le Workbench 1.3.")
  76.  
  77.     (set #ask-pic
  78.         "\nVeuillez spécifier le chemin et les options\npour le visionneur d'images :")
  79.     (set #ask-pic-help
  80.         (cat "\nLes données spécifiées ici seront stockées dans la "
  81.         "variable d'environnement \"PPViewPic\", laquelle est utilisée "
  82.         "par PPView pour charger un visionneur d'image."
  83.         "\n\nLaissez ce champs vide pour restaurer les réglages par défaut du CD-ROM."
  84.         "\n\nExemples :"
  85.         "\n\n   SYS:Utilities/MultiView SCREEN"
  86.         "\n\nor"
  87.         "\n\n   MultiView"
  88.         "\n\nor"
  89.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"))
  90.  
  91.     (set #ask-anim
  92.         "\nVeuillez spécifier le chemin et les options\npour le visionneur d'animations :")
  93.     (set #ask-anim-help
  94.         (cat "\nLes données spécifiées ici seront stockées dans la "
  95.         "variable d'environnement \"PPViewAnim\", laquelle est utilisée "
  96.         "par PPView pour charger un visionneur d'image."
  97.         "\n\nLaissez ce champs vide pour restaurer les réglages par défaut du CD-ROM."
  98.         "\n\nExemples :"
  99.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"
  100.         "\n\nor"
  101.         "\n\n   VT"))
  102.  
  103.     (set #ask-permanent
  104.         "\nRendre permanentes les modifications ?")
  105.     (set #ask-permanent-help
  106.         (cat "\nSi cette option est sélectionnée, les nouveaux réglages seront stockés "
  107.         "dans \"ENVARC:\", où ils seront conservés même après un réamorçage."
  108.         "\n\nSi l'option n'est pas sélectionnée, alors les modifications seront "
  109.         "\"oubliées\" après la réinitialisation du système."))
  110.  
  111.     (set #msg-complete
  112.         "\nConfiguration de PPView terminée.")
  113.  
  114.     (set @abort-button "Interrompre SetPPView")
  115. ))
  116.  
  117.  
  118. (if (= @language "Italiano") (set installer_lang id_lang_ita))
  119.  
  120. (if (= installer_lang id_lang_ita) (
  121.     (set #wrong-kick
  122.         "SetPPView richiede almeno un Kickstart 1.2.")
  123.  
  124.     (set #wrong-wb
  125.         "SetPPView richiede almeno un Workbench 1.3.")
  126.  
  127.     (set #ask-pic
  128.         "\nSpecificare il percorso e le opzioni\ndel programma per la visualizzazione\ndi immagini:")
  129.     (set #ask-pic-help
  130.         (cat "\nI dati specificati verranno memorizzati nella "
  131.         "variabile di sistema \"PPViewPic\", usata da PPView "
  132.         "per attivare un programma per la visualizzazione "
  133.         "di immagini."
  134.         "\n\nLasciare vuoto questo campo per ripristinare "
  135.         "le impostazioni predefinite del CD-ROM."
  136.         "\n\nEsempi:"
  137.         "\n\n   SYS:Utilities/MultiView SCREEN"
  138.         "\n\no"
  139.         "\n\n   MultiView"
  140.         "\n\no"
  141.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"))
  142.  
  143.     (set #ask-anim
  144.         "\nSpecificare il percorso e le opzioni\ndel programma per la visualizzazione\ndi animazioni:")
  145.     (set #ask-anim-help
  146.         (cat "\nI dati specificati verranno memorizzati nella "
  147.         "variabile di sistema \"PPViewAnim\", usata da PPView "
  148.         "per attivare un programma per la visualizzazione "
  149.         "di animazioni."
  150.         "\n\nLasciare vuoto questo campo per ripristinare "
  151.         "le impostazioni predefinite del CD-ROM."
  152.         "\n\nEsempi:"
  153.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"
  154.         "\n\no"
  155.         "\n\n   VT"))
  156.  
  157.     (set #ask-permanent
  158.         "\nSi desidera rendere permanenti le modifiche?")
  159.     (set #ask-permanent-help
  160.         (cat "\nAttivando questa opzione, le nuove impostazioni verranno "
  161.         "memorizzate in \"ENVARC:\", e saranno utilizzate ad ogni riavvio "
  162.         "del sistema."
  163.         "\n\nNon attivando l'opzione, le modifiche verranno "
  164.         "perse con il riavvio del sistema."))
  165.  
  166.     (set #msg-complete
  167.         "\nConfigurazione di PPView completata.")
  168.  
  169.     (set @abort-button "Interrompere SetPPView")
  170. ))
  171.  
  172.  
  173. (if (= @language "English") (set installer_lang id_lang_eng))
  174.  
  175. (if (= installer_lang -1) (set installer_lang id_lang_eng))
  176.  
  177. (if (= installer_lang id_lang_eng) (
  178.     (set #wrong-kick
  179.         "SetPPView requires at least Kickstart 1.2.")
  180.  
  181.     (set #wrong-wb
  182.         "SetPPView requires at least Workbench 1.3.")
  183.  
  184.     (set #ask-pic
  185.         "\nPlease specify the path and options\nfor the picture viewer:")
  186.     (set #ask-pic-help
  187.         (cat "\nThe data specified here will be stored in the "
  188.         "\"PPViewPic\" environment variable, which is used by "
  189.         "PPView to load a picture viewer."
  190.         "\n\nLeave this field empty to restore the CD-ROM default settings."
  191.         "\n\nSample entries:"
  192.         "\n\n   SYS:Utilities/MultiView SCREEN"
  193.         "\n\nor"
  194.         "\n\n   MultiView"
  195.         "\n\nor"
  196.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"))
  197.  
  198.     (set #ask-anim
  199.         "\nPlease specify the path and options\nfor the animation viewer:")
  200.     (set #ask-anim-help
  201.         (cat "\nThe data specified here will be stored in the "
  202.         "\"PPViewAnim\" environment variable, which is used by "
  203.         "PPView to load an animation viewer."
  204.         "\n\nLeave this field empty to restore the CD-ROM default settings."
  205.         "\n\nSample entries:"
  206.         "\n\n   Work:Gfx/Viewers/VT [] SC=MULTISCAN:Productivity"
  207.         "\n\nor"
  208.         "\n\n   VT"))
  209.  
  210.     (set #ask-permanent
  211.         "\nMake configuration changes permanent?")
  212.     (set #ask-permanent-help
  213.         (cat "\nIf this option is selected, the new settings will be stored "
  214.         "to \"ENVARC:\", from where they will persist even after a reboot."
  215.         "\n\nIf the option is not selected, then the changes will be "
  216.         "\"forgotten\" after a system reset."))
  217.  
  218.     (set #msg-complete
  219.         "\nPPView configuration complete.")
  220.  
  221.     (set @abort-button "Abort SetPPView")
  222. ))
  223.  
  224. (set verkick (/ (getversion "exec.library" (resident)) 65536))
  225. (set verwb (/ (getversion "icon.library" (resident)) 65536))
  226.  
  227. (if (< verkick 33) (message #wrong-kick))
  228. (if (< verwb 34) (message #wrong-wb))
  229.  
  230. (set ppviewpic (askstring
  231.     (prompt #ask-pic)
  232.     (help #ask-pic-help)
  233.     (default (if (= (exists "ENV:PPViewPic") 1) (getenv "PPViewPic")("")))
  234.     ))
  235.  
  236. (set ppviewanim (askstring
  237.     (prompt #ask-anim)
  238.     (help #ask-anim-help)
  239.     (default (if (= (exists "ENV:PPViewAnim") 1) (getenv "PPViewAnim")("")))
  240.     ))
  241.  
  242. (set permanent (askbool
  243.     (prompt #ask-permanent)
  244.     (help #ask-permanent-help)
  245.     (default 0)
  246.     ))
  247.  
  248. (if (= ppviewpic "")
  249.     (if (= (exists "ENV:PPViewPic") 1) (delete "ENV:PPViewPic" (optional "force")))
  250.     (textfile (dest "ENV:PPViewPic") (append ppviewpic))
  251.     )
  252.  
  253. (if (= ppviewanim "")
  254.     (if (= (exists "ENV:PPViewAnim") 1) (delete "ENV:PPViewAnim" (optional "force")))
  255.     (textfile (dest "ENV:PPViewAnim") (append ppviewanim))
  256.     )
  257.  
  258. (if permanent (
  259.     (if (= ppviewpic "")
  260.         (if (= (exists "ENVARC:PPViewPic") 1) (delete "ENVARC:PPViewPic" (optional "force")))
  261.         (textfile (dest "ENVARC:PPViewPic") (append ppviewpic))
  262.         )
  263.  
  264.     (if (= ppviewanim "")
  265.         (if (= (exists "ENVARC:PPViewAnim") 1) (delete "ENVARC:PPViewAnim" (optional "force")))
  266.         (textfile (dest "ENVARC:PPViewAnim") (append ppviewanim))
  267.         )
  268.     ))
  269.  
  270. (message #msg-complete)
  271.  
  272. (exit (quiet))
  273.