; MPGui - Amiga Guis from Text Files
; Copyright (C)  1996 Mark John Paddock

; $VER: MPGui-Install 5.3 (16.2.97)

; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; any later version.

; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.

; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

; mark@topic.demon.co.uk
; mpaddock@cix.compulink.co.uk

(complete 10)

;Check where to install library
(Set #LibChoice
	(askchoice
		(prompt "Where do you want to install the libraries?\n\n"
			"You can choose to install the library required by MPGui "
			"in the current directory, "
			"your LIBS: directory, or some other directory.")
		(help @askchoice-help)
		(choices "In Place" "LIBS:" "Elsewhere")
		(default 1)
	)
)

(complete 20)

(if (= #LibChoice 2)
	(Set #LibDir
		(askdir
			(prompt "Select directory in which to install the MPGui libraries")
			(help @askdir-help)
			(default "LIBS:")
		)
	)
)

(complete 30)

; Set up directory names
(Set #DestDir (expandpath ""))

(complete 40)

(if (= #libchoice 0)
	(Set #LibDir #DestDir)
)

(complete 50)

(if (= #libchoice 1)
	(Set #LibDir "LIBS:")
)

(complete 60)

(set @default-dest 
	#DestDir
)

(complete 70)

(Set #SrcGui "libs/MPGui.library")

(complete 80)

(Set #DestGui "MPGui.library")

(complete 90)

; Copy library
(
	(copylib
		(source #SrcGui)
		(dest #LibDir)
		(newname #DestGui)
	)
)

(complete 100)
