; This is test of many of the features of the Installer
; Prints out debugging info if run from CLI
(message
   "\nXLabProcess V1.2\n"
   "© Xavier NUEL, 1997\n\n"
   "Ce programme est ShareWare "
   "--- "
   "Pensez à vous enregistrer...\n\n"
)
(if (= @language "français")

(
(set #where_install "Où voulez-vous installer\nle répertoire 'XLabProcess' ?")
(set #copying "Copie de XLabProcess vers %s...")
)

; ---- English ----
(
(set #where_install "Where do you want to put\nthe 'XLabProcess' directory ?")
(set #copying "Copying XLabProcess to %s...")
)

)

(set @default-dest
   (askdir
      (prompt #where_install)
      (help @askdir-help)
      (default "Work:")
   )
)

(set @default-dest (tackon @default-dest "XLabProcess"))


(makedir @default-dest
   (infos)
)

(copyfiles
   (prompt #copying @default-dest)
   (help @copyfiles-help)
   (source "XLabProcess")
   (dest @default-dest)
    (infos)
    (all)
)
(if (= @language "français")
(copyfiles
        (prompt )
        (help @copyfiles-help)
        (source "Catalogs")
        (dest "Locale:catalogs/français")
        (choices "français")
        (confirm)
)
)