home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / utillities / vinced / install / install_vnc < prev   
Text File  |  1997-05-08  |  45KB  |  1,381 lines
  1. ; $VER: Install_ViNCEd 40.7 (8th May 1997)
  2. ; Script to install ViNCEd version 40.40 or better
  3. ; © 1993-97 THOR - Software
  4. ;
  5. ; The installer software is copyrighted © 1993 CBM
  6. ;
  7.  
  8. ; tell the user that we're 0% done
  9. (complete 0)
  10.  
  11. ;=============================================================================
  12. ; useful procedure
  13.  
  14. (procedure TERMINATE (makeassign "..VNC..")
  15.  
  16. )
  17.  
  18. (procedure JOIN (
  19.  
  20. (if (not (exists (name)))
  21.         ;then
  22.         (abort (#exit-not-found name 0))
  23. )
  24.  
  25. (if (set ioerr (run ("c:copy \"%s\" to t:__tempfile__" name)))
  26.         ;then
  27.         (abort (#exit-not-found name ioerr))
  28. )
  29.  
  30. (if (set ioerr (run ("c:join t:__tempfile__ \"%s\" to \"%s\"" joinsoure name)))
  31.         ;then
  32.         (abort (#exit-not-found name ioerr))
  33. )
  34.         
  35. (run ("c:delete t:__tempfile__"))
  36.                 
  37. ))
  38.  
  39. ;==========================================================================
  40. ; termination stuff
  41.  
  42. (onerror (TERMINATE))
  43.  
  44. ;==========================================================================
  45. ; get current WB version
  46. (set #version (/ (getversion "LIBS:version.library") 65536))
  47.  
  48. ;get language specific strings
  49. ;==========================================================================
  50. ; English strings
  51.  
  52. (set default_lang 4)
  53.  
  54. (set #yes "Yes")
  55. (set #no  "No")
  56.  
  57. (set #which-disk
  58. (cat "In which disk should ViNCEd be installed?"
  59. ))
  60.  
  61. (set #exit-not-decoded
  62. (cat "The SetVNC program can't be encoded. Conact the author at "
  63.      "thor@math.tu-berlin.de."
  64. ))
  65.  
  66. (set #which-disk-help
  67. (cat "\nThis section lets you choose in which disk the "
  68.      "ViNCEd files should be installed. These should normally go in the same "
  69.      "location as the Workbench files, i.e. the boot partition or -disk.\n\n"
  70.      @askdir-help
  71. ))
  72.  
  73. (set #no-assign
  74. (cat "\nThe destination has to be a system disk. The drawers S,DEVS,LIBS "
  75.      "and C must exist there.\n\n"
  76. ))
  77.  
  78. (set #old-name
  79. (cat "OLD"
  80. ))
  81.  
  82. (set #move-old
  83. (cat "\n\nShall I backup the following files to the \"%s\" drawer?\n\n%s" ))
  84.  
  85. (set #move-old-help
  86. (cat "\nInstalling ViNCEd will replace some current Workbench files, "
  87.      "the Startup- and MountList files. "
  88.      "In order to preserve any changes you have previously made to these "
  89.      "files, the installation process will copy them to the \"%s\" drawer "
  90.      "where they can later be retrieved."
  91. ))
  92.  
  93. (set #move-old-1
  94. (cat "Copy"
  95. ))
  96.  
  97. (set #move-old-2
  98. (cat "Skip"
  99. ))
  100.  
  101. (set #ask-vnc
  102. (cat "Please locate the ViNCEd source directory:"
  103. ))
  104.  
  105. (set #ask-vnc-help
  106. (cat "Please specify here the directory where you've unpacked the "
  107.      "archive to. The default I selected for you should work in "
  108.      "(almost) all cases, so don't worry about selecting another "
  109.      "source.\n\n"
  110.      @askdir-help
  111. ))
  112.  
  113. (set #do-mount
  114. (cat    "Do you want to add the mount entries for the ViNCEd handler?"
  115. ))
  116.  
  117. (set #mount-help
  118. (cat    "If you want to install ViNCEd as a shell window driver "
  119.         "you must MOUNT ViNCEd as a device, like the RAD ram disk or a "
  120.         "hard disk. The information needed how to do this is "
  121.         "included in mount entries, which must be added to the "
  122.         "system list of devices. I advise you to answer with a YES "
  123.         "since NOT mounting ViNCEd is rather useless. "
  124. ))
  125.  
  126. (set #modify-startup
  127. (cat    "Do you want to mount ViNCEd automatically on startup?"
  128. ))
  129.  
  130. (set #override-con
  131. (cat    "Replace the CON: handler by ViNCEd?"
  132. ))
  133.  
  134. (set #override-help
  135. (cat    "With an extra command added to the startup-sequence "
  136.         "ViNCEd can be configured to replace Commodore's "
  137.         "system window handler, CON:. This results in opening "
  138.         "every console window, like the windows used for ARexx, "
  139.         "Ed and much more, as an ViNCEd window. If you choose to "
  140.         "do so, I advice you NOT to turn on the "
  141.         "\"Use Shell Mode by Default\" flag in the preferences "
  142.         "editor. Read more about this in the guide."
  143. ))
  144.  
  145. (set #modify-startup-help
  146. (cat    "The command to be added is \"%s\"\n\n"
  147.         "This will mount ViNCEd automatically."
  148. ))
  149.  
  150. (set #which-name
  151. (cat    "Mount ViNCEd under which name?"
  152. ))
  153.  
  154. (set #which-name-help
  155. (cat    "ViNCEd can be mounted as VNC: or as NEWCON:. "
  156.         "It works fine under both names, but you should use NEWCON: "
  157.         "with Workbench 1.3 to replace the system window handler. "
  158. ))
  159.  
  160. (set #copy-lib
  161. (cat    "Shall I copy the vnc.library to the LIBS: drawer?"
  162. ))
  163.  
  164. (set #copy-lib-help
  165. (cat    "The vnc.library is the heard of the ViNCEd window driver and "
  166.         "contains the handler itself. The window handler won't work "
  167.         "with it, and not installing it makes the installation useless."
  168. ))
  169.  
  170. (set #copy-setvnc
  171. (cat    "Shall I install the SetVNC control program to the C: drawer?"
  172. ))
  173.  
  174. (set #copy-setvnc-help
  175. (cat    "The SetVNC program acts as a preference program for the ViNCEd "
  176.         "system. It provides not only a complete preferences editor, but "
  177.         "also functions for job control. Please consult the guide to find "
  178.         "out more about this program."
  179. ))
  180.  
  181. (set #do-locale
  182. (cat    "Shall I install the german catalog files?"
  183. ))
  184.  
  185. (set #locale-help
  186. (cat    "ViNCEd can be localized for the german language. Please answer "
  187.         "if you wish to add the necessary localization data."
  188. ))
  189.  
  190. (set #do-prefs
  191. (cat    "Shall I install the preferences icon?"
  192. ))
  193.  
  194. (set #prefs-help
  195. (cat    "This icon will be copied in your Prefs drawer and will "
  196.         "invoke the preferences editor of ViNCEd, the SetVNC "
  197.         "program. A nice graphical user interface will allow you "
  198.         "to setup the parameters of ViNCEd then."
  199. ))
  200.  
  201. (set #copy-help
  202. (cat    "O.K. to install the ViNCEd online Guide?"
  203. ))
  204.  
  205. (set #copy-help-help
  206. (cat    "The ViNCEd guide is a complete documentation of "
  207.         "the handler and the preferences editor, SetVNC. "
  208.         "It is invoked by the Help key in the shell "
  209.         "or by a Help button in the preferences editor. If you aren't "
  210.         "really low on disk space, you should install it."
  211. ))
  212.  
  213. (set #help-dir
  214. (cat    "Please select the drawer to install the help-guide:"
  215. ))
  216.  
  217. (set #help-help
  218. (cat    "ViNCEd comes with an online help guide, using Commodore's "
  219.         "AmigaGuide or MultiView program. Please select the drawer to copy "
  220.         "this database to."
  221. ))
  222.  
  223. (set #do-docs
  224. (cat    "Shall I install the ViNCEd include files?"
  225. ))
  226.  
  227. (set #docs-where
  228. (cat    "Please select the drawer for the include and link library files:"
  229. ))
  230.  
  231. (set #docs-help
  232. (cat    "If you want to use all the features of ViNCEd, you need "
  233.         "the C- and assembler include files for writing own "
  234.         "programs that call ViNCEd. It is recommended "
  235.         "that you use the link library stub routines for this task. "
  236. ))
  237.  
  238. (set #browser-where
  239. (cat    "Please locate your favorite AmigaGuide browser:"
  240. ))
  241.  
  242. (set #browser-help
  243. (cat    "Please select a program that can display AmigaGuide files. "
  244.         "This should be AmigaGuide or Multiview. As a last resort, "
  245.         "select MORE or Ed, that can be found in the Utilities or "
  246.         "C: drawer of your workbench disk."
  247. ))
  248.  
  249. (set #do-scripts
  250. (cat    "Shall I install the shell scripts?"
  251. ))
  252.  
  253. (set #scripts-help
  254. (cat    "The scripts replace the SetFont and the SetKeyboard command files "
  255.         "in a ViNCEd compatible way. Three other tiny scripts are useful "
  256.         "shortcuts for job control functions. "
  257. ))
  258.  
  259. (set #where-scripts
  260. (cat    "Where shall I copy the scripts to?"
  261. ))
  262.  
  263. (set #where-scripts-help
  264. (cat    "Shell scripts should be usually placed in the S directory of your "
  265.         "startup device, where they will be found by the shell by default. "
  266.         "However, if you prefer a different location, go ahead, but make "
  267.         "shure the shell can find them, or they are useless."
  268. ))
  269.  
  270. (set #copy-icon
  271. (cat    "Shall I replace the shell icon?"
  272. ))
  273.  
  274. (set #copy-icon-help
  275. (cat    "If you want to use ViNCEd as shell editor, I advice you to "
  276.         "replace the system icon by the icon that comes with this "
  277.         "archive. It selects a ViNCEd path as shell window."
  278. ))
  279.  
  280. (set #where-shell
  281. (cat    "Please select the directory the shell icon resides in:"
  282. ))
  283.  
  284. (set #where-shell-help
  285. (cat    "If you want to replace the default shell icon, "
  286.         "please tell me where you have put it. By default, this "
  287.         "is either the root directory of your boot-volume, or "
  288.         "the Systems drawer. Please note that I need the "
  289.         "DIRECTORY, not the file!"
  290. ))
  291.  
  292. (set #do-patch
  293. (cat    "Shall I patch ARexx to remove a bug?"
  294. ))
  295.  
  296. (set #patch-help
  297. (cat    "The rexxsyslib.library function WaitDosPacket has a bug "
  298.         "which might cause crashes. This is not a "
  299.         "specific ViNCEd problem, and "
  300.         "may also occure with other programs. You should install "
  301.         "this patch to repair the library."
  302. ))
  303.  
  304. (set #copy-stringsnip
  305. (cat    "Shall I install the StringSnip command?"
  306. ))
  307.  
  308. (set #install-stringsnip
  309. (cat    "Shall I start StringSnip at startup time?"
  310. ))
  311.  
  312. (set #stringsnip-help
  313. (cat    "StringSnip is a small utility, which, if installed, enhances "
  314.         "the editor features of string gadgets in a way compareable "
  315.         "to ViNCEd. Amiga-X cut the contents, Amiga-C copies them and "
  316.         "Amiga-V inserts the clipboard. Additional cursor key "
  317.         "combinations like those provided by ViNCEd make this a useful "
  318.         "tool, which works independent from ViNCEd."
  319. ))
  320.  
  321. (set #copy-multiassigns
  322. (cat    "Shall I install the TrueMultiAssigns command?"
  323. ))
  324.  
  325. (set #install-multiassigns
  326. (cat    "Shall I start TrueMultiAssigns at startup time?"
  327. ))
  328.  
  329. (set #multiassigns-help
  330. (cat    "The TrueMultiAssigns program is a patch command that makes the "
  331.         "pattern matching routines of AmigaDOS operating correctly on "
  332.         "multi directory assigns. Several programs can be found for the "
  333.         "same job, but all I inspected are more or less broken, including "
  334.         "MultiCX and the old TrueMultiAssigns 1.02 by Marcus Wild, and "
  335.         "don't work with ViNCEd. I recommend to use my patch, since it has "
  336.         "been tested to support ViNCEd."
  337. ))
  338.  
  339. (set #exit-not-found
  340. (cat    "Unable to find your file \"%s\" - DOS error %ld "
  341.         "- installation aborted. "
  342. ))
  343.  
  344. (set #exit-text
  345. (cat    "Installation of ViNCEd done. Hope you enjoy it..."
  346. ))
  347.  
  348. ;=============================================================================
  349. ; German strings
  350.  
  351. (if (= @language "deutsch")
  352. (
  353. (set default_lang 2)
  354.  
  355. (set #yes "Ja")
  356. (set #no  "Nein")
  357.  
  358. (set #which-disk
  359. (cat "Auf welcher Diskette oder Festplatte soll ViNCEd "
  360.      "installiert werden?"
  361. ))
  362.  
  363. (set #which-disk-help
  364. (cat "Hier können Sie wählen, auf welchem Gerät "
  365.      "die ViNCEd-Dateien installiert werden sollen. "
  366.      "Sie sollten normalerweise an dieselbe Stelle installiert werden "
  367.      "wie die Workbench-Dateien, also auf die "
  368.      "Boot-Partition bzw. Diskette.\n\n"
  369.      @askdir-help
  370. ))
  371.  
  372. (set #no-assign
  373. (cat "\nDas Ziel muß ein Systemlaufwerk sein. Die Ordner S,DEVS,LIBS "
  374.      "und C müssen dort vorhanden sein.\n\n"
  375. ))
  376.  
  377. (set #old-name
  378. (cat "ALT"
  379. ))
  380.  
  381. (set #move-old
  382. (cat "\n\nSollen folgende Dateien zur Sicherheit in die "
  383.      "Schublade \"%s\" kopiert werden?\n\n%s"
  384. ))
  385.  
  386. (set #exit-not-decoded
  387. (cat "Das SetVNC Programm kann nicht entkodiert werden. Bitte benachrichtigen "
  388.      "Sie mich unter thor@math.tu-berlin.de."
  389. ))
  390.  
  391. (set #move-old-help
  392. (cat "\nDie Installation von ViNCEd ersetzt die einige der bisherigen "
  393.      "Workbench-Dateien, so die Startup- und MountList Files. "
  394.      "Damit alle Ergänzungen, die Sie früher an diesen Dateien "
  395.      "vorgenommen haben, nicht verloren gehen, werden sie bei der "
  396.      "Installation in die Schublade \"%s\" kopiert, woher Sie "
  397.      "sie später zurückholen können."
  398. ))
  399.  
  400. (set #move-old-1
  401. (cat "Kopieren"
  402. ))
  403.  
  404. (set #move-old-2
  405. (cat "Überspringen"
  406. ))
  407.  
  408.  
  409. (set #ask-vnc
  410. (cat "Bitte wählen Sie den ViNCEd Quellordner aus:"
  411. ))
  412.  
  413. (set #ask-vnc-help
  414. (cat "Bitte wählen Sie hier den Ordner aus, in den Sie das "
  415.      "ViNCEd-Archiv entpackt haben. Die von mir gewählte "
  416.      "Voreinstellung sollte in (fast) allen Fällen funktionieren, "
  417.      "bemühen Sie sich also nicht eine andere auszuwählen.\n\n"
  418.      @askdir-help
  419. ))
  420.  
  421. (set #do-mount
  422. (cat    "Sollen die Mount-Einträge für den ViNCEd Handler kopiert werden?"
  423. ))
  424.  
  425. (set #mount-help
  426. (cat    "Falls Sie ViNCEd als einen Shell-Fester Treiber verwenden "
  427.         "möchten, muß es als ein Gerät vorher angemeldet werden, "
  428.         "ebenso wie die RAD Ramdisk oder eine Festplatte. "
  429.         "Die hierfür notwendigen Informationen befinden sich "
  430.         "in Mount-Einträgen, die zu der Systemliste der Geräte "
  431.         "hinzugefügt werden. Sie sollten hier mit JA antworten, "
  432.         "denn es ist recht witzlos, ViNCEd nicht als ein Gerät "
  433.         "anzumelden."
  434. ))
  435.  
  436. (set #modify-startup
  437. (cat    "Wollen Sie ViNCEd beim Hochfahren des Systems automatisch einbinden?"
  438. ))
  439.  
  440. (set #modify-startup-help
  441. (cat    "Das einzufügende Kommando ist \"%s\"\n\n"
  442.         "Damit wird ViNCEd in das System eingebunden."
  443. ))
  444.  
  445. (set #override-con
  446. (cat    "Soll der CON:-handler durch ViNCEd ersetzt werden?"
  447. ))
  448.  
  449. (set #override-help
  450. (cat    "Durch ein zusätzliches Kommando in der startup-sequence "
  451.         "kann ViNCEd so konfiguriert werden, daß es den System-"
  452.         "Fenstertreiber CON: ersetzt. Dies führt dazu, daß alle "
  453.         "Programme, die ein Konsolenfenster öffnen, etwa ARexx "
  454.         "Ed und einige mehr, stattdessen ein komfortableres "
  455.         "ViNCEd Fenster erhalten. Falls Sie diese Option einstellen "
  456.         "möchten, sollten Sie aber das Flag "
  457.         "\"Shell Modus als Voreinstellung\" im Voreinsteller nicht "
  458.         "anwählen. Schauen Sie bitte auch in den Guide, um mehr "
  459.         "hierüber zu erfahren."
  460. ))
  461.  
  462. (set #which-name
  463. (cat    "ViNCEd unter welchem Namen einbinden?"
  464. ))
  465.  
  466. (set #which-name-help
  467. (cat    "ViNCEd kann als VNC: oder als NEWCON: in das System eingebunden "
  468.         "werden. Der Handler funktioniert unter beiden Namen gleich "
  469.         "gut, aber unter Workbench 1.3 sollten Sie NEWCON: verwenden, "
  470.         "um den Betriebssystemtreiber zu ersetzen."
  471. ))
  472.  
  473. (set #copy-lib
  474. (cat    "Soll die vnc.library in den LIBS:-Ordner kopiert werden?"
  475. ))
  476.  
  477. (set #copy-lib-help
  478. (cat    "Die vnc.library ist eine Funktionsbibliothek und stellt "
  479.         "das Herz des gesamten ViNCEd Systems dar, ohne die nichts "
  480.         "funktioniert. Sie enthält den Fenstertreiber, ohne den "
  481.         "die ganze Installation recht witzlos wird."
  482. ))
  483.  
  484. (set #copy-setvnc
  485. (cat    "Soll das SetVNC Programm in die C:-Schublade kopiert werden?"
  486. ))
  487.  
  488. (set #copy-setvnc-help
  489. (cat    "Das SetVNC Programm ist der Voreinsteller für ViNCEd. "
  490.         "Es enthält nicht nur eine graphische Oberfläche für die "
  491.         "Voreinstellungen, sondern auch Funktionen für die Job "
  492.         "Kontrolle. Schauen Sie bitte in die Anleitung, um mehr "
  493.         "über dieses Programm herauszufinden."
  494. ))
  495.  
  496. (set #do-locale
  497. (cat    "Soll die deutschen Übersetzung installiert werden?"
  498. ))
  499.  
  500. (set #locale-help
  501. (cat    "ViNCEd kann auf Deutsch eingestellt werden, benötigt dafür "
  502.         "aber Katalogfiles, die in den Locale: Ordner kopiert "
  503.         "werden müssen. "
  504. ))
  505.  
  506. (set #do-prefs
  507. (cat    "Soll das Voreinsteller-Icon installiert werden?"
  508. ))
  509.  
  510. (set #prefs-help
  511. (cat    "Dieses Piktogramm wird in den Prefs-Ordner kopiert "
  512.         "und ruft das SetVNC-Programm als Voreinsteller von "
  513.         "ViNCEd auf. Sie können dann mit einer netten graphischen "
  514.         "Benutzeroberfläche die Voreinstellungen des ViNCEd-Systems "
  515.         "Ihren Bedürfnissen anpassen."
  516. ))
  517.  
  518. (set #copy-help
  519. (cat    "Möchten Sie die ViNCEd Online-Dokumentation installieren?"
  520. ))
  521.  
  522. (set #copy-help-help
  523. (cat    "Der ViNCEd Guide ist eine vollständige Dokumentation des "
  524.         "Fenstertreibers und des Einstellungsprogrammes SetVNC. "
  525.         "Er wird aufgerufen, wenn Sie in der Shell die Help Taste "
  526.         "oder einen Hilfe-Knopf im Voreinsteller drücken. "
  527.         "Falls Ihre Platte nicht wirklich voll ist, sollten Sie "
  528.         "diese Anleitung auch installieren."
  529. ))
  530.  
  531. (set #help-dir
  532. (cat    "Bitte wählen Sie den Ordner, in den der VNC-Guide "
  533.         "installiert werden soll."
  534. ))
  535.  
  536. (set #help-help
  537. (cat    "ViNCEd besitzt eine Online-Hilfe, die mittels Commodores AmigaGuide "
  538.         "oder Multiview Programmes Hilfestellung bei der Arbeit mit ViNCEd bietet. Geben Sie "
  539.         "hier an, in welchen Order der Datensatz kopiert werden soll."
  540. ))
  541.  
  542. (set #do-docs
  543. (cat    "Sollen die ViNCEd Include-Dateien installiert werden?"
  544. ))
  545.  
  546. (set #docs-where
  547. (cat    "In welchen Ordner sollen die Include-Files installiert werden:"
  548. ))
  549.  
  550. (set #docs-help
  551. (cat    "Wenn Sie alle Möglichkeiten ViNCEds nutzen wollen, so benötigen "
  552.         "Sie zum Erstellen von Programmen, die ViNCEd aufrufen, "
  553.         "die Include-Files und die Link-Libraries. "
  554.         "Sie sollten dann ViNCEd durch die stub-Funktionen "
  555.         "dieser Link-Libraries aufrufen. "
  556. ))
  557.  
  558. (set #browser-where
  559. (cat    "Bitte wählen Sie ihr favorisiertes AmigaGuide - Anzeigeprogramm:"
  560. ))
  561.  
  562. (set #browser-help
  563. (cat    "Wählen Sie hier bitte ein Programm, mit dem man sich AmigaGuide "
  564.         "Dateieen anzeigen lassen kann. Dies sollte der AmigaGuide oder "
  565.         "das Programm Multiview sein. Als letzen Ausweg kann hier "
  566.         "MORE oder Ed angegeben werden. Diese Programme finden Sie "
  567.         "in der Utilities oder C: Schublade Ihrer Workbench-Diskette."
  568. ))
  569.  
  570. (set #do-scripts
  571. (cat    "Sollen die Shell Skripte installiert werden?"
  572. ))
  573.  
  574. (set #scripts-help
  575. (cat    "Zwei dieser Skripte ersetzen die SetFont und SetKeyboard Kommandos "
  576.         "durch ViNCEd kompatible Shell-Skripte. Drei weitere Skripte "
  577.         "dienen als Abkürzung für die Job-Kontrollfunktionen der "
  578.         "VNC Bibliothek."
  579. ))
  580.  
  581. (set #where-scripts
  582. (cat    "Wohin sollen die Skripte kopiert werden?"
  583. ))
  584.  
  585. (set #where-scripts-help
  586. (cat    "Shell-Skripte gehören für gewöhnlich in den S:-Ordner Ihrer "
  587.         "Boot-Platte, wo sie auch von der Shell gefunden werden können. "
  588.         "Natürlich können Sie die Skripte auch an andere Stellen kopieren, "
  589.         "jedoch sollten sie dort auch von der Shell gefunden werden, da sie "
  590.         "sonst recht nutzlos sind."
  591. ))
  592.  
  593. (set #copy-icon
  594. (cat    "Soll das Shell-Icon ersetzt werden?"
  595. ))
  596.  
  597. (set #copy-icon-help
  598. (cat    "Falls Sie ViNCEd als Shell-Editor verwenden möchten, sollten "
  599.         "sie das System-Icon durch das mitgeliferte Icon ersetzen, "
  600.         "das als Shell-Fenster ein ViNCEd Pfad verwendet."
  601. ))
  602.  
  603. (set #where-shell
  604. (cat    "Bitte spezifizieren Sie den Ordner, in dem sich das Shell-Icon "
  605.         "befindet:"
  606. ))
  607.  
  608. (set #where-shell-help
  609. (cat    "Falls Sie das Shell-Icon wirklich ersetzen wollen, müssen Sie "
  610.         "hier angeben, wo es sich befindet. Dies ist üblicherweise "
  611.         "das Hauptverzeichnis des Boot-Gerätes oder der Systems "
  612.         "Ordner auf dem gleichen Gerät. Bitte beachten Sie, daß "
  613.         "die Schublade benötigt wird und nicht das Icon selbst."
  614. ))
  615.  
  616. (set #do-patch
  617. (cat    "Soll ein Fehler aus der ARexx Bibliothek entfernt werden?"
  618. ))
  619.  
  620. (set #patch-help
  621. (cat    "The rexxsyslib.library Funktion WaitDosPacket hat einen Fehler, "
  622.         "der manche anderen Programme abstürzen lassen kann. Dies ist "
  623.         "kein spezifisches Problem von ViNCEd! Sie sollten diesen Patch "
  624.         "installieren, um die Bibliothek zu reparieren."
  625. ))
  626.  
  627. (set #copy-stringsnip
  628. (cat    "Soll das StringSnip-Kommand kopiert werden?"
  629. ))
  630.  
  631. (set #install-stringsnip
  632. (cat    "Soll StringSnip beim Hochfahren gestartet werden?"
  633. ))
  634.  
  635. (set #stringsnip-help
  636. (cat    "Stringsnip ist ein kleines Hilfsprogramm, das, einmal "
  637.         "installiert, die Edier-Möglichkeiten der String-Gadgets "
  638.         "entschieden verbessert. Zum einen werden Clipboard-Funktionen "
  639.         "wie Amiga-C (Kopieren) Amiga-X (Ausschneiden) und Amiga-V "
  640.         "(Clipboard-Inhalt einfügen) unterstützt, zum anderen werden "
  641.         "Cursortastenkombinationen vergleichbar mit denen von ViNCEd "
  642.         "zur Verfügung gestellt. StringSnip funktioniert auch unabhängig "
  643.         "von ViNCEd und sollte als nützliches Tool installiert "
  644.         "werden."
  645. ))
  646.  
  647. (set #copy-multiassigns
  648. (cat    "Soll das TrueMultiAssigns Kommando kopiert werden?"
  649. ))
  650.  
  651. (set #install-multiassigns
  652. (cat    "Soll der TrueMultiAssigns Patch beim Hochfahren "
  653.         "gestartet werden?"
  654. ))
  655.  
  656. (set #multiassigns-help
  657. (cat    "Das TrueMultiAssigns Programm korrigiert the AmigaDOS Jokerzeichen "
  658.         "routinen derart, daß sie korrekt mit Mehrfach-Assigns "
  659.         "zusammenarbeiten. Für dieses Problem können mehrere Programme auf "
  660.         "dem AmiNet gefunden werden, jedoch sind alle die ich getestet habe "
  661.         "mehr oder minder defekt, wie z.B. MultiCX oder auch das alte "
  662.         "TrueMultiAssigns 1.02 von Marcus Wild, und funktionieren darum "
  663.         "nicht korrekt mit ViNCEd. Ich emfehle Ihnen, meinen Patch zu "
  664.         "verwenden, denn er wurde erfolgreich mit ViNCEd getestet."
  665. ))
  666.  
  667. (set #exit-not-found
  668. (cat    "Kann das File \"%s\" nicht finden - DOS Fehler %ld "
  669.         "- Installation abgebrochen."
  670. ))
  671.  
  672. (set #exit-text
  673. (cat    "ViNCEd Installation beendet."
  674. ))
  675.  
  676. ))
  677.  
  678. ;==========================================================================
  679. ;say hi !
  680. (welcome)
  681.  
  682. ;=============================================================================
  683. ; get target directory where update is to be installed
  684.  
  685. (set #old_wb "SYS:")
  686.  
  687. (set #target (askdir    (prompt #which-disk)
  688.                         (help #which-disk-help)
  689.                         (disk)
  690.                         (default #old_wb)
  691. ))
  692.  
  693. (if (not (and (exists (tackon #target "S/Startup-Sequence"))
  694.               (exists (tackon #target "DEVS"))
  695.               (exists (tackon #target "LIBS"))
  696.               (exists (tackon #target "C")) ))
  697.          ;then
  698.          (abort #no-assign)
  699. )
  700.  
  701. ;set @default-dest to user selected target
  702. (set @default-dest #target)
  703.  
  704. ;get directory to save old files
  705. (set stash_old (tackon #target #old-name))
  706.  
  707. ;==========================================================================
  708. ;rename old files
  709.  
  710. (set startup-sequence   (tackon #target "S/Startup-Sequence"))
  711. (set mountlist          (tackon #target "DEVS/MountList"))
  712.  
  713. ;get all existing files
  714. (set oldfiles "")
  715.  
  716. (if (exists startup-sequence)
  717.         ;then
  718.         (set oldfiles (cat oldfiles startup-sequence "\n"))
  719. )
  720.  
  721. (if (exists mountlist)
  722.         ;then
  723.         (set oldfiles (cat oldfiles mountlist "\n"))
  724. )
  725.  
  726.  
  727. ;if some oldfiles found
  728. (if (> (strlen oldfiles) 0)
  729. (
  730.     (if (askbool (prompt (#move-old stash_old oldfiles))
  731.                  (help (#move-old-help stash_old))
  732.                  (choices #move-old-1 #move-old-2)
  733.                  (default 1)
  734.         )
  735.         ;then do it
  736.     (
  737.         ; create new directory w icon
  738.         (makedir stash_old (infos))
  739.         ; create s and devs subdirectory
  740.         (makedir (tackon stash_old "S"))
  741.         (makedir (tackon stash_old "Devs"))
  742.  
  743.         ; copy startup-sequence to old-drawer
  744.         (if (exists startup-sequence)
  745.                 ;then
  746.                 (
  747.                 (delete (tackon stash_old "S/Startup-Sequence"))
  748.                 (copyfiles
  749.                         (source startup-sequence)
  750.                         (dest (tackon stash_old "S/Startup-sequence"))
  751.                 )                       
  752.         ))
  753.  
  754.         ;copy mountlist to old-drawer
  755.         (if (exists mountlist)
  756.                 ;then
  757.                 (
  758.                 (delete (tackon stash_old "DEVS/Mountlist"))
  759.                 (copyfiles
  760.                         (source mountlist)
  761.                         (dest   (tackon stash_old "DEVS/Mountlist"))
  762.                 )
  763.         ))
  764.     ))
  765. ))
  766.  
  767. (complete 10)
  768. ;==========================================================================
  769. ; now copy ViNCEd to target
  770.  
  771. ; ask user to insert VNC
  772. (set #vncsource (askdir (prompt #ask-vnc)
  773.                         (help   #ask-vnc-help)
  774.                         (default "/")
  775.                 ))
  776.  
  777. (makeassign "..VNC.." #vncsource (safe))
  778.  
  779.  
  780. ;copy library
  781. (if (> @user-level 1)
  782.         ;then
  783.         (
  784.                 (set #pi-copy-lib
  785.                         (askbool        (prompt #copy-lib)
  786.                                         (help #copy-lib-help)
  787.                                         (default 1)
  788.                                         (choices #yes #no)
  789.                         )
  790.                 )
  791.         )
  792.         (set #pi-copy-lib 1)
  793. )
  794.  
  795. (if #pi-copy-lib
  796.         (
  797.                 (set #libs (tackon #target "LIBS"))
  798.  
  799.                 (if (not (exists #libs))
  800.                         (makedir #libs)
  801.                 )
  802.  
  803.                 (copyfiles      (source "..VNC..:LIBS/vnc.library")
  804.                                 (dest #libs)
  805.                 )
  806.         )
  807. )
  808.  
  809. (complete 20)
  810.  
  811. ;copy preference-program
  812. (if (> @user-level 1)
  813.         ;then
  814.         (
  815.                 (set #pi-copy-setvnc
  816.                         (askbool        (prompt #copy-setvnc)
  817.                                         (help #copy-setvnc-help)
  818.                                         (default 1)
  819.                                         (choices #yes #no)
  820.                         )
  821.                 )
  822.         )
  823.         (set #pi-copy-setvnc 1)
  824. )
  825.  
  826. (if #pi-copy-setvnc
  827.         (
  828.                 (set #cdir (tackon #target "C"))
  829.  
  830.                 (if (not (exists #cdir))
  831.                         (makedir #cdir)
  832.                 )
  833.  
  834.                 (copyfiles      (source "..VNC..:C/SetVNC.coded")
  835.                                 (dest "T:")
  836.                 )
  837.  
  838.                 (if (<> 0 (run "..VNC..:Extras/Decode T:SetVNC.coded"))
  839.                         (abort #exit-not-decoded)
  840.                 )
  841.  
  842.                 (rename         "T:SetVNC.coded" "T:SetVNC")
  843.  
  844.                 (copyfiles      (source "T:SetVNC")
  845.                                 (dest #cdir)
  846.                 )
  847.  
  848.                 (delete         "T:SetVNC")
  849.  
  850.         )
  851. )
  852.  
  853. (complete 30)
  854. ;add language-specific if 2.1 or higher
  855. (if (>= #version 38)
  856.         ;then
  857.         (
  858.                 (if (> @user-level 1)
  859.                         (set #pi-do-locale
  860.                                 (askbool        (prompt #do-locale)
  861.                                                 (help #locale-help)
  862.                                                 (default 1)
  863.                                                 (choices #yes #no)
  864.                                 )
  865.                         )
  866.                         (set #pi-do-locale 1)
  867.                 )
  868.  
  869.                 (if #pi-do-locale
  870.                         ;then
  871.                         (
  872.                                 (set #locale (tackon #target "Locale"))
  873.  
  874.                                 (if (not (exists #locale))
  875.                                         (makedir #locale)
  876.                                 )
  877.  
  878.                                 (set #locale (tackon #locale "Catalogs"))
  879.  
  880.                                 (if (not (exists #locale))
  881.                                         (makedir #locale)
  882.                                 )
  883.  
  884.                                 (set #locale (tackon #locale "Deutsch"))
  885.  
  886.                                 (if (not (exists #locale))
  887.                                         (makedir #locale)
  888.                                 )
  889.  
  890.                                 (set #locale (tackon #locale "VNC"))
  891.  
  892.                                 (if (not (exists #locale))
  893.                                         (makedir #locale)
  894.                                 )
  895.  
  896.                                 (copyfiles
  897.                                         (source "..VNC..:LOCALE/catalogs/deutsch/VNC")
  898.                                         (dest #locale)
  899.                                         (all)
  900.                                 )
  901.                         )
  902.                 )
  903.         )
  904. )
  905.  
  906.  
  907. (complete 40)
  908. ;add mountlist entry if release 2.0 or less
  909.  
  910.  
  911. (if ( > @user-level 1)
  912.         (set #mount-pi (askbool (prompt #do-mount)
  913.                                 (help #mount-help)
  914.                                 (default 1)
  915.                                 (choices #yes #no)
  916.                         )
  917.         )
  918.         (set #mount-pi 1)
  919. )
  920.  
  921. (if #mount-pi
  922.  
  923.         (if (< #version 38)
  924.                 ;then
  925.                 (
  926.                         (set joinsoure  "..VNC..:DEVS/Mount_VNC")
  927.                         (set name       (tackon #target "devs/MountList"))
  928.                         (JOIN)
  929.                         (set joinsoure  "..VNC..:DEVS/Mount_NEWCON")
  930.                         (JOIN)
  931.                 )
  932.                 ;else copy the icons
  933.                 (
  934.                         (copyfiles
  935.                                 (source "..VNC..:DEVS/DosDrivers")
  936.                                 (dest   (tackon #target "DEVS/DosDrivers"))
  937.                                 (infos)
  938.                                 (all)
  939.                         )
  940.                 )
  941.         )
  942. )
  943.  
  944. ;get drawer to copy preference-icon
  945. (set #prefsdrawer #target)
  946.  
  947. (if (exists (tackon #prefsdrawer "Prefs"))
  948.         ;then
  949.         (set #prefsdrawer (tackon #prefsdrawer "Prefs"))
  950. )
  951.  
  952. (complete 50)
  953.  
  954. (if (> @user-level 1)
  955.         (set #pi-copy-prefs
  956.                 (askbool        (prompt #do-prefs)
  957.                                 (help #prefs-help)
  958.                                 (default 1)
  959.                                 (choices #yes #no)
  960.                 )
  961.         )
  962.         (set #pi-copy-prefs 1)
  963. )
  964.  
  965. ;copy preference-icon
  966. (if #pi-copy-prefs
  967.         (
  968.                 (copyfiles      (source "..VNC..:Prefs/SetVNC.info")
  969.                                 (dest   #prefsdrawer)
  970.                 )
  971.  
  972.                 (tooltype       (dest   (tackon #prefsdrawer "SetVNC"))
  973.                                 (noposition)
  974.                 )
  975.  
  976.                 (if (> #version 35)
  977.                         (
  978.                                 (set #archive (tackon #prefsdrawer "Env-Archive/sys"))
  979.                                 (set #presets (tackon #prefsdrawer "Presets/sys"))
  980.  
  981.                                 (if (exists #archive)
  982.                                         (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys")
  983.                                                         (dest #archive)
  984.                                                         (all)
  985.                                         )
  986.                                 )
  987.  
  988.                                 (if (exists #presets)
  989.                                         (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys")
  990.                                                         (dest #presets)
  991.                                                         (all)
  992.                                         )
  993.                                 )
  994.                         )
  995.                         (
  996.                                 (set #archive (tackon #target "Devs"))
  997.  
  998.                                 (if (exists #archive)
  999.                                         (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys")
  1000.                                                         (dest #archive)
  1001.                                                         (all)
  1002.                                         )
  1003.                                 )
  1004.                         )
  1005.                 )
  1006.         )
  1007. )
  1008.  
  1009. ;==========================================================================
  1010. ;ask user to install the vnc-guide
  1011. (if (> @user-level 1)
  1012.         (set #do-help   (askbool        (prompt #copy-help)
  1013.                                         (help #copy-help-help)
  1014.                                         (default 1)
  1015.                                         (choices #yes #no)
  1016.                         )
  1017.         )
  1018.         (set #do-help 1)
  1019. )
  1020.  
  1021. (if #do-help
  1022.         (
  1023.                 (set #where-guide       (askdir         (prompt #help-dir)
  1024.                                                         (help   #help-help)
  1025.                                                         (default (tackon #target "Guides"))
  1026.                                         )
  1027.                 )
  1028.  
  1029.                 (if #where-guide
  1030.                         (
  1031.                                 (copyfiles
  1032.                                         (source "..VNC..:Guides/VNC.Guide")
  1033.                                         (dest #where-guide)
  1034.                                 )
  1035.                                 (copyfiles
  1036.                                         (source "..VNC..:Guides/VNC.Guide.info")
  1037.                                         (dest #where-guide)
  1038.                                 )
  1039.  
  1040.                 
  1041.                                 (if #pi-copy-prefs
  1042.                                         (tooltype
  1043.                                                 (dest (tackon #prefsdrawer "SetVNC"))
  1044.                                                 (settooltype "HELPPATH" (tackon #where-guide "VNC.guide"))
  1045.                                         )
  1046.                                 )
  1047.  
  1048.                                 (set #guide-path (askfile       (prompt #browser-where)
  1049.                                                                 (help #browser-help)
  1050.                                                                 (default (tackon #target "Utilities/MultiView"))
  1051.                                                 )
  1052.                                 )
  1053.  
  1054.                                 (if #guide-path
  1055.                                         (tooltype
  1056.                                                 (dest (tackon #where-guide "VNC.Guide"))
  1057.                                                 (setdefaulttool #guide-path)
  1058.                                         )
  1059.                                 )
  1060.  
  1061.                         )
  1062.                 )
  1063.         )
  1064. )
  1065.  
  1066. (complete 60)
  1067. ;==========================================================================
  1068. ;now install the scripts
  1069. (if (> @user-level 1)
  1070.         (
  1071.                 (set #pi-copy-scripts (askbool  (prompt #do-scripts)
  1072.                                                 (help #scripts-help)
  1073.                                                 (default 1)
  1074.                                                 (choices #yes #no)
  1075.                                         )
  1076.                 )
  1077.  
  1078.                 (if #pi-copy-scripts
  1079.                         (
  1080.                                 (set #script-location
  1081.                                         (askdir (prompt #where-scripts)
  1082.                                                 (help #where-scripts-help)
  1083.                                                 (default (tackon #target "S"))
  1084.                                                 (newpath)
  1085.                                         )
  1086.                                 )
  1087.  
  1088.                                 (if #script-location
  1089.                                         (if (not (exists #script-location))
  1090.                                                 (makedir (#script-location))
  1091.                                         )
  1092.                                         (set #pi-copy-scripts 0)
  1093.                                 )
  1094.  
  1095.                         )
  1096.                 )
  1097.         )
  1098.         (
  1099.                 (set #pi-copy-scripts 1)
  1100.                 (set #script-location (tackon #target "S"))
  1101.         )
  1102. )
  1103.  
  1104. (if #pi-copy-scripts
  1105.         (
  1106.                 (copyfiles      (source "..VNC..:S/fg")
  1107.                                 (dest   #script-location)
  1108.                 )
  1109.                 (run ("c:Protect ..VNC..:S/fg s add"))
  1110.  
  1111.                 (copyfiles      (source "..VNC..:S/bg")
  1112.                                 (dest   #script-location)
  1113.                 )
  1114.                 (run ("c:Protect ..VNC..:S/bg s add"))
  1115.  
  1116.                 (copyfiles      (source "..VNC..:S/fork")
  1117.                                 (dest   #script-location)
  1118.                 )
  1119.                 (run ("c:Protect ..VNC..:S/fork s add"))
  1120.  
  1121.                 (copyfiles      (source "..VNC..:S/SetFont")
  1122.                                 (dest   #script-location)
  1123.                 )
  1124.                 (run ("c:Protect ..VNC..:S/SetFont s add"))
  1125.  
  1126.                 (copyfiles      (source "..VNC..:S/SetKeyboard")
  1127.                                 (dest   #script-location)
  1128.                 )
  1129.                 (run ("c:Protect ..VNC..:S/SetKeyBoard s add"))
  1130.  
  1131.                 (copyfiles      (source "..VNC..:S/More")
  1132.                                 (dest   #script-location)
  1133.                 )
  1134.                 (run ("c:Protect ..VNC..:S/More s add"))
  1135.  
  1136.                 (copyfiles      (source "..VNC..:S/History")
  1137.                                 (dest   #script-location)
  1138.                 )
  1139.                 (run ("c:Protect ..VNC..:S/History s add"))
  1140.  
  1141.         )
  1142. )
  1143.  
  1144.  
  1145. ;==========================================================================
  1146. ; now modify the startup-sequence
  1147. ;first get the name 
  1148. (if (>= #version 36)
  1149.         (set #nametype 1)
  1150.         (set #nametype 2)
  1151. )
  1152.  
  1153. ;now ask the expert user if it's O.K.
  1154.  
  1155. (if (> @user-level 1)
  1156.          (set #nametype  ( + (askchoice
  1157.                                 (prompt #which-name)
  1158.                                 (help   #which-name-help)
  1159.                                 (choices "VNC" "NEWCON")
  1160.                             ) 1)        
  1161.          )
  1162. )
  1163.  
  1164. (if (= #nametype 1)
  1165.         (set #installcmd "Mount VNC:")
  1166.         (set #installcmd "Mount NEWCON:")
  1167. )
  1168.  
  1169. (if (>= #version 36)
  1170.         (set #installcmd (cat ";" #installcmd))
  1171. )
  1172.  
  1173. (if (> @user-level 1)
  1174.         (set #pi-copy-icon (askbool     (prompt #copy-icon)
  1175.                                         (help #copy-icon-help)
  1176.                                         (default 1)
  1177.                                         (choices #yes #no)
  1178.                                 )
  1179.         )
  1180.         (set #pi-copy-icon 1)
  1181. )
  1182.  
  1183. (set #icon-pos #target)
  1184.  
  1185. (if (not (exists (tackon #icon-pos "Shell.info")))
  1186.         (set #icon-pos (tackon #target "System"))
  1187. )
  1188.  
  1189. (if (> @user-level 1)
  1190.         (if #pi-copy-icon
  1191.                 (
  1192.                         (set #icon-pos  (askdir (prompt #where-shell)
  1193.                                                 (help #where-shell-help)
  1194.                                                 (default #icon-pos)
  1195.                                         )
  1196.                         )
  1197.                 )
  1198.         )
  1199. )
  1200.  
  1201. (if #icon-pos
  1202.         (if #pi-copy-icon
  1203.                 (
  1204.  
  1205.                         (if (exists (tackon #icon-pos "Shell.Info"))
  1206.                                 (delete (tackon #icon-pos "Shell.info"))
  1207.                         )
  1208.  
  1209.                         (if (= #nametype 1)
  1210.                                 (
  1211.                                         (copyfiles
  1212.                                                 (source "..VNC..:Shell_VNC.info")
  1213.                                                 (dest   #icon-pos)
  1214.                                         )
  1215.                                         (rename (tackon #icon-pos "Shell_VNC.info")
  1216.                                                 (tackon #icon-pos "Shell.info"))
  1217.                                 )
  1218.                                 (
  1219.                                         (copyfiles
  1220.                                                 (source "..VNC..:Shell.info")
  1221.                                                 (dest   #icon-pos)
  1222.                                         )
  1223.                                 )
  1224.                         )
  1225.  
  1226.                         (tooltype       (dest   (tackon #icon-pos "Shell"))
  1227.                                         (noposition)
  1228.                         )
  1229.  
  1230.                 )
  1231.         )
  1232. )
  1233.  
  1234. (if (> @user-level 0)
  1235.         (set #do-override
  1236.                 (askbool        (prompt #override-con)
  1237.                                 (help #override-help)
  1238.                                 (default 1)
  1239.                                 (choices #yes #no)
  1240.                 )
  1241.         )
  1242.         (set #do-override 1)
  1243. )
  1244.  
  1245. (if #do-override
  1246.         (set #installcmd (cat #installcmd "\nSetVNC Quiet Mount Override as CON:"))
  1247. )
  1248.  
  1249. (startup "VNC"
  1250.         (command #installcmd)
  1251.         (prompt #modify-startup)
  1252.         (help (#modify-startup-help #installcmd))
  1253. )
  1254.  
  1255. (complete 70)
  1256. ;==========================================================================
  1257. ;now install documentation-files for expert user
  1258.  
  1259. (if (> @user-level 1)
  1260.         (
  1261.                 (if (askbool    (prompt #do-docs)
  1262.                                 (help #docs-help)
  1263.                                 (default 0)
  1264.                                 (choices #yes #no)
  1265.                         )
  1266.                         (
  1267.                                 (set #where-docs        (askdir (prompt #docs-where)
  1268.                                                                 (help   #docs-help)
  1269.                                                                 (default (tackon #target "Include"))
  1270.                                                         )
  1271.                                 )
  1272.  
  1273.                                 (if #where-docs
  1274.                                         (copyfiles
  1275.                                                 (source "..VNC..:Include")
  1276.                                                 (all)
  1277.                                                 (dest #where-docs)
  1278.                                         )
  1279.                                 )
  1280.                         )
  1281.                 )
  1282.         )
  1283. )
  1284.  
  1285. ;==========================================================================
  1286. (complete 80)
  1287. (if (exists (tackon #target "LIBS/rexxsyslib.library"))
  1288.         (
  1289.                 (if (> @user-level 1)
  1290.                         (set #patch-arexx (askbool      (prompt #do-patch)
  1291.                                                         (help #patch-help)
  1292.                                                         (default 1)
  1293.                                                         (choices #yes #no)
  1294.                                                 )
  1295.                         )
  1296.                         (set #patch-arexx 1)
  1297.                 )
  1298.  
  1299.                 (if #patch-arexx
  1300.                         (
  1301.                                 (set #rlibs (tackon #target "LIBS/rexxsyslib.library"))
  1302.                                 (set #libs (tackon #target "LIBS"))
  1303.  
  1304.                                 (if (not (exists #libs))
  1305.                                         (makedir #libs)
  1306.                                 )
  1307.  
  1308.                                 (if (= 0 (run ("..VNC..:Extras/SPatch -ot:rexxsyslib.library -p..VNC..:ARexx/rexxsyslib.pch \"%s\"" #rlibs)))
  1309.                                         (copyfiles      (source "t:rexxsyslib.library")
  1310.                                                         (dest #libs)
  1311.                                         )
  1312.                                 )
  1313.                         )
  1314.                 )
  1315.         )
  1316. )
  1317. ;==========================================================================
  1318. (complete 87)
  1319. (if (>= #version 37)
  1320.         (
  1321.                 (if (> @user-level 0)
  1322.                     (set #pi-copy-stringsnip        (askbool        (prompt #copy-stringsnip)
  1323.                                                                         (help #stringsnip-help)
  1324.                                                                         (default 1)
  1325.                                                                         (choices #yes #no)
  1326.                                                         )
  1327.                         )
  1328.                         (set #pi-copy-stringsnip 1)
  1329.                 )
  1330.  
  1331.                 (if #pi-copy-stringsnip
  1332.                         (
  1333.                                 (copyfiles      (source "..VNC..:Extras/StringSnip")
  1334.                                                 (dest (tackon #target "C"))
  1335.                                 )
  1336.  
  1337.                                 (startup "StringSnip"
  1338.                                         (command "StringSnip >NIL: install")
  1339.                                         (prompt #install-stringsnip)
  1340.                                         (help #stringsnip-help)
  1341.                                 )
  1342.                         )
  1343.                 )
  1344.         )
  1345. )
  1346. ;==========================================================================
  1347. (complete 93)
  1348. (if (>= #version 37)
  1349.         (
  1350.                 (if (> @user-level 0)
  1351.                     (set #pi-copy-multi                 (askbool        (prompt #copy-multiassigns)
  1352.                                                                         (help #multiassigns-help)
  1353.                                                                         (default 1)
  1354.                                                                         (choices #yes #no)
  1355.                                                         )
  1356.                         )
  1357.                         (set #pi-copy-multi 1)
  1358.                 )
  1359.  
  1360.                 (if #pi-copy-multi
  1361.                         (
  1362.                                 (copyfiles      (source "..VNC..:Extras/TrueMultiAssigns")
  1363.                                                 (dest (tackon #target "C"))
  1364.                                 )
  1365.  
  1366.                                 (startup "TrueMultiAssigns"
  1367.                                         (command "TrueMultiAssigns")
  1368.                                         (prompt #install-multiassigns)
  1369.                                         (help #multiassigns-help)
  1370.                                 )
  1371.                         )
  1372.                 )
  1373.         )
  1374. )
  1375. ;==========================================================================
  1376. (complete 100)
  1377.  
  1378. (TERMINATE)
  1379.  
  1380. (exit #exit-text)
  1381.