home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Patch / Programs / DOPUSNORSK511.LHA / dopus511norsk / Installer < prev   
Encoding:
Text File  |  1995-07-18  |  2.1 KB  |  76 lines
  1. ; $VER: Install Opus5 Norsk (18.7.95)
  2. ; Script to install the Norsk catalog translation for Opus 5.11.
  3. ; Adapted from Edmund Vermeulen's Dutch version
  4. ; by Dr Greg Perry (GPSoftware)
  5.  
  6. ;=============================================================================
  7. ; check if Directory Opus 5 is already installed
  8.  
  9. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  10.     (abort "Directory Opus 5 must be installed first.")
  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 Norsk version of buttons banks
  26.  
  27. (copyfiles
  28.    (source "Buttons")
  29.    (dest "DOpus5:Buttons")
  30.    (pattern "#?")
  31. )
  32.  
  33. ;=============================================================================
  34. ; make Norsk lister menu the default
  35.  
  36. (if
  37.    (askbool
  38.       (prompt "Norsk versions of the standard lister pop-up menu "
  39.               "is available\n\n"
  40.               "Do you wish to install this and rename the old one as\n"
  41.               "'lister menu_old'."
  42.       )
  43.       (help "Installs the Norsk version of the default lister popup ")
  44.    )
  45.    (
  46.       (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
  47.       (copyfiles
  48.          (source "DOpus5:Buttons/lister menu_norsk")
  49.          (dest "DOpus5:Buttons")
  50.          (newname "lister menu")
  51.       )
  52.    )
  53. )
  54. ;=============================================================================
  55. ; make Norsk user menu the default
  56.  
  57. (if
  58.    (askbool
  59.       (prompt "Norsk versions of the user menus is available.\n\n"
  60.               "Do you wish to install this and rename the old one as\n"
  61.               "'user menu_old'."
  62.       )
  63.       (help "Installs the Norsk version of the default user menu ")
  64.    )
  65.    (
  66.       (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
  67.       (copyfiles
  68.          (source "DOpus5:Buttons/user menu_norsk")
  69.          (dest "DOpus5:Buttons")
  70.          (newname "user menu")
  71.       )
  72.    )
  73. )
  74.  
  75. (exit)
  76.