; $VER: Startmenu V1.1 Installer
; Script to install MRE Startmenu
(complete 0)

(set #welcome
 (cat "\nWelcome to MRE !!\n\n"
      "This script will install the MRE Startmenu on your harddisk.\n\n"
      "Please close all running MRE modules.\n\n"
      "\nRemember that MRE needs at least OS3.5 and runs best with OS3.9.\n\n"
))
(set #MRE-query-text
 (cat "Where do you want to install the MRE drawer ?"
))

(set #MRE-query-help
 (cat "\nYou have now to choose a directory where "
      "you want to install the MRE drawer.\n"
      "The new directory is created automatically, so you only have to "
      "specify the parent dir.\n\n"
      "Almost every file will be copied to this directory and subdirectories. "
      "Preference programs are always stored in SYS:Prefs, "
      "manuals copied to HELP:, settings to ENVARC:"
))
(set #conf
 (cat "\n\nDo you want to install the standard config file on your system ?\n"
      "If this is your first installation, I recommend to install it.\n"
      "If you want to activate new features, start the related preference program.\n"
))
(set #conf-help
 (cat "\nThe installer wants to know if it is needed to "
      "install the standard config file.\n\n"
      "If you have a config file already installed "
      "just select the NO button\nto keep your own config."
))
(set #wbstartup
 (cat "\n\nDo you want to run the Startmenu automatically on startup ?\n"
))
(set #wbstartup-help
 (cat "\nThe startmenu will be copied to the drawer SYS:WBStartup "
      "if you agree to this question. This means that the program "
      "is loaded each time your system starts. So it can give direct "
      "access to your programs and windows.\n"
      "You should be sure that the startmenu will work correct on your system !"
))
(set #startprefs
 (cat "\nNow the prefs program will be started.\n"
      "\nPlease look at the settings and save your changes.\n"
      "\n(The prefs program must be started to adjust your settings. "
      "Some options may have changed or new ones may have been added, so "
      "the program will need new instructions. You don't have to change "
      "anything, you can also have a short look at the settings and "
      "click on Save.)\n"
))
(set #showreadme
 (cat "\n\nDo you want to view the readme file ?"
))
(set #showreadme-help
 (cat "\nThe readme file contains information about the changes since the "
      "last version. If you want have an overview without reading the whole manual, "
      "say yes to this question"
))
(set #bye
 (cat "\nInstallation is complete.\n\n"
      "If you want to use an other than the English language, look for an MRE catalog archive "
      "for your language. This will replace all language dependant files.\n"
      "If you want to make a catalog archive for your language, contact me at "
      "email@martin-elsner.de and I'll send you all information and tell you "
      "if somebody is already working on the translation.\n"
      "Changes to the last version are documented in the readme file.\n\n"
      "          And now enjoy MRE!"
))


;********************************************************************

(message #welcome)

(if(not(exists "MRE:" (noreq)))
 (
  (set thedir (askdir (prompt #MRE-query-text) (help #MRE-query-help) (default "Sys:")))
  (set @default-dest (tackon thedir "MRE"))
  (makedir @default-dest (infos))
  (makeassign "MRE" @default-dest)
  (startup "MRE" (prompt "")(help "")(command (cat "assign MRE: " @default-dest)))
 )(
  (set @default-dest "MRE:")
 )
)

(complete 10)

; copy all the MRE: stuff

(copyfiles (source "MRE")(dest @default-dest)(all) )

(complete 50)

; copy preference programs (and what else ?)

(if(exists "SYS")
 (copyfiles(source "Sys")(dest "SYS:")(prompt "")(infos)(all))
)

(complete 60)

; copy setting files

(if(exists "ENVARC")
 (if(askbool (prompt #conf) (help #conf-help) )
  (
   (copyfiles(source "ENVARC")(dest "ENVARC:")(prompt "")(all))
   (copyfiles(source "ENVARC")(dest "ENV:")(prompt "")(all))
  )
 )
)

(complete 70)

; copy manuals

(if(exists "HELP")
 (copyfiles(source "HELP")(dest "HELP:")(prompt "")(all))
)

(complete 80)

; copy libraries

(if(exists "LIBS")
 (if(not(exists "libs:popupmenu.library"))
  (copyfiles(source "libs/popupmenu.library")(dest "libs:")(prompt ""))
 )
)

(complete 90)

; copy wbstartup icon

(if(exists "WBStartup/Startmenu.info")
 (if(askbool (prompt #wbstartup) (help #wbstartup-help) )
  (copyfiles(source "WBStartup")(dest "SYS:WBStartup")(prompt "")(all))
 )
)

; start preference program

(message #startprefs)

(run "sys:prefs/startmenuprefs")

(complete 100)

(if (askbool (prompt #showreadme) (help #showreadme-help))(
  (showmedia "readme" "startmenu.readme" "center" "none" 1)
 )
)

; and now some final words

(message #bye)


(exit)