; $VER: Install (Portrait) 1.2 (17.06.98)
; © 1998 Christopher January

(transcript "Install-Portrait")

(set @app-name "Portrait")

(set #disclaimer-msg
  (cat "Please remember that Portrait is still very much"
       "\nunder development and it is likely to contain a ,"
       "\nnumber of bugs and many unimplemented features. "
       "\nPlease read AFD-COPYRIGHT before installing     "
       "\nPortrait. You may not use Portrait unless you   "
       "\nagree to the terms in the file. This version of "
       "\nPortrait has been released for test purposes    "
       "\nonly.                                           ")
)

(set #need-newwpa8
  (cat "You must run NewWPA8 before Portrait, otherwise   "
       "\nyou will just see garbage in the canvas window! ")
       "\n"
       "\nNewWPA8 by Michael van Elst")
)

(set #install-newwpa8 "Installing NewWPA8")

(set #install-program "Installing Portrait program")

(set #install-mode "Installing PortraitMode program")

(set #install-projectmanager "Installing ProjectManager")

(set #install-prefs "Installing default preferences")

(set #install-icons "Installing toolbar icons")

(set #install-misc "Installing supplementary files")

(set #install-docs "Installing documentation")

(set #install-dest
  (cat "Where do you wish to install Portrait?"
       "\nA drawer will be created"))

(set #bad-kick "Portrait requires Kickstart 3.0+")

(set #copy-tabs "Copying tabs.gadget to SYS:Classes/Gadgets")

(set #hi-msg "Welcome to the Portrait Installation")

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

(welcome #hi-msg)

(message #disclaimer-msg)

(set @default-dest
  (askdir
    (prompt #install-dest)
    (help @askdir-help)
    (default @default-dest)
  )
)

(set @default-dest (tackon @default-dest "Portrait"))

(copyfiles
  (prompt #install-program)
  (source "Portrait")
  (infos)
  (dest @default-dest)
)

(copyfiles
  (prompt #install-mode)
  (source "PortraitMode")
  (infos)
  (dest @default-dest)
)

(copyfiles
  (prompt #install-projectmanager)
  (source "ProjectManager")
  (infos)
  (dest @default-dest)
)

(copyfiles
  (prompt #install-misc)
  (source "CHANGES")
  (source "FILES")
  (source "Projects.list")
  (infos)
  (dest @default-dest)
)

(copyfiles
  (prompt #install-icons)
  (help @copyfiles-help)
  (source "Icons")
  (all)
  (infos)
  (dest (tackon @default-dest "Icons"))
  (confirm)
)

(copyfiles
  (prompt #install-docs)
  (source "Docs")
  (help @copyfiles-help)
  (all)
  (infos)
  (dest (tackon @default-dest "Docs"))
  (confirm)
)

(copylib
  (prompt #copy-tabs)
  (source "Classes/Gadgets/tabs.gadget")
  (dest "SYS:Classes/Gadgets")
  (help @copylib-help)
  (confirm)
)

(message #need-newwpa8)

(copylib
  (prompt #copy-newwpa8)
  (source "NewWPA8")
  (dest "C:")
  (help @copyfiles-help)
  (confirm)
)