home *** CD-ROM | disk | FTP | other *** search
- ; Install script
- ;
- ; Copyright by Wayne Newark, 1999
-
- (message
- "\nInstalls SVConvert.dopus5 © Wayne Newark."
- "\n\nThe DOpus script can be used to "
- "convert selected pictures to an alternative format "
- "by running the program SViewNG, SViewII or SViewIV "
- "which were written by Andreas Kleinert."
- "\n\nRead the file SVConvert.readme for further information."
- "\n\nTo use this script you will need to be a"
- "\nregistered user of SViewNG, SViewII or SViewIV."
- )
-
- (set ARexx-dest "DOpus5:ARexx")
- (set catalog-dest "DOpus5:catalogs")
- (set menu-dest "DOpus5:buttons")
- (set Libs-dest "Libs:")
-
- ;(set ARexx-dest "ram:")
- ;(set catalog-dest "ram:")
- ;(set menu-dest "ram:")
- ;(set Libs-dest "ram:")
-
- (message "\nInstalling ARexx script\n\n"
- "\nThis step installs the SVConvert.dopus5 script"
- "\nand some associated files."
- )
-
- (copyfiles (prompt "\n\nSVConvert.dopus5")
- (help @copyfiles-help)
- (confirm "expert")
- (source "SVConvert.dopus5")
- (dest Arexx-dest)
- (optional "askuser" "oknodelete")
- )
-
- (copyfiles (prompt "\n\nCatalog File(s)" )
- (help @copyfiles-help)
- (confirm "expert")
- (source "catalogs")
- (all)
- (dest catalog-dest)
- (optional "oknodelete" "askuser")
- )
-
- (copyfiles (prompt "\n\nExample Start Menu" )
- (help @copyfiles-help)
- (confirm "expert")
- (source "SViewII.menu")
- (dest menu-dest)
- (optional "oknodelete" "askuser")
- )
-
- (copyfiles (prompt "\n\nExample Start Menu (German)" )
- (help @copyfiles-help)
- (confirm "expert")
- (source "SViewII_de.menu")
- (dest menu-dest)
- (optional "oknodelete" "askuser")
- )
-
- (copyfiles (prompt "\n\nExample Button Bank" )
- (help @copyfiles-help)
- (confirm "expert")
- (source "SViewII.buttons")
- (dest menu-dest)
- (optional "oknodelete" "askuser")
- )
-
- (message "\nInstalling Libraries\n"
- "\nThe script requires the following libraries, which"
- "\nwill now be installed onto your machine: \n"
- "\n triton.library"
- "\n tritonrexx.library"
- )
-
- (copylib (prompt "\n\ntriton Library" )
- (help @copyfiles-help)
- (confirm "expert")
- (source "libs/triton.library")
- (dest Libs-dest)
- (optional "oknodelete" "askuser")
- )
-
- (copylib (prompt "\n\ntritonrexx Library" )
- (help @copyfiles-help)
- (confirm "expert")
- (source "libs/tritonrexx.library")
- (dest Libs-dest)
- (optional "oknodelete" "askuser")
- )
-
- (exit
- (quiet)
- )
-