;
; $VER: Install_UnpackObject.script V2.2 (16.7.95)
; © 1994-95 by Andreas R. Kleinert.
; This is the Installer Script for my Unpack-SVObject
;
; Modified by © 1998 Dámaso D. Estévez :)

; ------------------------------------------------------

; English strings (default)

(set #msj1 "Library Path")
(set #msj2 "Installing FastILBM24.svobject to ")

; Spanish strings

(if (= @language "español")
        (
                (set #msj1 "Seleccione el directorio donde está instalada la biblioteca 'superview.library'")
                (set #msj2 "Instalando módulo FastILBM24.svobject en ")
        )
)

; ------------------------------------------------------

(set svlibdir
            (askdir
                   (prompt #msj1)
                   (help @askdir-help)
                   (newpath)
                   (default "LIBS:")
            )
)

(makedir (tackon svlibdir "svobjects"))

(set #msj2 (cat #msj2 svlibdir "/svobjects..."))

(copyfiles
  (prompt #msj2)
  (help @copyfiles-help)
  (source "libs/svobjects")
  (dest (tackon svlibdir "svobjects"))
  (pattern "#?.svobject")
  (files)
)