;Install script for ShortQt v1.0
;Š 1996 Stv
;
;Ask for everything needed
;
(set #fullinstdir
	(askdir
		(prompt "Where do you want to install ShortQt! ?\n(no drawer will be created)")
		(help @askdir-help)
		(default "Sys:")
	)
)
(set #adddocs
	(askbool
		(prompt "\n\nShould I copy the documentation ?")
		(help @askbool-help)
	)
)
(set #copyconfig
	(askbool
		(prompt "\n\nDo you want to copy a default config-file ?")
		(help @askbool-help)
	)
)
(set #icon
	(askchoice
		(help @askchoice-help)
		(prompt "Select which Adagis icon you want to install")
		(choices "NewIcon-Style1" "MWB-Style 1")
		(default 1)
	)
)
(set #locales
	(askoptions
		(prompt "Which catalogs do you want to install ?")
		(help @askoptions-help)
		(choices "Spanish" "Catalan")
		(default %00)
	)
)
;
; Now the real installation process starts !
;
(set @default-dest #fullinstdir)								; Def install dir.
(copyfiles
	(source "/files/ShortQt")
	(dest #fullinstdir)
	(prompt "Going to copy the program")
	(help @copyfiles-help)
)
(if (= 1 #adddocs)											; Install documentation ?
	(copyfiles
		(source "/docs/ShortQt.guide")
		(dest #fullinstdir)
		(prompt "Going to copy the english documentation of ShortQt")
		(help @copyfiles-help)
		(infos)
	)
)
(if (= 1 #copyconfig)
	(	
		(copyfiles
			(source "/files/SHORTQT.1.cfg")
			(dest "env:mui/")
			(prompt "Going to copy the a def config of ShortQt")
			(help @copyfiles-help)
		)
		(copyfiles
			(source "/files/SHORTQT.1.cfg")
			(dest "envarc:mui/")
			(prompt "Going to copy the a def config of ShortQt")
			(help @copyfiles-help)
		)
		(copyfiles
			(source "/files/shortqt.volumes")
			(dest "envarc:")
			(prompt "Going to copy the a def config of ShortQt")
			(help @copyfiles-help)
		)
		(copyfiles
			(source "/files/shortqt.volumes")
			(dest "env:")
			(prompt "Going to copy the a def config of ShortQt")
			(help @copyfiles-help)
		)
	)
)
(select #icon
	(set #iconfile "/icons/NewIcon_Style1.info")
	(set #iconfile "/icons/MWB_Style1.info")
)
(copyfiles													; Install Adagis icon.
	(source #iconfile)
	(dest #fullinstdir)
	(newname "ShortQt.info")
	(prompt "Going to copy the ShortQt info file")
	(help @copyfiles-help)
)
(if (in #locales 0)
	(copyfiles
		(source "/files/locale/catalogs/espaņol")
		(dest "locale:catalogs/espaņol")
		(prompt "Installing catalogs")
		(all)
		(help @copyfiles-help)
	)
)
(if (in #locales 1)
	(copyfiles
		(source "/files/locale/catalogs/catalā")
		(dest "locale:catalogs/catalā")
		(prompt "Installing catalogs")
		(all)
		(help @copyfiles-help)
	)
)