; $VER: Install Opus5NL (17.7.95)
; Script om een Nederlandse Opus 5.11 te installeren.
; Geschreven door Edmund Vermeulen (edmundv@grafix.xs4all.nl).

; kijk of Directory Opus 5 geinstalleerd is

(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
    (abort "Directory Opus 5 must be installed first.")
)

(set @default-dest "")

;=============================================================================
; installeren van catalogs

(copyfiles
   (source "Catalogs")
   (dest "DOpus5:Catalogs")
   (pattern "#?")
)

;=============================================================================
; installeren van Nederlandse versie van de buttons banks

(copyfiles
   (source "Buttons")
   (dest "DOpus5:Buttons")
   (pattern "#?")
)

;=============================================================================
; Maak Nederlands lister menu standaard

(if
   (askbool
      (prompt "Nederlandse versie van het standaard lister pop-up menu "
              "gebruiken?\n\n"
              "Uw huidige menu zal hernoemd worden naar\n"
              "'lister menu_old'."
      )
      (help "De Nederlandse versie van het lister menu is qua functies "
            "identiek aan het standaard lister menu. Hij is slechts in het "
            "Nederlands vertaald."
      )
   )
   (
      (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
      (copyfiles
         (source "DOpus5:Buttons/lister menu_nederlands")
         (dest "DOpus5:Buttons")
         (newname "lister menu")
      )
   )
)
;=============================================================================
; Maken van standaard Nederlands gebruikersmenu

(if
   (askbool
      (prompt "Nederlandse versie van het standaard gebruikersmenu "
              "gebruiken?\n\n"
              "Uw huidige menu zal hernoemd worden naar\n"
              "'user menu_old'."
      )
      (help "De Nederlandse versie van het gebruikersmenu is qua functies "
            "identiek aan het standaard gebruikersmenu. Hij is slechts in het "
            "Nederlands vertaald."
      )
   )
   (
      (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
      (copyfiles
         (source "DOpus5:Buttons/user menu_nederlands")
         (dest "DOpus5:Buttons")
         (newname "user menu")
      )
   )
)
;=============================================================================
; installeren verbeterde Nederlandse taal file

(if
   (askbool
      (prompt "Verbeterde versie van het 'nederlands.language' "
              "systeembestand installeren?\n\n"
              "In deze versie zijn ook de strings voor 'Yesterday', 'Today' "
              "en 'Future' in het Nederlands vertaald. Deze strings "
              "worden zichtbaar als de 'Naamsubstitutie' optie in Opus 5 "
              "actief is."
      )
      (help "De 'Naamsubstitutie' optie kunt u activeren in het 'Lokaal' "
            "gedeelte van het 'Opties' venster. Dit venster is te openen "
            "door 'Bewerk' uit het 'Opties' submenu van het 'Instellingen' " 
            "menu te kiezen.\n\n"
            "Wanneer deze optie actief is zal Opus 5 bij de bestandsdatum "
            "de dag van de week neerzetten of de tekst 'Vandaag' of 'Gisteren'. "
            "Dit maakt het terugvinden van pas gewijzigde bestanden een stuk "
            "gemakkelijker.\n\n"
            "Dank aan Arthur Pijpers voor het disassembleren en corrigeren "
            "van de 'nederlands.language'."
      )
   )
   (copyfiles
      (source "Languages/nederlands.language")
      (dest "LOCALE:Languages")
   )
)

(exit)