;Installationscript für AWindows
;

(transcript "Installation von \"AWindows")

;AWindowsverzeichniss erstellen

(set @default-dest
	(askdir
		(prompt "Pfad für AWindows Verzeichniss")
		(help @askdir-help)
		(default @default-dest)
	)
)

(makeassign "MYASS" @default-dest)


(makedir "MYASS:AWINDOWS"
	(prompt "Das Verzeichniss AWINDOWS wird erzeugt")
	(help @makedir-help)
	(infos)
	(confirm)
)

;Demos Unterverzeichniss anlegen und Files kopieren

(makedir "MYASS:AWINDOWS/demos"
	(prompt "Das Verzeichniss AWINDOWS/demos wird erzeugt")
	(help @makedir-help)
	(infos)
	(confirm)
)

(set ass (expandpath "MYASS:AWINDOWS/demos"))

(copyfiles
	(prompt "Kopiere Demos nach AWINDOWS/demos")
	(help @copyfiles-help)
	(source "demos")
	(dest ass)
	(all)
	(files)
	(infos)
	(confirm)
)

(complete 20)

;PANELS Unterverzeichniss anlegen und Files kopieren

(makedir "MYASS:AWINDOWS/PANELS"
	(prompt "Das Verzeichniss AWINDOWS/PANELS wird erzeugt")
	(help @makedir-help)
	(infos)
	(confirm)
)

(set ass (expandpath "MYASS:AWINDOWS/PANELS"))

(copyfiles
	(prompt "Kopiere Panels nach AWINDOWS/PANELS")
	(help @copyfiles-help)
	(source "PANELS")
	(dest ass)
	(all)
	(files)
	(infos)
	(confirm)
)

(makeassign "PANELS" "MYASS:AWINDOWS/PANELS")

(complete 40)

(set assa (expandpath "MYASS:AWINDOWS"))

;Preferences kopieren

(if (exists "SYS:PREFS") (set destprefs "SYS:PREFS")

  (set destprefs
	(askdir
		(prompt "Pfad für PREFERENCES Verzeichniss")
		(help @askdir-help)
		(default assa)
	)
  )
)

(copyfiles
	(prompt "Kopiere PREFERENCES nach " prefdest)
	(help @copyfiles-help)
	(source "PREFS")
	(dest destprefs)
	(all)
	(files)
	(infos)
	(confirm)
)

(complete 60)

;Configurationen kopieren

(copyfiles
	(prompt "Kopiere Konfig.-Files nach s:")
	(help @copyfiles-help)
	(source "S")
	(dest "s:")
	(all)
	(files)
	(infos)
	(confirm)
)

(complete 70)

;Libraries kopieren

(set libdest
	(askdir
		(prompt "Pfad für Libraries")
		(help @askdir-help)
		(default "LIBS:")
	)
)


(copylib
	(prompt "Kopieren der window.library nach " libdest)
	(help @copylib-help)
	(source "libs/window.library")
	(dest libdest)
	(confirm)
)

(copylib
	(prompt "Kopieren der glue.library nach " libdest)
	(help @copylib-help)
	(source "libs/glue.library")
	(dest libdest)
	(confirm)
)

(copylib
	(prompt "Kopieren der wsreq.library nach " libdest)
	(help @copylib-help)
	(source "libs/wsreq.library")
	(dest libdest)
	(confirm)
)

(complete 95)

;Startup-sequence ändern

(startup "AWindows"
	(prompt
		"Die \"S:user-startup\" wird so ergänzt, daß ihr System AWindows automatisch benutzen kann!")
	(help "Keine Hilfe für diese Funktion")
	(command "assign PANELS: " ass)
)

(complete 100)

( message "AWindows wurde erfolgreich installiert. "
	  "Mit den Preferences können Sie sich nun ihre eigenen Voreinstellungen "
	  "zurechtlegen! "
)