(complete 0)

(set #bad-kick
(cat "You must be using Kickstart 2.0 (V37) to install WindowDaemon"
))

(set #which-disk
(cat "\nSelect directory to install to"
))

(set #which-disk-help
(cat "\nThis section lets you choose where to install WindowDaemon "
     "on your hard disk. This should normally go in the Workbench "
     "Startup drawer - SYS:WBStartup.\n\n"
     @askdir-help
))

(set #which-language
(cat "\nWhich languages should be installed"
))

(set #which-language-help
(cat "\nCheck the boxes of the languages you wish "
     "to have available with WindowDaemon.\n\n"
     @askoptions-help
))

(set #which-icons
(cat "\nInstall MagicWB style icons?"
))

(set #which-icons-help
(cat "\nThe MagicWB icon for WindowDaemon was designed by Osma Ahvenlampi (oahvenla@snakemail.hut.fi) "
     @askbool-help
))

(set #install-docs
(cat "\nInstall documentation?"
))

(set #install-docs-help
(cat "You may need help at a later date...\n\n"
     @askbool-help
))


(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

(complete 15)

;=============================================================================
; Installation target dir?

(set target (askdir (prompt #which-disk)
		(help #which-disk-help)
		(default "SYS:WBStartup")
	)
)
(set @default-dest target)

(complete 30)

;=============================================================================
; which languages should be installed?
;
;(set lang (askoptions (prompt #which-language)
;		      (help #which-language-help)
;		      (choices "Français" )
;		      (default 0)
;	  )
;
;)
;
;    (set n 0)
;
;    (while (set language (select n "français" "" ) )
;    (
;	(if (IN lang n)
;
;	(copyfiles
;		(source (cat "catalogs/" language "/matrix/" ))
;		(dest (cat "LOCALE:catalogs/" language "/matrix/" ))
;		(all)
;	)
;	)
;	    (set n (+ n 1))
;    ))
;
(complete 50)

;=============================================================================
; Required libraries

(copylib
	(prompt "Installing matrix.library")
	(help @copylib-help)
	(source "matrix.library")
	(dest "LIBS:")
	(confirm)
)
(complete 60)

;=============================================================================
; Main program

(copyfiles
	(prompt "Copying to " #target )
	(help @copyfiles-help)
	(source "")
	(dest (cat target) )
	(choices "WindowDaemon")
)

(complete 70)

;(set iconz (askbool (prompt #which-icons)
;		(help #which-icons-help)
;		(choices "YES" "NO")
;	  )
;)


    (if (= iconz 0)                           ; conditional test
        (set #iconname (cat "WindowDaemon.info" )
	)
        (set #iconname (cat "WindowDaemon.magicwb" )
	)
    )

(copyfiles
	(prompt "Installing icons...")
	(help @copyfiles-help)
	(source #iconname)
	(dest (cat target) )
	(newname "WindowDaemon.info" )
)





(complete 80)

(set docs (askbool (prompt #install-docs)
		(help #install-docs-help)
		(choices "YES" "NO")
	  )
)

(complete 90)

(if (= docs 1)
	(copyfiles (source "" )
	   (dest (askdir	(prompt #doc-dir )
			(help #doc-dir-help )
			(default "sys:")
			(newpath)
			(disk)
		))
	   (infos)
	   (choices "WindowDaemon.guide" "windowdaemon.cd" )
	)
)


(complete 100)