home *** CD-ROM | disk | FTP | other *** search
- ; $VER: Install_awebpng_awebplugin
- ; Description: Installer script for the "awebpng" plugin for AWeb-II 3.0+
-
- (set #welcome
- (cat "This installation procedure will install the \"awebpng\" plugin module for AWeb-II version 3.0 or higher.\n"
- "\n"
- "This plugin enables you to view PNG images in AWeb without the use of datatypes. The plugin has the following features:\n"
- "Optional progressive display\n"
- "Transparency\n"
- "Support for image scaling\n"
- "Support for CyberGraphics\n"
- )
- )
-
- (set #no-aweb3
- (cat "The \"AWeb3:\" assign was not found.\n\n"
- "This plugin can only be used with AWeb-II version 3.0 or higher."
- )
- )
-
- (set #show-docs
- (cat "All necessary files have been copied. "
- "To use the plugin, you have to do some additional setup. "
- "This is described in the documentation. "
- "From the documentation, you can run the setup script that performs the additional setup automatically. "
- "\n"
- "Do you want to view the documentation now?\n"
- )
- )
-
- ; ---------------------------------------------------------------------------
-
- (complete 0)
-
- (message #welcome)
-
- (if (not (exists "AWeb3:"))
- (abort #no-aweb3)
- )
-
- (complete 10)
-
- (if (not (exists "AWeb3:awebplugin"))
- (makedir "AWeb3:awebplugin"
- (infos)
- )
- )
-
- (set srcdir (pathonly @icon))
-
- (copyfiles
- (source (tackon srcdir "awebpng.awebplugin"))
- (dest "AWeb3:awebplugin")
- (infos)
- )
-
- (complete 50)
-
- (if (not (exists "AWeb3:awebplugin/Docs"))
- (makedir "AWeb3:awebplugin/Docs"
- (infos)
- )
- )
-
- (copyfiles
- (source srcdir)
- (choices "awebpng.html" "awebpng.awebrx")
- (dest "AWeb3:awebplugin/Docs")
- (infos)
- )
-
- (complete 90)
-
- (if
- (askbool
- (prompt #show-docs)
- (help #show-docs)
- (default 1)
- )
- (
- (run "run AWeb3:AWeb-II file:///AWeb3:awebplugin/Docs/awebpng.html")
- )
- )
-
- (set @default-dest (expandpath "AWeb3:awebplugin"))
-
- (complete 100)
-