;
; Install script for ModePro

; Spanish translation by
; Dámaso D. Estévez <amidde@arrakis.es> - Spanish freelance translator

( set ModePro "ModePro")
( set ModeProPrefs "ModeProPrefs" )

;-------------------------------------------------------------
( set Yes "Sí")
( set No  "No")

(set startup_prompt   "¿Quiere ejecutar automáticamente ModePro al arrancar su equipo?")
(set startup_choice0  "No, no quiero ejecutarlo")
(set startup_choice1  "Sí, desde el fichero user-startup")
(set startup_choice2  "Sí, desde el cajón WBStartup")
(set startup_help     (cat "\nEligiendo 'No, no quiero ejecutarlo' hará que ModePro no se ejecute durante el arranque del sistema.\n\n" "Eligiendo 'Sí, desde el fichero user-startup' se añadirá una entrada en el fichero s:user-startup que se encargará de ejecutar ModePro.\n\n" "Seleccionando 'Sí, desde el cajón WBStartup', ModePro será copiado en el cajón WBStartup de su disco de arranque.\n\n" "La única diferencia entre las dos últimas opciones es que si quiere que ModePro pueda afectar a la pantalla del Workbench, deberá seleccionar 'Sí, desde el fichero user-startup'"))

(set path_wbstartup       ( expandpath "Sys:WBStartup") )
(set path_commodities     ( expandpath "Sys:Tools/Commodities") )
(set path_prefs           ( expandpath "Sys:Prefs") )
(set path_modepro         path_commodities)
(set path_modepro_prompt  ("Por favor, elija dónde desea instalar ModePro\n('%s' es el lugar normal)" path_commodities))
(set path_modepro_help    "\nEste es el directorio donde el ejecutable ModePro será instalado.")
(set path_mpprefs_prompt  ("Por favor, elija dónde desea instalar ModeProPrefs'\n('%s' es el lugar normal)" path_prefs))
(set path_mpprefs_help    "\nEste es el directorio donde el ejecutable ModeProPrefs será instalado.")

( set oldmodepro_prompt   "Parece que otra copia de ModePro está instalada.\n¿Desea borrarla?" )
( set oldmodepro_help     "\nParece que una copia innecesaria de ModePro está instalada: se recomienda su borrado." )
( set oldmodepro_deleting "Borrando copia extra y fichero .info" )

( set tt_cxpopkey_prompt    "Introduzca la combinación de teclas que invocará al programa de preferencias." )
( set tt_cxpri_prompt       "Introduzca el valor de la prioridad de la comodidad ModePro." )
( set tt_cxpopup_prompt     "¿Desea que ModePro muestre su interfaz cada vez que es puesto en marcha?")
( set tt_cx_help            "Por favor, consulte en el manual del Workbench ,la sección sobre 'Commodities'/'Comodidades' para más información." )

(set installing_modepro       "Instalando ModePro")
(set installing_modeproprefs  "Instalando ModeProPrefs")

(set usmodify_prompt  "Las opciones elegidas requieren que el fichero 's:user-startup' sea modificado." )
(set usmodify_help    "\nSi se salta este paso, ModePro podría no funcionar correctamente." )

(set copycat_prompt   "ModePro ha sido traducido a varios idiomas.\nAgradezco a la ATO que me haya suministrado la mayoría de las traducciones.")
(set copycat_help     "\nDebe seleccionar sólo aquellos catálogos que necesite.")


;-------- BEGIN ----------

(set startup_method (askchoice (prompt  startup_prompt)
                               (help    startup_help)
                               (choices startup_choice0 startup_choice1 startup_choice2)
                               (default 2)
)                   )



(if (= startup_method 2)
  (
    ( set path_delmodepro path_commodities)
    ( set path_modepro    path_wbstartup)
  )
  (
    ( set path_delmodepro path_wbstartup)
    ( set path_modepro (askdir (prompt  path_modepro_prompt)
                               (help    path_modepro_help)
                               (default path_commodities)
    )                  )
  )
)

( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
                           (help    path_mpprefs_help)
                           (default path_prefs)
)                  )



( set ModeProPrefsCommand (tackon ( path_mpprefs) 
                                   ( "ModeProPrefs") 
                          ) 
)

( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
                              (help tt_cxhelp)
                              (default "lamiga p")
               
)                 )

( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
                                 (help tt_cxhelp)
                                 (default 5)
)              )      ) 

( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt)
                            (help tt_cxhelp)
                            (default 0)
                            (choices No Yes)
)             )

;**** COPY THE CATALOGS ****
(copyfiles (prompt  copycat_prompt)
           (help    copycat_help)
           (source  "catalogs/")
           (dest    "locale:catalogs/")
           (infos)
           (confirm)
           (all)
)

;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****

(set oldmodepro_file ( tackon (path_delmodepro) 
                     ("ModePro")
)          )

(if (exists oldmodepro_file)
  (
    (if (askchoice (prompt  oldmodepro_prompt ) 
                   (help    oldmodepro_help) 
                   (default 1) 
                   (choices No Yes) 
        )
      (
        (delete oldmodepro_file (prompt oldmodepro_deleting))
        (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
      )
    ) 
  )
)

;**** SET THE TOOLTYPES ****

(tooltype (dest ModePro)
          (settooltype "CX_POPKEY"    tt_cxpopkey)
          (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
          (settooltype "CX_PRIORITY"  tt_cxpri )
          (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
)


;**** COPY FILES ****
    
(copyfiles (prompt installing_modepro)
           (help   installing_modepro)
           (source ModePro)
           (infos)
           (dest path_modepro)
)

(set @default-dest path_modepro)

(copyfiles (prompt installing_modeproprefs)
           (help   installing_modeproprefs)
           (source ModeProPrefs)
           (infos)
           (dest path_mpprefs)
)


;**** PROMPT TO MODIFY THE U-S FILE ****
(if (= startup_method 1)
    ( 
        (startup "ModePro"
                 (prompt  usmodify_prompt )
                 (help    usmodify_help )
                 (command (cat "Run <>NIL: " (tackon path_modepro "ModePro")) )
        )
    )
    (
       (startup "ModePro"
                 (prompt  usmodify_prompt )
                 (help    usmodify_help )
                 (command ";Don't run ModePro from User-Startup")
  
        )
    )
)