; Install script for Assistant

;Lets ask the user where he/she wants to install Assistant.

    (set destpath (askdir (prompt "Where do you want to install Assistant?\n\n"
                                  "You can create a new drawer if you want."
                          )
                          (default @default-dest)
                          (help @askdir-help)
                  )
    )


; Tell installer what drawer we selected.

    (set @default-dest destpath)


; We now know what to put where lets do some real work.

    (copyfiles (prompt "Copying files")
               (help @copyfiles-help)
               (source "Assistant/Assistant")
               (infos)
               (dest @default-dest)
    )

    (copyfiles (prompt "Copying files")
               (help @copyfiles-help)
               (source "Assistant/Assistant.guide")
               (dest @default-dest)
    )

    (if (askbool (prompt "Do you want Assistant to automatically start from your WBStartup everytime you boot?\n\n"
                 )
                 (help @askchoice-help)
        )
        (
         (copyfiles (prompt "Copying files")
                    (help @copyfiles-help)
                    (source "Assistant/As-start")
                    (infos)
                    (dest "SYS:WBStartup")
         )
         (tooltype (prompt "Setting default tool for start icon")
                   (help @tooltype-help)
                   (dest "SYS:WBStartup/As-start")
                   (noposition)
                   (setdefaulttool (tackon @default-dest "Assistant"))
         )
        )
    )
