home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Patch / Programs / DOPUSITA511.LHA / DOpus511ita / Installer < prev   
Encoding:
Text File  |  1995-09-01  |  2.0 KB  |  76 lines
  1. ; $VER: Install Opus5 Italian (01.09.95)
  2. ; Script to install the Italian catalog translation for Opus 5.11.
  3. ; Adapted Dr Greg Perry's Norsk version
  4. ; by Francesco Dipietromaria
  5.  
  6. ;=============================================================================
  7. ; check if Directory Opus 5 is already installed
  8.  
  9. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  10.     (abort "Dovete prima installare Directory Opus 5.")
  11. )
  12.  
  13. (set @default-dest "")
  14.  
  15. ;=============================================================================
  16. ; install catalogs
  17.  
  18. (copyfiles
  19.    (source "Catalogs")
  20.    (dest "DOpus5:Catalogs")
  21.    (pattern "#?")
  22. )
  23.  
  24. ;=============================================================================
  25. ; install Italian version of buttons banks
  26.  
  27. (copyfiles
  28.    (source "Buttons")
  29.    (dest "DOpus5:Buttons")
  30.    (pattern "#?")
  31. )
  32.  
  33. ;=============================================================================
  34. ; make Italian lister menu the default
  35.  
  36. (if
  37.    (askbool
  38.       (prompt "La versione italiana del menu lister pop-up "
  39.               "è disponibile.\n\n"
  40.               "Volete installarla e rinominare quella vecchia come\n"
  41.               "'lister menu_old'?"
  42.       )
  43.       (help "Installa la versione italiana del lister pop-up standard ")
  44.    )
  45.    (
  46.       (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
  47.       (copyfiles
  48.          (source "DOpus5:Buttons/lister menu_IT")
  49.          (dest "DOpus5:Buttons")
  50.          (newname "lister menu")
  51.       )
  52.    )
  53. )
  54. ;=============================================================================
  55. ; make Italian user menu the default
  56.  
  57. (if
  58.    (askbool
  59.       (prompt "La versione italiana dell'user menu è disponibile.\n\n"
  60.               "Volete installarla e rinominare quella vecchia come\n"
  61.               "'user menu_old'."
  62.       )
  63.       (help "Installa la versione italiana dello user menu standard ")
  64.    )
  65.    (
  66.       (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
  67.       (copyfiles
  68.          (source "DOpus5:Buttons/user menu_IT")
  69.          (dest "DOpus5:Buttons")
  70.          (newname "user menu")
  71.       )
  72.    )
  73. )
  74.  
  75. (exit)
  76.