; ImageDex 2.0 Unregistered Installation - unknown source.

(transcript "Beginning ImageDex 2.0 installation...\n")

(set @default-dest
	(askdir
	   (default "WORK:")
   	(prompt "In which directory should the ImageDex drawer be installed?")
		(help @askdir-help)
		(disk)
	)
)

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

(set source_dir (pathonly @icon) )

(transcript "\nSource is "source_dir "\n")

(transcript "\nDestination chosen as "@default-dest "\n")
 
(makedir  @default-dest
	(prompt "I will now create the directory "@default-dest)
	(help @makedir-help)
	(infos)
	(confirm)
)

(copyfiles
	(prompt "Copying ImageDex files...")
	(help @copyfiles-help)
   (source source_dir)
   (dest @default-dest)
	(choices "ImageDex" "ImageDex.info" "ImageDex.guide" "Sample.iff"
            "Registration")
)


(message "Necessary libraries will now be copied to LIBS:")


(copylib
	(prompt "Copying RexxArpLib to LIBS:")
	(help @copylib-help)
	(source (tackon source_dir "LIBS/rexxarplib.library") )
	(dest "LIBS:")
	(confirm)
)

(copylib
	(prompt "Copying RexxPlsLib to LIBS:")
	(help @copylib-help)
	(source (tackon source_dir "LIBS/rexxplslib.library"))
	(dest "LIBS:")
	(confirm)
)

(copylib
	(prompt "Copying ReqTools to LIBS:")
	(help @copylib-help)
	(source (tackon source_dir "LIBS/reqtools.library"))
	(dest "LIBS:")
	(confirm)
)

(copylib
	(prompt "Copying RexxReqTools to LIBS:")
	(help @copylib-help)
	(source (tackon source_dir "LIBS/rexxreqtools.library"))
	(dest "LIBS:")
	(confirm)
)

(exit)

