;Install script for ShortQt v1.4
;© 1996 Stv
;
(set #fullinstdir
	(askdir
		(prompt "Wo möchtest du ShortQt! installieren ?\n(es wird kein Verzeichnis errichtet, da dies nicht notwendig ist)")
		(help @askdir-help)
		(default "Sys:")
	)
)
(set #adddocs
	(askbool
		(prompt "\n\nSoll die Dokumentation kopiert werden ?")
		(help @askbool-help)
	)
)
(set #exshortqt (exists "ENV:shortqt.volumes" (noreq)))
(if (= #exshortqt 1)
	(
		(set #convert
			(askbool
				(prompt "\n\nEs scheint, daß ShortQt! schon installiert ist.\n\nMöchtest du die alte V1.0 Laufwerksliste in das neue v1.1+ Format umwandeln ?\n\n**********\nWENN DU SCHON V1.1+ INSTALLIERT HAST,\nBRAUCHST DU DAS _NICHT_\n**********")
				(help @askbool-help)
			)
		)
		(if (= 1 #convert)
		(
			(run 'convert')
			(copyfiles (source "RAM:shortqt.volumes") (dest "env:") (prompt "Kopiere neue Einstellungen") (help @copyfiles-help) )
			(copyfiles (source "RAM:shortqt.volumes") (dest "envarc:") (prompt "Kopiere neue Einstellungen") (help @copyfiles-help))
			(message "\n\nOK. Die Laufwerksliste wurde ins V1.1+ Format umgewandelt.\n\nBitte lies in der Dokumentation, da in der neuen Liste das 'KillCommand' nicht definiert ist.")
		)
		)
	)
	(set #copyconfig
		(askbool
			(prompt "\n\nMöchtest du die Standard-Konfigurationsdatei kopieren ?")
			(help @askbool-help)
		)
	)
)
(set #icon
	(askchoice
		(help @askchoice-help)
		(prompt "Welche Piktogramme möchtest du installieren\n(Schau in das 'Icons' Verzeichnis)")
		(choices "NewIcon-Stil 1" "MWB-Stil 1" "MWB-Stil 2" "MWB-Stil 3")
		(default 1)
	)
)

;
; Now the real installation process starts !
;
(set @default-dest #fullinstdir)
(copyfiles (source "/files/ShortQt") (dest #fullinstdir) (prompt "Kopieren des Programms") (help @copyfiles-help))
(if (= 1 #adddocs)
	(copyfiles (source "/docs/ShortQt.deutsch.guide") (dest #fullinstdir) (prompt "Kopieren der deutschen Dokumentation von ShortQt") (help @copyfiles-help) (infos))
)
(if (= 1 #copyconfig)
	(
		(copyfiles (source "/files/SHORTQT.1.cfg") (dest "env:mui/") (prompt "Kopieren der Standardkonfiguration von ShortQt") (help @copyfiles-help) )
		(copyfiles (source "/files/SHORTQT.1.cfg") (dest "envarc:mui/") (prompt "Kopieren der Standardkonfiguration von ShortQt") (help @copyfiles-help) )
		(copyfiles (source "/files/shortqt.volumes") (dest "envarc:") (prompt "Kopieren der Standardkonfiguration von ShortQt") (help @copyfiles-help))
		(copyfiles (source "/files/shortqt.volumes") (dest "env:") (prompt "Kopieren der Standardkonfiguration von ShortQt") (help @copyfiles-help))
	)
)
(select #icon
	(set #iconfile "/icons/NewIcon_Style1.info")
	(set #iconfile "/icons/MWB_Style1.info")
	(set #iconfile "/icons/MWB_Style2.info")
	(set #iconfile "/icons/MWB_Style3.info")
)
(copyfiles (source #iconfile) (dest #fullinstdir) (newname "ShortQt.info") (prompt "Kopieren des ShortQt Piktogramms") (help @copyfiles-help) )
(copyfiles (source "/files/locale/catalogs/deutsch") (dest "locale:catalogs/deutsch") (prompt "Installiere Katalog") (all) (help @copyfiles-help))