; Install-Script for GetSize 40.1


(complete 0)

(set maindir
	(askdir
		(prompt "In which directory would you like GetSize installed?")
		(help @askdir-help)
		(default "C:")
	)
)

(set guidedir
	(askdir
		(prompt "In which directory would you like GetSize's AmigaGuide documentation installed?")
		(help @askdir-help)
		(default "HELP:")
	)
)

(copyfiles
	(help @copyfiles-help)
	(source "GetSize")
	(dest maindir)
)

(complete 50)

(copyfiles
	(help @copyfiles-help)
	(source "GetSize.guide")
	(dest guidedir)
	(infos)
	(optional "nofail")
)

(complete 90)

; .guide file uses AmigaGuide instead of MultiView for OS <= V38
(set ver (/ (getversion) 65536))

(if (> ver 38)
	(tooltype
		(dest (tackon guidedir "GetSize.guide"))
		(setdefaulttool "MultiView")
	)
)

(complete 100)

(exit)

