;******************************************************************************
; Installation script for DataTypes Collection #2 (AMS)
; Written by David N. Junod
;
; Modified for DTpref
; Swen K. Stullich   10.03.95
;******************************************************************************

; Initialize a few things
(set docbits 0)

;******************************************************************************
; Prompt for components and their directories

; Prefs
(set prefsdir
	(askdir
		(prompt "Where do the Preferences belong")
		(help @askdir-help)
		(default "SYS:Prefs")
	)
)

; Docs
(set docsdir
	(askdir
		(prompt "Where do the Documentations belong")
		(help @askdir-help)
		(default "SYS:Docs")
	)
)

;******************************************************************************
;******************************************************************************
;******************************************************************************

;**********************************************************************
; Install
;**********************************************************************
(
	; Show what we are doing
	(working "Installing " @app-name)

	; Install the library
	(copylib
		(prompt "Copying gtlayout.library")
		(help @copylib-help)
		(source "libs/gtlayout.library")
		(dest "LIBS:")
		(confirm)
	)

	; Install the Editor
	(copyfiles
		(prompt "Copying the Preferenceseditor")
		(help @copyfiles-help)
		(source "DTpref/")
		(dest prefsdir)
		(pattern "#?")
		(infos)
;		(confirm)
	)

	; Install the Docs
	(copyfiles
		(prompt "Copying the Documentations")
		(help @copyfiles-help)
		(source "Docs/")
		(dest docsdir)
		(pattern "#?")
		(infos)
		(confirm)
	)
)

(set @default-dest prefsdir)
(set @default-dest docsdir)