home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / demos / ibrowse2 / ibrowse2.3-020+ / install-ibrowse < prev    next >
Encoding:
Text File  |  2004-08-03  |  20.1 KB  |  520 lines
  1. ; $VER: Install-IBrowse 2.3.3 (10.10.2002)
  2.  
  3. (set #app-version "2.3")    ; Update this for each version
  4. (set @app-name "IBrowse")    ; Application name
  5. (set #installer-ver (/ @installer-version 65536))
  6. (set #cpu (database "cpu") )
  7. (set #fpu (database "fpu") )
  8. (set #v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  9. (if (and (<> #cpu "68000") (<> #cpu "68010") )
  10.   (set #cpu-install 1) )
  11. (if (and (<> "NOFPU" #fpu) (= #cpu-install 1) )
  12.   (set #cpu-install 2) )
  13. (if (and (<> "NOFPU" #fpu) (= "68040" #cpu) )
  14.   (set #cpu-install 3) )
  15. (if (exists "libs:68060.library")
  16.   (set #cpu-install 4) )
  17. (if (exists "Anims")
  18.   (set #disk-install 0)
  19.   (set #disk-install 1) )
  20.  
  21. (set #welcome "\n\nThis is the installation for IBrowse %s.\nIBrowse is a fast web-browser for the Amiga that supports many HTML 4.0 features, Javascript, as well as many Netscape specific things.\n\n IBrowse is © 2001-2003 Stefan Burstroem\n© 1995-2001 Omnipresence Intl.\n\nwww.ibrowse-dev.net\n\nDistributed by IOSPIRIT   -   www.iospirit.de")
  22. (set #languages-prompt "Please select which languages of IBrowse you want to install")
  23. (set #destdir-prompt "Please select where you want to install IBrowse. A drawer named 'IBrowse' will be created in this directory if it doesn't already exist")
  24. (set #cpu-prompt "Select which version of IBrowse you would like to install")
  25. (set #cpu-help "You should choose the configuration that suits your computer. The installation has guessed what you need, but you may change it as long as you have a computer that can handle it. If you own an 68040 without fpu, select 68020+. If you own a 68030 (with/without fpu), select 020+ (with/without fpu).")
  26. (set #string "This option requires you to enter a value (or leave it blank) You can find additional information in the manual about the verious elements in the preferences")
  27. (set #dir "This option requires you to choose a directory. Choose one that suits your needs.")
  28. (set #ask-configure "You can configure some important parts of")
  29. (set #old-prefs "If you have an old version of IBrowse installed here, your old preferences are left. They will be renamed so that you don't loose any old settings. If you select skip, no files will be changed or copied")
  30. (set #old-hotlist "If you have an old version of IBrowse installed here, your old hotlist is left. It will be renamed so that you don't loose any links. If you select skip, no files will be changed or copied")
  31. (set #anim-help "You may choose which anim you want to install. They use different amounts of memory and you should choose the one that you find suitable for your system")
  32. (set #languages-help "Choose which languages you want IBrowse to be able to use. Languages in (parenthesises) are not currently included in this archive")
  33. (set #destdir-help "Choose where you want IBrowse to be stored. A drawer will be copied to this location. You will find all files in this drawer. Nothing is copied to other locations on your harddrive")
  34. (set #need39 "\n\nSorry, but you need KS3.0 or later to run IBrowse")
  35. (set #ask-mui38 "\n\nIBrowse uses some new features in MUI3.8\nYou need to install this version for IBrowse to operate properly.")
  36. (set #newstring-prompt "IBrowse uses NewString.mcc (c) 1995-1997 Rüdiger Sopp. Where do you have MUI installed?")
  37. (set #newstring-help "NewString.mcc must be installed to make IBrowse work correctly" )
  38. (set #help-manual "The included manual is online HTML documentation. If you don't install it now, you can install it at a later time or view it from the distribution archive.")
  39. (set #ask-manual "Do you want to install the included online HTML documentation.")
  40. (set #nlist-message "IBrowse %s uses NList.mcc. They will now be installed if you don't have them")
  41. (set #ice-message "The Cache Explorer in IBrowse %s uses a few custom mui classes. They will now be installed if you don't have them")
  42. (set #ice-message-cr "The Cache Explorer in IBrowse %s uses CopyReplace. It will now be copied to C:")
  43. (set #ice-delete "The Cache Explorer class is now located in the ibcc directory, so this file is no longer needed")
  44. (set #multiview-error "Unable to find MultiView. Please read the file ReadMe.txt when you have finished this installation")
  45. (set #upgrade-message "\n\nUpgrading an existing IBrowse %s installation.\n\nYour existing preferences file will not be overwritten, so that you don't loose your existing settings. The new preferences file will instead be copied to IBrowse_%s.prefs in case you need it.")
  46. (set #prompt_copy "Copying")
  47. (set #image-prompt "Copying program images - Skip this part if you are using third-party images")
  48. (set #upgradev1-message "\n\nAn IBrowse 1.x installation was detected - your current IBrowse drawer will be renamed \"IBrowseV1\" and IBrowse %s shall be installed to a new IBrowse drawer.")
  49.  
  50. (procedure p_install-misc
  51.   (set #info-dir (tackon #ibdir "info") )
  52.   (if (not (exists #info-dir) )
  53.     (makedir #info-dir) )
  54.   (copyfiles (source "info") (dest #info-dir) (all) )
  55.  
  56.   (set #image-dir (tackon #ibdir "images") )
  57.   (if (not (exists #image-dir) )
  58.     ( (makedir #image-dir)
  59.       (copyfiles (source "images") (dest #image-dir) (all) ) )
  60.     (copyfiles (source "images") (dest #image-dir) (all) (confirm "average") (prompt #image-prompt) (help @copyfiles-help)) )
  61.  
  62.   (if (not (exists (tackon #ibdir "IBrowse.info") ) )
  63.     (copyfiles (source "icons/IBrowse.info") (dest #ibdir) ) )
  64.  
  65.   (set #protocols-dir (tackon #ibdir "protocols") )
  66.   (if (not (exists #protocols-dir) )
  67.     (makedir #protocols-dir) )
  68.   (copyfiles (source "protocols") (dest #protocols-dir) (all) )
  69.  
  70.   (set #ibcc-dir (tackon #ibdir "ibcc") )
  71.   (if (not (exists #ibcc-dir) )
  72.     (makedir #ibcc-dir) )
  73.   (copyfiles (source "ibcc" ) (dest #ibcc-dir) (all) )
  74.  
  75.   (set #cache-dir (tackon #ibdir "Cache") )
  76.   (if (not (exists #cache-dir) )
  77.     (makedir #cache-dir) ) )
  78.  
  79. (procedure p_install-codecs
  80.   (set #codecs-dir (tackon #ibdir "codecs") )
  81.   (if (not (exists #codecs-dir) )
  82.     (makedir #codecs-dir) )
  83.  
  84.   (if (= #cpu-install 1)
  85.     (copyfiles (source "codecs" ) (dest #codecs-dir) (all) )
  86.     ( (if (= #cpu-install 2)
  87.         (set #codecssrc-dir "codecs68020fpu") )
  88.       (if (= #cpu-install 3)
  89.         (set #codecssrc-dir "codecs68040fpu") )
  90.       (if (= #cpu-install 4)
  91.         (set #codecssrc-dir "codecs68060fpu") )
  92.       (run (cat "spatch \"-o" (tackon #codecs-dir "gif.codec") "\" -p" (tackon #codecssrc-dir "gif.codec.spatch") " codecs/gif.codec" ) )
  93.       (run (cat "spatch \"-o" (tackon #codecs-dir "jpeg.codec") "\" -p" (tackon #codecssrc-dir "jpeg.codec.spatch") " codecs/jpeg.codec" ) )
  94.       (run (cat "spatch \"-o" (tackon #codecs-dir "png.codec") "\" -p" (tackon #codecssrc-dir "png.codec.spatch") " codecs/png.codec" ) )
  95.       (run (cat "spatch \"-o" (tackon #codecs-dir "xbm.codec") "\" -p" (tackon #codecssrc-dir "xbm.codec.spatch") " codecs/xbm.codec" ) )
  96.       (run (cat "spatch \"-o" (tackon #codecs-dir "imagedecode.module") "\" -p" (tackon #codecssrc-dir "imagedecode.module.spatch") " codecs/imagedecode.module" ) ) ) ) )
  97.  
  98. (procedure p_install-javascript
  99.   (if (= #cpu-install 1)
  100.     (copyfiles (source "javascript/javascript.library.020" ) (dest #ibdir) (newname "javascript.library" ) )
  101.     ( (if (= #cpu-install 2)
  102.         (run (cat "spatch \"-o" (tackon #ibdir "javascript.library") "\" -pjavascript/javascript.library.020-020fpu javascript/javascript.library.020" ) ) )
  103.       (if (= #cpu-install 3)
  104.         (run (cat "spatch \"-o" (tackon #ibdir "javascript.library") "\" -pjavascript/javascript.library.020-040fpu javascript/javascript.library.020" ) ) )
  105.       (if (= #cpu-install 4)
  106.         (run (cat "spatch \"-o" (tackon #ibdir "javascript.library") "\" -pjavascript/javascript.library.020-060fpu javascript/javascript.library.020" ) ) ) ) ) )
  107.  
  108. (procedure p_install-anims
  109.   (set #defanim 1)
  110.   (set #dispdepth (if (< #installer-ver 44) 8 (querydisplay "screen" "depth") ) )
  111.   (if (>= #dispdepth 15)
  112.     (set #defanim 0) )
  113.   (if (<= #dispdepth 6)
  114.     (set #defanim 3) )
  115.   (if (<= #dispdepth 5)
  116.     (set #defanim 3) )
  117.   (set #result (askchoice
  118.     (if (exists (tackon #image-dir "TransferAnimation"))
  119.       (choices (if (< #installer-ver 42) "24bit TrueColor" "\x1b[2p24bit TrueColor") "8bit 256 colors" "6bit 64 colors" "5bit 32 colors" "5bit 32 colors (non moving)" "None (use existing animation)")
  120.       (choices (if (< #installer-ver 42) "24bit TrueColor" "\x1b[2p24bit TrueColor") "8bit 256 colors" "6bit 64 colors" "5bit 32 colors" "5bit 32 colors (non moving)") )
  121.       (prompt "Which transfer animation do you want to install?")
  122.         (help #anim-help)
  123.         (default #defanim) ) )
  124.   (if (= #result 0)
  125.     (copyfiles (source "Anims/TransferAnimation.24") (dest #image-dir) (newname "TransferAnimation") ) )
  126.   (if (= #result 1)
  127.     (copyfiles (source "Anims/TransferAnimation") (dest #image-dir) (newname "TransferAnimation") ) )
  128.   (if (= #result 2)
  129.     (copyfiles (source "Anims/TransferAnimation.6") (dest #image-dir) (newname "TransferAnimation") ) )
  130.   (if (= #result 3)
  131.     (copyfiles (source "Anims/TransferAnimation.5") (dest #image-dir) (newname "TransferAnimation") ) )
  132.   (if (= #result 4)
  133.     (copyfiles (source "Anims/TransferAnimationNM") (dest #image-dir) (newname "TransferAnimation") ) )
  134.  
  135.   (if (< #result 4)
  136.     (copyfiles (source "Anims/TransferAnimation.info") (dest #image-dir) )
  137.     (if (= #result 4)
  138.       (copyfiles (source "Anims/TransferAnimationNM.info") (dest #image-dir) (newname "TransferAnimation.info") ) ) )
  139. )
  140.   
  141. (procedure p_copy-catalog
  142.   (set #dest-lang (tackon (tackon #ibdir "catalogs") #language) )
  143.   (if (not (exists #dest-lang))
  144.     (makedir #dest-lang) )
  145.   (copyfiles
  146.     (source (cat (tackon "Catalogs" #language) "/IBrowse.catalog") )
  147.     (dest #dest-lang) ) )
  148.  
  149. (procedure p_install-catalogs
  150.   (set #languages
  151.     (askoptions
  152.       (choices (if (< #installer-ver 42) "Català" "\x1b[2pCatalà") "Czech" "Dansk" "Deutsch" "English (built in)" "Español" "Français" "(Greek)" "Italiano" "Magyar" "(Nederlands)" "(Norsk)" "(Polski)" "Português" "Português-brasil" "Russian" "Slovensko" "Srpski" "Suomi" "Svenska")
  153.         (prompt #languages-prompt)
  154.         (help #languages-help)
  155.         (default 16) ) )
  156.  
  157.   (if (bitand #languages 524271)
  158.     ( (set #catdir (tackon #ibdir "catalogs"))
  159.       (if (not (exists #catdir))
  160.         (makedir #catdir) )
  161.  
  162.       (if (bitand #languages 1)
  163.         ( (set #language "Català")
  164.           (p_copy-catalog) ) )
  165.       (if (bitand #languages 2)
  166.         ( (set #language "Czech")
  167.           (p_copy-catalog) ) )
  168.       (if (bitand #languages 4)
  169.         ( (set #language "Dansk")
  170.           (p_copy-catalog) ) )
  171.       (if (bitand #languages 8)
  172.         ( (set #language "Deutsch")
  173.           (p_copy-catalog) ) )
  174.       (if (bitand #languages 32)
  175.         ( (set #language "Español")
  176.           (p_copy-catalog) ) )
  177.       (if (bitand #languages 64)
  178.         ( (set #language "Français")
  179.           (p_copy-catalog) ) )
  180. ;      (if (bitand #languages 128)
  181. ;        ( (set #language "Greek")
  182. ;          (p_copy-catalog) ) )
  183.       (if (bitand #languages 256)
  184.         ( (set #language "Italiano")
  185.           (p_copy-catalog) ) )
  186.       (if (bitand #languages 512)
  187.         ( (set #language "Magyar")
  188.           (p_copy-catalog) ) )
  189. ;      (if (bitand #languages 1024)
  190. ;        ( (set #language "Nederlands")
  191. ;          (p_copy-catalog) ) )
  192. ;      (if (bitand #languages 2048)
  193. ;        ( (set #language "Norsk")
  194. ;          (p_copy-catalog) ) )
  195. ;      (if (bitand #languages 4096)
  196. ;        ( (set #language "Polski")
  197. ;          (p_copy-catalog) ) )
  198.       (if (bitand #languages 8192)
  199.         ( (set #language "Português")
  200.           (p_copy-catalog) ) )
  201.       (if (bitand #languages 16384)
  202.         ( (set #language "Português-brasil")
  203.           (p_copy-catalog) ) )
  204.       (if (bitand #languages 32768)
  205.         ( (set #language "Russian")
  206.           (p_copy-catalog) ) )
  207.       (if (bitand #languages 65536)
  208.         ( (set #language "Slovensko")
  209.           (p_copy-catalog) ) )
  210.       (if (bitand #languages 131072)
  211.         ( (set #language "Srpski")
  212.           (p_copy-catalog) ) )
  213.       (if (bitand #languages 262144)
  214.         ( (set #language "Svenska")
  215.           (p_copy-catalog) ) ) ) ) )
  216.  
  217. (procedure p_install-manual
  218.   (set #manual-dir (tackon #ibdir "helpfiles") )
  219.   (if (not (exists #manual-dir) )
  220.     (makedir #manual-dir) )
  221.   (copyfiles (source "helpfiles") (dest #manual-dir) (all) )
  222.   (copyfiles
  223.     (source "ib2.html" )
  224.     (dest #ibdir) )
  225.   (copyfiles
  226.     (source "ib2.html.info" )
  227.     (dest #ibdir) ) )
  228.  
  229. (procedure p_install-dummymanual
  230.   (copyfiles
  231.     (source "ib2_dummy.html" )
  232.     (dest #ibdir)
  233.     (newname "ib2.html" ) )
  234.   (copyfiles
  235.     (source "ib2.html.info" )
  236.     (dest #ibdir) ) )
  237.  
  238. (if (>= #installer-ver 44)
  239.   (showmedia "#logo-handle" "info/ibrowse-logo.gif" "upper_center" "none" 0) )
  240.  
  241. (welcome)
  242.  
  243. (if (not #v39)
  244.    (abort #need39)
  245. )
  246.  
  247. (message (#welcome #app-version))
  248.  
  249. (set #ibdir
  250.   (askdir
  251.     (prompt #destdir-prompt)
  252.     (help #destdir-help)
  253.     (default @default-dest) ) )
  254.  
  255. (complete 5)
  256.  
  257. (if (= #disk-install 1) 
  258.   ( (working "Dearchiving distribution archive...")
  259.     (run "t:lhex >nil: -fw=t: x IBrowse2Install1:IBrowse2Archive1.lha" ) ) )
  260.  
  261. (set #ibrowse-dir (tackon #ibdir "IBrowse") )
  262. (if (not (exists #ibrowse-dir) )
  263.   ( (makedir #ibrowse-dir) )
  264.   ( (set #ibrowse-version (/ (getversion (tackon #ibrowse-dir "IBrowse") ) 65536 ) )
  265.     (if (< #ibrowse-version 20)
  266.       ( (message (#upgradev1-message #app-version) )
  267.         (rename (tackon #ibdir "IBrowse") (tackon #ibdir "IBrowseV1") )
  268.         (makedir #ibrowse-dir) )
  269.       (if (>= #ibrowse-version 20)
  270.         (
  271.           (set #oldver ("%ld.%ld" (/ #ibrowse-version 10) (- #ibrowse-version (* (/ #ibrowse-version 10) 10) ) ) )
  272.           (message (#upgrade-message #oldver #app-version) ) ) ) ) ) )
  273.  
  274. (if (not (exists (tackon #ibrowse-dir "IBrowse.info") ) )
  275.   (copyfiles (source "icons/IBrowseDrw.info") (dest #ibdir) (newname "IBrowse.info") ) )
  276.  
  277. (complete 10)
  278.  
  279. (set #ibdir (tackon #ibdir "IBrowse"))
  280.  
  281. (set @default-dest #ibdir)
  282.  
  283. (p_install-catalogs)
  284.  
  285. (complete 15)
  286.  
  287. (set #cpu-install
  288.   (askchoice
  289.     (choices (if (< #installer-ver 42) "(68000)" "\x1b[2p(68000)") "68020" "68020/FPU" "68040/FPU" "68060/FPU")
  290.       (prompt #cpu-prompt)
  291.         (help #cpu-help)
  292.         (default #cpu-install) ) )
  293.  
  294. (complete 20)
  295.  
  296. (p_install-misc)
  297.  
  298. (complete 24)
  299.  
  300. (if (exists (tackon #ibdir "IBCacheBrowser.mcc") )
  301.     (delete (tackon #ibdir "IBCacheBrowser.mcc") (optional "force") (prompt #ice-delete) ) )
  302.  
  303. (complete 25)
  304.  
  305. (set #instmanual (askbool (help #help-manual) (prompt #ask-manual) ) )
  306.  
  307. (if (= #instmanual 1)
  308.    (p_install-manual)
  309.    (p_install-dummymanual) )
  310.  
  311. (complete 30)
  312.  
  313. (copyfiles (source "IBrowse") (dest #ibdir) )
  314.  
  315. (complete 40)
  316.  
  317. (copyfiles (source "History.txt") (dest #ibdir) )
  318. (copyfiles (source "History.html") (dest #ibdir) )
  319.  
  320. (complete 50)
  321.  
  322. (if (= #disk-install 1) 
  323.   ( (askdisk
  324.         (prompt "\n\n\nPlease insert disk 2") (help "")
  325.         (dest "IBrowse2Install2") )
  326.     (run "delete >nil: #? all")
  327.     (working "Dearchiving distribution archive...")
  328.     (run "t:lhex >nil: -fw=t: x IBrowse2Install2:IBrowse2Archive2.lha" ) ) )
  329.  
  330. (p_install-codecs)
  331.  
  332. (complete 60)
  333.  
  334. (p_install-javascript)
  335.  
  336. (complete 65)
  337.  
  338. (p_install-anims)
  339.  
  340.  
  341. (if (= #disk-install 1) 
  342.   ( (set #mui38 (>= (getversion "libs:muimaster.library" ) 1048736) )
  343.     (if (not #mui38)
  344.       ( (set str "\n\n\nIBrowse needs MUI3.8 or later to function properly. You may skip this part and install MUI3.8 manually from the 3rd disk instead, but it is recomended that you let this installer install MUI3.8 aswell\n")
  345.         (set #muiver (/ (getversion "libs:muimaster.library" ) 65536) )
  346.  
  347.             (if (= muiver  0) (set muiverstr "" )
  348.             (if (< muiver  6) (set muiverstr "1.x")
  349.             (if (= muiver  6) (set muiverstr "1.4")
  350.             (if (= muiver  7) (set muiverstr "2.0")
  351.             (if (= muiver  8) (set muiverstr "2.1")
  352.             (if (= muiver  9) (set muiverstr "2.2")
  353.             (if (= muiver 10) (set muiverstr "2.3")
  354.             (if (= muiver 11) (set muiverstr "3.0")
  355.             (if (= muiver 12) (set muiverstr "3.1")
  356.             (if (= muiver 13) (set muiverstr "3.2")
  357.             (if (= muiver 14) (set muiverstr "3.3")
  358.             (if (= muiver 15) (set muiverstr "3.4")
  359.             (if (= muiver 16) (set muiverstr "3.5")
  360.             (if (= muiver 17) (set muiverstr "3.6")
  361.             (if (= muiver 18) (set muiverstr "3.7")
  362.             (if (= muiver 19) (set muiverstr "3.8")
  363.             (if (= muiver 20) (set muiverstr "3.9")
  364.             (if (> muiver 20) (set muiverstr "" )
  365.             ))))))))))))))))))
  366.  
  367.         (if (<> #muiver 0)
  368.           (set #str (cat str "You have MUI " muiverstr " currently installed." ) )
  369.           (set #str "You have no version of MUI installed.") )
  370.         (if (askbool
  371.           (prompt #str)
  372.             (help #ask-mui38)
  373.             (choices "Proceed" "Skip this part") )
  374.           ( (askdisk
  375.             (prompt "\n\n\nPlease insert disk 3") (help "")
  376.             (dest "IBrowse2Install3") )
  377.             (set @execute-dir "IBrowse2Install3:")
  378.             (if (= @user-level 1)
  379.               (run (cat "Installer433 Install-MUI APPNAME \"MUI 3.8\" MINUSER NOVICE DEFUSER AVERAGE LOGFILE t:install.log") )
  380.               (run (cat "Installer433 Install-MUI APPNAME \"MUI 3.8\" MINUSER NOVICE DEFUSER EXPERT LOGFILE t:install.log") ) ) ) ) ) ) ) )
  381.  
  382. (complete 75)
  383.  
  384. ( (if (= (exists "mui:libs/mui/Newstring.mcc" (noreq)) 1)
  385.       ( (set #newstring-version (getversion "mui:libs/mui/Newstring.mcc") ) )
  386.       ( (set #newstring-version 0 ) ) )
  387.  
  388.     (if (< #newstring-version 1048586)
  389.       ( (set #newstring-dir
  390.           (askdir
  391.             (prompt #newstring-prompt)
  392.               (help #newstring-help)
  393.               (default "mui:") ) )
  394.         (set #newstring-dir (tackon #newstring-dir "libs/mui") )
  395.         (copyfiles (source "mui/Newstring.mcc" ) (dest #newstring-dir) )
  396.         (copyfiles (source "mui/Newstring.mcp" ) (dest #newstring-dir) ) ) ) )
  397.  
  398. (complete 80)
  399.  
  400. (message (#nlist-message #app-version))
  401.         
  402. (copylib (prompt #prompt_copy "\n\nNList.mcc" )
  403.          (help @copylib-help)
  404.          (confirm "average")
  405.          (source "mui/NList.mcc")
  406.          (dest "MUI:Libs/MUI")
  407.          (optional "oknodelete" "force")
  408. )
  409.  
  410. (complete 82)
  411.  
  412. (copylib (prompt #prompt_copy "\n\nNListview.mcc" )
  413.          (help @copylib-help)
  414.          (confirm "average")
  415.          (source "mui/NListview.mcc")
  416.          (dest "MUI:Libs/MUI")
  417.          (optional "oknodelete" "force")
  418. )
  419.  
  420. (complete 84)
  421.  
  422. (copylib (prompt #prompt_copy "\n\nNListviews.mcp" )
  423.          (help @copylib-help)
  424.          (confirm "average")
  425.          (source "mui/NListviews.mcp")
  426.          (dest "MUI:Libs/MUI")
  427.          (optional "oknodelete" "force")
  428. )
  429.  
  430. (complete 86)
  431.  
  432. (copylib (prompt #prompt_copy "\n\nNFloattext.mcc" )
  433.          (help @copylib-help)
  434.          (confirm "average")
  435.          (source "mui/NFloattext.mcc")
  436.          (dest "MUI:Libs/MUI")
  437.          (optional "oknodelete" "force")
  438. )
  439.  
  440. (complete 88)
  441.  
  442. (copylib (prompt #prompt_copy "\n\nNListtree.mcc" )
  443.          (help @copylib-help)
  444.          (confirm "average")
  445.          (source "mui/NListtree.mcc")
  446.          (dest "MUI:Libs/MUI")
  447.          (optional "oknodelete" "force")
  448. )
  449.  
  450. (complete 90)
  451.  
  452. (copylib (prompt #prompt_copy "\n\nNListtree.mcp" )
  453.          (help @copylib-help)
  454.          (confirm "average")
  455.          (source "mui/NListtree.mcp")
  456.          (dest "MUI:Libs/MUI")
  457.          (optional "oknodelete" "force")
  458. )
  459.  
  460. (complete 92)
  461.  
  462. (message (#ice-message #app-version))
  463.         
  464. (copylib (prompt #prompt_copy "\n\nTextHistory.mcc" )
  465.          (help @copylib-help)
  466.          (confirm "average")
  467.          (source "mui/TextHistory.mcc")
  468.          (dest "MUI:Libs/MUI")
  469.          (optional "oknodelete" "force")
  470. )
  471.  
  472. (complete 94)
  473.  
  474. (copylib (prompt #prompt_copy "\n\nStringHistory.mcc" )
  475.          (help @copylib-help)
  476.          (confirm "average")
  477.          (source "mui/StringHistory.mcc")
  478.          (dest "MUI:Libs/MUI")
  479.          (optional "oknodelete" "force")
  480. )
  481.  
  482. (complete 96)
  483.  
  484. (message (#ice-message-cr #app-version))
  485.  
  486. (copylib (prompt #prompt_copy "\n\nc:CopyReplace" )
  487.          (help @copylib-help)
  488.          (confirm "average")
  489.          (source "c/CopyReplace")
  490.          (dest "c:")
  491.          (optional "oknodelete" "force")
  492. )
  493.  
  494. (complete 98)
  495.  
  496. (if (exists (tackon #ibdir "IBrowse.prefs") )
  497.   (copyfiles (source "IBrowse.prefs") (dest #ibdir) (newname ("IBrowse_%s.prefs" #app-version)) )
  498.   (copyfiles (source "IBrowse.prefs") (dest #ibdir) ) )
  499.  
  500. (complete 99)
  501.  
  502. (if (exists "sys:utilities/multiview")
  503.   (set #multiview "sys:utilities/multiview")
  504. )
  505.  
  506. (if (exists "sys:tools/multiview")
  507.   (set #multiview "sys:tools/multiview")
  508. )
  509.  
  510. (if (exists "sys:system/multiview")
  511.   (set #multiview "sys:system/multiview")
  512. )
  513.  
  514. (if (= #multiview 0)
  515.   (message #multiview-error)
  516.   (run (cat #multiview " ReadMe.txt") )
  517. )
  518.  
  519. (complete 100)
  520.