; GlossTask install to harddisk
; Hkan Parting 28 Jan 1996

(working "Setting up installation. Please wait...")
;	(run "copy Glos#? to ram:GlossT")
;	(run "copy Catalogs to ram:GlossT/catalogs ALL")
;	(run "copy Docs to ram:GlossT/docs ALL")
;	(run "copy Vocables to ram:GlossT/Vocables ALL")
;	(run "copy s to ram:GlossT/s ALL")
	(run "copy #? to ram:GlossT ALL")
	(run "delete ram:GlossT/Install_#?")
(complete 10)
(set glos-dest
	(askdir
		(prompt "Where would you like to install GlossTask?\nThe directory will be created automatically.")
			(help @askdir-help)
		(default @default-dest)
	)
)

(makedir (cat glos-dest "/GlossTask" )
	(infos)
)
(set glos-dest (cat glos-dest "/GlossTask" ))
(complete 20)
(working "Installing GlossTask program...")
	(copyfiles
		(help @copyfiles-help)
		(source "ram:GlossT/GlossTask")
		(dest glos-dest )
		(infos)
	)

(complete 30)
	(copyfiles
		(help @copyfiles-help)
		(source "ram:GlossT/Glos_Settings")
		(dest glos-dest)
		(infos)
	)

	(copyfiles
		(help @copyfiles-help)
		(source "ram:GlossT/Ls_mig_nu!")
		(dest glos-dest)
		(infos)
	)
(complete 40)
	(copyfiles
		(help @copyfiles-help)
		(source "ram:GlossT/Readme_first")
		(dest glos-dest)
		(infos)
	)
  
	(copyfiles
		(help @copyfiles-help)
		(source "ram:GlossT/WB2.0Users_read_this!!")
		(dest glos-dest)
		(infos)
	)

(complete 50)
	(copyfiles
		(help @copyfiles-help)
		(source "ram:GlossT/AGuideConv")
		(dest glos-dest)
	)

	(copyfiles
		(help @copyfiles-help)
		(source "Ram:GlossT/AguideConv.doc")
		(dest glos-dest)
		(infos)
	)

(complete 60)
    	(copyfiles
		(prompt "Do you want to install the vocable-lists?")
		(help @copyfiles-help)
		(source "ram:GlossT/Vocables")
		(dest (cat glos-dest "/Vocables" ))
		(all)
		(confirm)
	)
	

(complete 70)

(working "Installing documentation")
	(copyfiles
		(prompt "Which documentation do you want to install?")
		(help @copyfiles-help)
		(source "ram:GlossT/docs")
		(dest (cat glos-dest "/Docs" ))
		(all)
		(infos)
		(confirm)
	)

(complete 80)
(working "Installing local-translations")

(copyfiles
		(prompt "Which language do you want to install?")
		(help @copyfiles-help)
		(source "ram:GlossT/catalogs")
		(dest (cat glos-dest "/Catalogs" ))
		(choices "Svenska")
		(confirm)
	)

(complete 90)
(copyfiles
	(prompt "Installing config-file to S: directory")
	(help @copyfiles-help)
	(source "ram:GlossT/s/GlossTask.config" )
	(dest "S:")
	(Confirm)
)

(working "Cleaning up..")
	(run "delete ram:GlossT ALL")
(complete 100)
(exit)
