; $VER: AssignList Install 1.1 (24.03.96)
;
; By Markus Adamski
;

;=== Deutsch ===
(set #title "AssignList  1996 von Markus Adamski")
(set #ask-dir 
	(cat "Whlen Sie das Verzeichnis, in dem AssignList "
	"installiert werden soll. Ein Verzeichnis AssignList "
	"wird generiert.\n"))
(set #copy-file "\nKopiere Dateien...")
(set #wbstartup "\nSoll AssignList auch nach\nWBStartup kopiert werden ?")
(set #userstartup "\nEinige Kommandos werden zur Datei\nS:User-Startup hinzugefgt...")
(set #createasc "\nEine einfache Datei mit\nAssign-Definitionen wird erstellt...")

;=== English ===
(if (= @language "english")
(
(set #title "AssignList  1996 by Markus Adamski")
(set #ask-dir 
	(cat "Choose destination for AssignList. "
	"A drawer AssignList will be generated.\n"))
(set #copy-file "\nInstalling files...")
(set #wbstartup "\nAlso install AssignList in WBStartup ?")
(set #userstartup "\nSome command will be added\nto your S:user-startup file...")
(set #createasc "\nCreating a simple definition file...")
))

;=== Start ===
(user 2)

(complete 0)

(set #destvol
	(askdir
		(prompt #title)
		(help #ask-dir @askdir-help)
		(default "SYS:")
	)
)

(set @default-dest #destvol)
(set homedir (tackon #destvol "AssignList"))
(set assdir homedir)
(set docdir (tackon homedir "Guides"))
(set locdir (tackon homedir "Catalogs"))

(makedir homedir)
(makedir docdir)
(makedir locdir)

(complete 17)
(copyfiles
	(prompt #copy-files)
	(source "/")
	(choices "AssignList" "AssignList.info" "Docs.info")
	(dest homedir)
)

(complete 34)
(copyfiles
	(prompt #copy-files)
	(source "/Guides/")
	(all)
	(dest docdir)
)

(complete 42)
(copyfiles
	(prompt #copy-files)
	(source "/Catalogs/")
	(all)
	(dest locdir)
)

(complete 51)
(copyfiles
	(prompt #copy-files)
	(source "//")
	(choices "AssignList.info")
	(dest @default-dest)
)

(complete 68)
(startup "AssignList"
	(prompt #userstartup)
	(help @startup-help)
	(command homedir "AssignList " homedir "AssignFile.asc USE")
)

(complete 76)
(textfile
	(prompt #createasc)
	(help @textfile-help)
	(dest (tackon homedir "AssignFile.asc"))
	(append "Locked,ASSIGNLIST:," assdir "\n")
)
(tooltype
	(prompt #createasc)
	(help "")
	(dest (tackon homedir "AssignList"))
	(settooltype "FILE" (tackon homedir "AssignFile.asc"))
	(noposition)
)

(complete 85)
(if (askbool
		(prompt #wbstartup)
		(help @askbool-help)
		(default 0)
	)
	((copyfiles
		(prompt #copy-files)
		(source homedir)
		(choices "AssignList" "AssignList.info")
		(dest "SYS:WBStartup")
	)
	(tooltype
		(prompt #copy-files)
		(help "")
		(dest "SYS:WBStartup/AssignList")
		(settooltype "CX_POPUP" "NO")
		(settooltype "CX_POPKEY" "ctrl lalt a")
	))
)

(complete 100)
(exit)

(welcome "")