;
; $RCSfile: Install $
; $Revision: 3.0 $
; $Date: 1994/11/28 22:13:21 $
;

; copy the library...
(copylib
	(prompt "Copying EAGUI.library...")
	(source "EAGUI.library")
	(dest "LIBS:")
	(help @copylib-help)
	(confirm)
)

; report the directory to installer...
(set @default-dest "LIBS:")

; copy the EAGUI directory if the user wants to do this...
(if
	(askbool
		(prompt "Do you want to install the EAGUI related files?")
		(help "Confirming this question will allow you to install the EAGUI related files "
			"to a directory of your choice. These files are needed if you want to use "
			"EAGUI in your own programs. Headers, stubs, documentation and examples "
			"will all be copied.")
	)
	(
		(set eaguidir
			(askdir
				(prompt "In what directory would you like to install the EAGUI related files?")
				(help "You should select a directory in which the EAGUI related files will be installed. "
					"The files will be copied directly to this directory: "
					"no subdirectory will be made!")
				(default "SYS:EAGUI")
			)
		)
		(copyfiles
			(prompt "Copying files...")
			(help @copyfiles-help)
			(source "")
			(choices "EAGUI.guide" "Complete.guide.info" "Complete.guide" "Tutorial.guide" "Tutorial_1.pic" "EAGUI.fd" "EAGUI.h" "EAGUI_macros.h" "EAGUI_lib.c" "EAGUI_protos.h" "example.c" "example" "pages.c" "pages" "Textfield.c")
			(dest eaguidir)
		)
	)
)

; copy the Modula 2 stuff if the user wants to do this...
(if
	(askbool
		(prompt "Do you want to install the EAGUI related files for use with Modula 2?")
		(help "Confirming this question will allow you to install the EAGUI related files for use with Modula 2 "
			"to a directory of your choice. These files are needed if you want to use "
			"EAGUI in your own Modula 2 programs.")
	)
	(
		(set eaguim2dir
			(askdir
				(prompt "In what directory would you like to install the EAGUI related files for use with Modula 2?")
				(help "You should select a directory in which the EAGUI related files for use with Modula 2 will be installed. "
					"The files will be copied directly to this directory: "
					"no subdirectory will be made!")
				(default "SYS:EAGUI/Modula2")
			)
		)
		(copyfiles
			(prompt "Copying files...")
			(help @copyfiles-help)
			(source "Modula2")
			(all)
			(dest eaguim2dir)
		)
	)
)

(exit)