(if (askbool (help @askbool-help) (prompt "Some old MUI stuff is in your libs: drawer. Do you want to delete it now?"))
(
(if (<> (exists "sys:libs/muimaster.library") 0)
(
(delete
("sys:libs/muimaster.library")
(prompt "Deleting old muimaster.library...")
(help @deletefile-help)
)
)
)
(foreach "sys:Classes/MUI" "#?.mui"
(delete
(tackon "sys:Classes/MUI" @each-name)
(help @deletefile-help)
)
)
(if (<> (exists "sys:Classes/Images") 0)
(
(foreach "sys:Classes/Images" "mui#?.image"
(delete
(tackon "sys:Classes/Images" @each-name)
(help @deletefile-help)
)
)
)
)
(delete
("sys:Classes/MUI")
(help @deletefile-help)
)
)
)
)
(
(if (<> (exists "sys:libs/muimaster.library") 0)
(
(delete
("sys:libs/muimaster.library")
(prompt "Deleting old muimaster.library...")
(help @deletefile-help)
)
)
)
)
)
(if (<> (exists "sys:prefs/mui") 0)
(
(if (askbool (help @askbool-help) (prompt "The old preferences program is obsolete. Do you want to delete it now?"))
(
(delete
("sys:Prefs/MUI")
(help @deletefile-help)
)
(delete
("sys:Prefs/MUI.info")
(help @deletefile-help)
)
)
)
)
)
(if (<> (exists "sys:prefs/MUI-Images") 0)
(
(if (askbool (help @askbool-help) (prompt "The images in sys:prefs/MUI-Images have moved. Do you want to delete it now? CAUTION: If you have added some extra images here, be sure to copy them somewhere else before proceeding!"))
(
(run "delete sys:Prefs/MUI-images#? all >nil:")
)
)
(if (askbool (help @askbool-help) (prompt "Due to the new directory"
" structure, your old preferences settings are no longer valid and must be"
" deleted. This will not affect window positions and application private"
" settings. Please don't worry, instead take"
" a look at the prefs program's preset menu when"
" reconfiguring MUI. Do you want to delete the old settings now?"))
(
(run "delete envarc:mui/#?.prefs >nil:")
(run "delete envarc:mui/MUIPREFS.cfg >nil:")
)
)
)
)
;***** We won't delete the catalogs since we aren't replacing them
(set muimsg "Please select a place for \"MagicUserInterface\". A drawer called \"MUI\" will be created here. The minimum space required is about 500 kB.")
)
(
(set @default-dest "MUI:/")
(set muimsg "MUI is already installed on your system. Press \"Proceed\" to update your installation or select a different path for the \"MUI\" drawer.")
)
)
)
(
(set muimsg "Please select a place for \"MagicUserInterface\". A drawer called \"MUI\" will be created here. The minimum space required is about 500 kB.")
)
)
(set @default-dest (expandpath @default-dest))
(set MUI-dest
(askdir
(prompt muimsg)
(help @askdir-help)
(default @default-dest)
)
)
(set MUI-drawer (tackon MUI-dest "MUI"))
(if (= (exists MUI-drawer) 2)
(message
"A MUI drawer does already exist in the selected directory. By selecting \"Proceed\", "
"you indicate that you want to update the MUI installation with the "
"included version (v2.3). Several MUI specific files will be overwritten!"
)
)
(makeassign "MUI" MUI-dest)
;***** Copy the MUI archive to ram and unarc it to the selected directory
(prompt "Please select a directory to install WCS into. Approximately one megabyte of storage space is required.")
(Help @askdir-help)
(newpath)
(default (tackon @default-dest "WCS"))
)
)
( if (= (exists prog-dest) 0)
(makedir prog-dest (infos))
)
(makeassign "WCSProg" prog-dest)
)
(Procedure Make_WCSProjDir
( set proj-dest
(askdir
(prompt "Please select a directory to install WCS Projects into. Approximately 6 megabytes of storage space is required.")
(Help @askdir-help)
(newpath)
(default (tackon prog-dest "WCSProjects"))
)
)
( if (= (exists proj-dest) 0)
(makedir proj-dest (infos))
)
(makeassign "WCSProjects" proj-dest)
)
(Procedure Make_WCSFrameDir
( set frame-dest
(askdir
(prompt "Please select a directory for WCS Rendered Image output. Animation frames will also be saved here so leave plenty of room.")
(Help @askdir-help)
(newpath)
(default (tackon prog-dest "WCSFrames"))
)
)
( if (= (exists frame-dest) 0)
(makedir frame-dest (infos))
)
(makeassign "WCSFrames" frame-dest)
)
(Procedure Make_WCSImageDir
( set image-dest
(askdir
(prompt "Please select directory for WCS Sample Images. A new sub-directory will be created here to hold the images. Approximately 500 kilobytes of storage space are required.")
