home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / golded / install < prev    next >
Text File  |  1995-02-27  |  61KB  |  2,109 lines
  1. ; $VER: GoldED 1.0
  2. ; Copyright ©1994 Dietmar Eilert - All Rights Reserved
  3.  
  4. (delopts "oknodelete" "force" "askuser")
  5.  
  6. (complete 0)
  7.  
  8. ; --- English (default) strings ---
  9.  
  10. (set #introduction (cat "\n"
  11.  
  12.     "Programmer's Editor, All Rights Reserved.   \n"
  13.     "                                            \n"
  14.     "GoldED ©'94 Dietmar Eilert                  \n"
  15.     "Reqtools  ©'91-94 Nico François             \n"
  16.     "GUIMake ©'93 Rico Krasowski                 \n"
  17.     "                                            \n"
  18.     "GoldED is NOT 'freely distributable'. Please\n"
  19.     "have a look at the licence file before      \n"
  20.     "installing GoldED; installing this software \n"
  21.     "means accepting that licence. Thank you.    \n"
  22. ))
  23.  
  24. (set #badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  25.  
  26. (set #error (cat
  27.  
  28.     " Some error has occurred. Please inform a GoldED  \n"
  29.     " support site (e.g. dietmar@tomate.oche.de) AFTER \n"
  30.     " having tried a different Installer release: 1.24 \n"
  31.     " is known to work fine.                           \n"
  32.     "                                                   \n"
  33.     " The following information is required: error code\n"
  34.     " (above), last error message, the percentage done \n"
  35.     " (window title) and your log file. If available:  \n"
  36.     " a SnoopDos report. Thank you !                   \n"
  37. ))
  38.  
  39. (set #assign_found "\nGOLDED: assign detected...\n")
  40.  
  41. (set #assign_found_help (cat "\n"
  42.  
  43.     " If you decide for updating your old installation\n"
  44.     " you won't be asked for directories. Directories \n"
  45.     " of your previous installation will be used.     \n"
  46.     "                                                 \n"
  47.     " If you decide for removing your current GoldED  \n"
  48.     " installation this script will try to delete     \n"
  49.     " files introduced by a former GoldED installation\n"
  50.     " However, this utility is not able to remove all \n"
  51.     " files related to GoldED. For example it won't   \n"
  52.     " remove the reqtools library since this library  \n"
  53.     " might be used by other applications, too. It    \n"
  54.     " won't remove the QuickStarter since it doesn't  \n"
  55.     " know where it has been placed.                  \n"
  56.     "                                                 \n"
  57.     " If you ever run into troubles related to this   \n"
  58.     " install script (which certainly is not perfect),\n"
  59.     " remove your outdated GED copy (use the 'remove' \n"
  60.     " option) before attempting a completely new      \n"
  61.     " installation.                                   \n"
  62.     "                                                 \n"
  63.     " Backups of your presets (if available) are made.\n"
  64.     "                                                 \n"
  65.     " Libraries are not overwritten unless they are   \n"
  66.     " outdated (depends on version/revision number).  \n"
  67. ))
  68.  
  69. (set #new    "install new")
  70. (set #update "update existing GoldED")
  71. (set #remove "remove GoldED from your system")
  72.  
  73. (set #remove_ged  "remove 'GoldED:' assign ?\n")
  74. (set #remove_hs   "remove 'HiSpeed:' assign ?\n")
  75. (set #remove_ed   "remove quickstarter access ?\n")
  76. (set #remove_gmk  "remove GUIMake access ?\n")
  77. (set #must_remove "You should have this assign/reference removed !")
  78. (set #removed     "; (removed)")
  79.  
  80. (set #pref_icons "Select preferred icon type")
  81.  
  82. (set #medres " med-res icons (pixel ratio 1:2)")
  83. (set #hires  " hi-res  icons (pixel ratio 1:1)")
  84.  
  85. (set #pref_icons_help (cat "\n"
  86.  
  87.     " Select med-res if the pixel ratio of your preferred\n"
  88.     " screen resolution is approx. 1:2 (e.g. in 640*200  \n"
  89.     " mode the pixel width is half of pixel height).     \n"
  90.     "                                                    \n"
  91.     " Select hi-res if the pixel ratio of your preferred \n"
  92.     " resolution is approx. 1:1 (eg. 640*400 or 800*600).\n"
  93. ))
  94.  
  95. (set #where " Where do you want to have the package installed ? \n")
  96.  
  97. (set #where_help (cat "\n"
  98.  
  99.     " Simply select a directory (a root directory is   \n"
  100.     " fine, too). I'm going to create a new directory  \n"
  101.     " called 'GoldED' within the directory you specify.\n"
  102.     " You should select a directory which has an icon  \n"
  103.     " attached to it (e.g. SYS:Utilities).             \n"
  104.     "                                                  \n"
  105.     " The GoldED directory will keep several support   \n"
  106.     " files/tools as well as the main editor. ARexx    \n"
  107.     " macros related to GoldED are usually kept in a   \n"
  108.     " subdirectory of GoldED. Furthermore the manuals  \n"
  109.     " reside in GoldED's directory.                    \n"
  110. ))
  111.  
  112. (set #bad_path "Sorry, can't install to RAM disk")
  113.  
  114. (set #drive_space (cat "\n"
  115.  
  116.     " This installation requires at least 1.2 MB free\n"
  117.     " disk space. Please make this space available   \n"
  118.     " and start again.                               \n"
  119. ))
  120.  
  121. (set #gold_lib "Installation of GoldED.library ...")
  122.  
  123. (set #gold_lib_help (cat "\n"
  124.  
  125.     "This library is required by the unregistered version\n"
  126.     "only. Registered users recieve a keyfile instead.   \n"
  127. ))
  128.  
  129. (set #what_catalog "\n What catalogs do you want to have installed ?\n")
  130.  
  131. (set #what_catalog_help (cat "\n"
  132.  
  133.     " Catalogs are required by OS2.1 or better to localize\n"
  134.     " GoldED, i.e. to make the editor use the language    \n"
  135.     " selected by the locale preferences program (however \n"
  136.     " menus are not loacalized since menus are not part of\n"
  137.     " the editor itself).                                 \n"
  138. ))
  139.  
  140. (set #add_ged_assign "Add 'GoldED:' assign to 's:user-startup' ?\n")
  141.  
  142. (set #add_ged_assign_help (cat "\n"
  143.             
  144.     " This editor does support user menus, i.e. you can \n"
  145.     " set up own menu items of several types (scripts,  \n"
  146.     " ARexx macros, DOS commands, ...). Thus ususally   \n"
  147.     " external files have to be referenced. It is quite \n"
  148.     " convenient - and strongly recommended - to place  \n"
  149.     " files related to GoldED in a symbolic directory   \n"
  150.     " GoldED: (or one of its subdirectories). If you    \n"
  151.     " don't set up an approbiate assign you will run    \n"
  152.     " into TROUBLE. Nevertheless, the main editor itself\n"
  153.     " does not need any assign to run. Actually it does \n"
  154.     " not need any external file at all apart from its  \n"
  155.     " config file (envarc:GOLDED/GOLDED.PREFS).         \n"
  156.     "                                                   \n"
  157. ))
  158.  
  159. (set #quickname " Choose a name for the QuickStarter")
  160.  
  161. (set #other_name "(other)")
  162.  
  163. (set #quickname_help (cat "\n"
  164.  
  165.     " The QuickStarter is a small (4 KB) GoldED front-  \n"
  166.     " end. You can use it AS IF it were a real editor.  \n"
  167.     " For example you might type 'ed letter' to edit the\n"
  168.     " file letter if the QuickStarter were named 'ed'.  \n"
  169.     " The big advantage of a QuickStarter is its abilty \n"
  170.     " to pass a new job to an already runnning instance \n"
  171.     " of GoldED (if there is any). This happens FAST.   \n"             
  172.     "                                                   \n"
  173.     " The QuickStarters default name is 'ED' but feel   \n"
  174.     " free to choose any name you like. Personally, I   \n"
  175.     " prefer to use 'ED' (replacing Commodore's ED).    \n"
  176. ))
  177.  
  178. (set #enter_name " Enter a name:\n")
  179.  
  180. (set #enter_name_help (cat "\n"
  181.  
  182.     " Any name (GED, ED, ...) will do. Existing files are \n"
  183.     " overwritten. If you decide for 'ED', the original ED\n" 
  184.     " is lost (well, let's call it a gain :-)             \n"
  185. ))
  186.  
  187. (set #place_quick (cat "\n"
  188.  
  189.     " Now let's place the QuickStarter within a valid\n"
  190.     " command directory. Select a directory:         \n"
  191. ))
  192.  
  193. (set #place_quick_help (cat "\n"
  194.  
  195.     " You should select one of these directories if you\n"
  196.     " want to run the editor simply by typing its name,\n"
  197.     " no matter what your current path is:             \n"
  198.     "                                                  \n"
  199.     " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM    \n"
  200.     "                                                  \n"
  201.     " If you choose ED as default name, you must either\n"
  202.     " place the quick starter into c: or delete the old\n"
  203.     " ED from c: to prevent unpredictable behaviour.   \n"
  204. ))
  205.  
  206. (set #resident "\n Make QuickStarter resident ?\n")
  207.  
  208. (set #resident_help (cat "\n"
  209.  
  210.     " I would suggest to make the QuickStarter (4 KB)\n"
  211.     " resident - it will work faster.                \n"
  212. ))
  213.  
  214. (set #creating_bak "creating backup of old presets ...")
  215.  
  216. (set #bak_done (cat "\n"
  217.  
  218.     "Backups of your old preferences have been written\n"
  219.     "to directory:\n\n"
  220. ))
  221.  
  222. (set #what_menu "\n Choose default menu definition file:\n")
  223.  
  224. (set #what_menu_help (cat "\n"
  225.  
  226.     " GoldED is localized (i.e. uses the locale library   \n"
  227.     " of WB2.1/3.x) as far as its internal textes are     \n"
  228.     " concerned. Since menus are not part of the editor   \n"
  229.     " itself they are not localized. Instead, the user may\n"
  230.     " specify a menu definition file to get menus in his/ \n"
  231.     " her preferred language.                             \n"
  232. ))
  233.  
  234. (set #screen "\n Choose default screen resolution \n")
  235.  
  236. (set #screen_help (cat "\n"
  237.  
  238.     " Decide for a default screen mode to be used when the\n"
  239.     " editor is started for the 1st time. I would suggest \n"
  240.     " to use a custom screen for this will make GoldED run\n"
  241.     " faster and look much nicer.                         \n"
  242. ))
  243.  
  244. (set #screen_ntsc   "custom screen NTSC")
  245. (set #screen_ntsc_i "custom screen NTSC interlaced")
  246. (set #screen_pal    "custom screen PAL")
  247. (set #screen_pal_i  "custom screen PAL interlaced")
  248. (set #screen_wb     "workbench screen")
  249.  
  250. (set #look_feel "Look & feel")
  251.  
  252. (set #look_feel_help (cat "\n"
  253.  
  254.     " Suggestion: use a 2-color mode if your Amiga \n"
  255.     " isn't that fast (68000) but a four color mode\n"
  256.     " for any other Amiga. Be warned: There a many \n"
  257.     " more modes available from within GoldED :-)  \n"
  258. ))
  259.  
  260. (set #mode_blue    "Blue     (2 colors, faaaast)")
  261. (set #mode_sun     "Sun      (4 colors, orange-grey)")
  262. (set #mode_tpp     "TPP      (4 colors, dark blue)")
  263. (set #mode_ocean   "Ocean    (4 colors, bright green)")
  264. (set #mode_stone   "Stone    (2 colors, grey, fast)")
  265. (set #mode_leaf    "Leaf     (4 colors, my favourite)")
  266. (set #mode_ced     "CED-Blue (4 colors, bright blue)")
  267. (set #mode_tennis  "Tennis   (4 colors, brown-green)")
  268. (set #mode_desktop "Desktop  (8 colors, slow)")
  269.  
  270. (set #what_printer "\n What printer do you own ? \n")
  271. (set #what_printer_help "\n Simply select the printer model you own.")
  272.  
  273. (set #printer_deskjet "DeskJet or 100% compabible")
  274. (set #printer_laser   "PCL laser printer")
  275. (set #printer_other   "none/other")
  276.  
  277. (set #what_proglang "\n Select preferred programming language:\n")
  278.  
  279. (set #what_proglang_other "other")
  280.  
  281. (set #what_proglang_help (cat "\n"
  282.  
  283.     " GoldED offers smart indention after keywords like   \n"
  284.     " IF. The indention scheme depends on your programming\n"
  285.     " language. Additionally, a C-dictionary is available \n"
  286.     " (required for AutoCompletion).                      \n"
  287. ))
  288.  
  289. (set #no_prefs (cat "\n"
  290.  
  291.     " Couldn't create preferences file ?! Please check    \n"
  292.     " whether the standard JOIN command of the AmigaOS is \n"
  293.     " available (c:join).                                 \n"
  294. ))
  295.  
  296. (set #bad_env "\n Warning - bad ENV: assign (pointing to ENVARC:)\n")
  297.  
  298. (set #install_aguide "Installation of AmigaGuide-Library...")
  299.  
  300. (set #install_reqtools "Installation of Reqtools-Library...")
  301.  
  302. (set #install_xpk "Installation of XpkMaster-Library...")
  303.  
  304. (set #second_disk (cat "\n"
  305.  
  306.     " Please insert part II of the GoldED distribution\n"
  307.     " into disk drive df0: ...                        \n"
  308. ))
  309.  
  310. (set #gui_assign "\n Add 'GUIMake:' assign to 's:user-startup' ?\n")
  311.  
  312. (set #gui_assign_help (cat "\n"
  313.  
  314.     " A 'GUIMake:' assign is required if you want to use\n"
  315.     " GUIMake (GUI driven compiler frontend).           \n"
  316. ))
  317.  
  318. (set #hs_assign "\n Add 'HISPEED:' assign to 's:user-startup' ?\n")
  319.  
  320. (set #hs_assign_help (cat "\n"
  321.  
  322.     " A 'HISPEED:' assign is required if you want to run\n"
  323.     " HiSpeed without having to worry about the current \n"
  324.     " path (i.e. you won't have to CD to HiSpeed's dir).\n"
  325.     " However, this assignment is not required if you   \n"
  326.     " don't intend to use the softfonts of this package.\n"
  327.     "                                                   \n"
  328. ))
  329.  
  330. (set #complete (cat "\n"
  331.  
  332.     "Installation complete. You should reboot your Amiga \n"
  333.     "before running this GED-release for the 1st time.   \n"
  334.     "Have fun :-)                                        \n"
  335. ))
  336.  
  337. ; --- German strings ---
  338.  
  339. (if (= @language "deutsch") (
  340.  
  341.     (set #introduction (cat "\n"
  342.  
  343.         "Programmer's Editor, Alle Rechte vorbehalten. \n"
  344.         "                                              \n"
  345.         "GoldED ©'94 Dietmar Eilert                    \n"
  346.         "Reqtools  ©'91-94 Nico François               \n"
  347.         "GUIMake ©'93 Rico Krasowski                   \n"
  348.         "                                              \n"
  349.         "GoldED ist NICHT 'frei vertreibbar'. Bitte    \n"
  350.         "lesen Sie die Lizenz-Datei, bevor Sie GoldED  \n"
  351.         "installieren. Mit der Installation stimmen Sie\n"
  352.         "den Lizenzbedingungen zu. Danke.              \n"
  353.  
  354.     ))
  355.  
  356.     (set #badkick "\n Sorry, dieses Paket benoetigt mind. OS2.04.\n")
  357.  
  358.     (set #error (cat
  359.  
  360.         " Ein Fehler ist aufgetreten. Bitte informieren Sie\n"
  361.         " den Support (dietmar@tomate.oche.de) NACHDEM Sie \n"
  362.         " die Intallation unter einer anderen Installer-   \n"
  363.         " Version (Empfehlung: 1.24) wiederholt haben.     \n"
  364.         "                                                  \n"
  365.         " Die folgende Information wird benoetigt: Fehler- \n"
  366.         " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n"
  367.         " satz (s. Fenstertitel) und die Log-Datei. Falls  \n"
  368.         " vorhanden: ein SnoopDos-Report. Dank !           \n"
  369.     ))
  370.  
  371.     (set #assign_found "\nGoldED-Installation entdeckt...\n")
  372.  
  373.     (set #assign_found_help (cat "\n"
  374.  
  375.         " Wählen Sie 'Update', um die neue GED-Fassung über\n"
  376.         " ihre bisherige Kopie zu installieren; in diesem  \n"
  377.         " Fall wird das Skript auf einige Fragen verzichten\n"
  378.         " und sich dafür an der bisherigen Installation    \n"
  379.         " orientieren.                                     \n"
  380.         "                                                  \n"
  381.         " Mit 'Deinstallation' kann eine schon vorhandene  \n"
  382.         " GoldED-Version entfernt werden. Einige Dateien   \n" 
  383.         " werden dabei allerdings nicht gelöscht werden    \n"
  384.         " können (u.a. Libraries, da sie meist noch von    \n"
  385.         " anderen Programmen benötigt werden).             \n"
  386.         "                                                  \n"
  387.         " Sollten im Laufe dieser sicher nicht perfekten   \n"
  388.         " Installation Probleme auftreten, empfiehlt sich  \n"
  389.         " eine Deinstallation, bevor dann komplett neu     \n"
  390.         " installiert wird.                                \n"
  391.         "                                                  \n"
  392.         " Von Ihren bisherigen Presets (etwa Menus) werden \n"
  393.         " Sicherheitskopien angelegt.                      \n"
  394.         "                                                  \n"
  395.         " Libraries werden nicht überschrieben, sofern sie \n"
  396.         " nicht überholt sind).                            \n"
  397.     ))
  398.  
  399.     (set #new    "Neu installieren")
  400.     (set #update "Update (über bisherige Version installieren)")
  401.     (set #remove "Deinstallation (GoldED entfernen)")
  402.  
  403.     (set #remove_ged  "GoldED-Assign entfernen ?\n")
  404.     (set #remove_hs   "HiSpeed-Assign entfernen ?\n")
  405.     (set #remove_ed   "Quickstarter-Referenz entfernen ?\n")
  406.     (set #remove_gmk  "GUIMake-Assign entfernen ?\n")
  407.     (set #must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
  408.     (set #removed     "; (entfernt)")
  409.  
  410.     (set #pref_icons "Bevorzugten Icon-Typ wählen")
  411.  
  412.     (set #medres " mittlere Auflösung (Seitenverhältnis 1:2)")
  413.     (set #hires  " hohe Auflösung     (Seitenverhältnis 1:1)")
  414.  
  415.     (set #pref_icons_help (cat "\n"
  416.  
  417.         " Wählen Sie die mittlere Auflösung, wenn für Ihre  \n"
  418.         " Workbench ein Modus wie 640*200 eingestellt ist.  \n"
  419.         "                                                   \n"
  420.         " Die hohe Auflösung sollte bei einem Höhen/Breiten-\n"
  421.         " verhältnis von etwa 1:1 verwendet werden (640*512 \n"
  422.         " oder 800*600).                                    \n"
  423.     ))
  424.  
  425.     (set #where " Wo soll das Paket installiert werden ? \n")
  426.  
  427.     (set #where_help (cat "\n"
  428.  
  429.         " Wählen Sie ein beliebiges Verzeichnis. Hauptver-  \n"
  430.         " zeichnisse wie DH0: können auch benutzt werden.   \n"
  431.         " In dem angegebenen Pfad wird ein Ordner 'GoldED'  \n"
  432.         " samt Icon erzeugt werden.                         \n"
  433.         "                                                   \n"
  434.         " Sie sollten ein Verzeichnis wählen, dem ein Icon  \n"
  435.         " zugeordnet ist, um GoldED auch über die Workbench \n"
  436.         " wiederfinden zu können (etwa SYS:TOOLS).          \n"
  437.         "                                                   \n"
  438.         " Das GoldED-Verzeichnis wird neben dem Editor auch \n"
  439.         " diverse begleitende Dateien aufnehmen: neben einer\n"
  440.         " Makrosammlung einige Hilfsprogramme. Die Anleitung\n"
  441.         " werden Sie dort ebenfalls wiederfinden.           \n"
  442.     ))
  443.  
  444.     (set #bad_path "Sorry, Installation in RAM-Disk nicht möglich")
  445.  
  446.     (set #drive_space (cat "\n"
  447.  
  448.         " Diese Installation benötigt mindestens 1.2 MB\n"
  449.         " freien Platz auf dem Zieldatenträger. Bitte  \n"
  450.         " machen Sie diesen Platz verfügbar und starten\n"
  451.         " die Installation dann neu.                   \n"
  452.     ))
  453.  
  454.     (set #gold_lib "Installation der GoldED-Library ...")
  455.  
  456.     (set #gold_lib_help (cat "\n"
  457.  
  458.         "Diese Library wird nur für die unregistrierte Version\n"
  459.         "benötigt. Registrierte Benutzer erhalten ersatzweise \n"
  460.         "ein Keyfile.                                         \n"
  461.     ))
  462.  
  463.     (set #what_catalog "\n Welche Sprachen sollen installiert werden ?\n")
  464.  
  465.     (set #what_catalog_help (cat "\n"
  466.  
  467.         " Diese Daten werden vom Betriebssystem benötigt, um  \n"
  468.         " GoldED in verschiedenen Sprachen ablaufen zu lassen \n"
  469.         " (dazu ist allerdings mindestens OS2.1 erforderlich).\n"
  470.         "                                                     \n"
  471.         " Menus werden nicht automatisch lokalisiert, da sie  \n"
  472.         " benutzerabhängig und nicht Teil des Editors sind;   \n"
  473.         " dazu später mehr.                                   \n"
  474.     ))
  475.  
  476.     (set #add_ged_assign "'GoldED:'-Assign einrichten ?\n")
  477.  
  478.     (set #add_ged_assign_help (cat "\n"
  479.                 
  480.         " GoldED untererstützt benutzerdefinierbare Menus.  \n"
  481.         " In der Regel müssen dabei einige Menueinträge auf \n"
  482.         " externe Daten wie ARexx-Makros zugreifen. Es ist  \n"
  483.         " üblich, hierbei absolute symbolische Pfade zu ver-\n"
  484.         " wenden; Standard für diesen Editor ist 'GOLDED:'. \n"
  485.         " Wenn Sie diesen Assign nicht anbringen lassen,    \n"
  486.         " werden insbesondere unerfahrene Anwender und An-  \n"
  487.         " wenderinnen PROBLEME bekommen.                    \n"
  488.         "                                                   \n"
  489.         " Prinzipiell kann aber auf diesen Assign verzichtet\n"
  490.         " werden, da von GED selbst nur eine einzige externe\n"
  491.         " Datei benötigt wird (envarc:GoldED/GoldED.prefs). \n"
  492.     ))
  493.  
  494.     (set #quickname " Namen für Schnellstarter wählen")
  495.  
  496.     (set #other_name "(anderer)")
  497.  
  498.     (set #quickname_help (cat "\n"
  499.  
  500.         " Der Schnellstarter ist ein kleiner (4 K) Vorsatz  \n"
  501.         " für GoldED, der benutzt werden kann, ALS OB er    \n"
  502.         " selbst ein Editor wäre. Sie könnten so ED LETTER  \n"
  503.         " eingeben, um den Text LETTER zu bearbeiten, wenn  \n"
  504.         " der Name des Quickstarters ED lautet. Der Vorteil \n"
  505.         " des Quickstarters: Er kann einen schon laufenden  \n"
  506.         " Editor ansprechen und diesem die Aufgabe über-    \n"
  507.         " geben. Dies geschieht SEHR schnell. In der Praxis \n"
  508.         " werden Sie vermutlich bald nur noch den Schnell-  \n"
  509.         " starter verwenden.                                \n"
  510.         "                                                   \n"
  511.         " Namensvorgabe ist ED; damit würde der originale ED\n"
  512.         " Ihrer Workbench ersetzt. Es kann aber natürlich   \n"
  513.         " jeder beliebige Name benutzt werden.              \n"
  514.     ))
  515.  
  516.     (set #enter_name " Einen Namen angeben:\n")
  517.  
  518.     (set #enter_name_help (cat "\n"
  519.  
  520.         " Wählen Sie einen beliebigen Namen. Unter diesem   \n"
  521.         " Namen vorhandene Dateien werden überschrieben. Mit\n"
  522.         " ED würden sie den alten ED der Workbench ersetzen.\n"
  523.     ))
  524.  
  525.     (set #place_quick " Plazieren des Schnellstarters im Kommandopfad:\n")
  526.  
  527.     (set #place_quick_help (cat "\n"
  528.  
  529.         " Sie sollten eines der folgenden Verzeichnisse be- \n"
  530.         " nutzen, um den Starter durch einfache Namensangabe\n"
  531.         " von jedem Verzeichnis aus aufrufen zu können:     \n"
  532.         "                                                   \n"
  533.         " SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM   \n"
  534.         "                                                   \n"
  535.         " Haben Sie den Starter ED genannt, so sollte er    \n"
  536.         " entweder in 'C:' plaziert werden oder der dort    \n"
  537.         " vorhandene ED gelöscht werden, um eindeutige Ver- \n"
  538.         " hältnisse zu schaffen.                            \n"
  539.     ))
  540.  
  541.     (set #resident "\n Schnellstarter resident machen ?\n")
  542.  
  543.     (set #resident_help (cat "\n"
  544.  
  545.         " Der Quickstarter sollte resident gemacht werden,\n"
  546.         " da er dann noch schneller ansprechbar ist. Der  \n"
  547.         " damit verbundene Speicherverbrauch ist vernach- \n"
  548.         " lässigbar (4 KB).                               \n"
  549.     ))
  550.  
  551.     (set #creating_bak "Sicherheitskopien der Einstellungen anlegen...")
  552.  
  553.     (set #bak_done (cat "\n"
  554.  
  555.         "Kopien der alten Einstellungen wurden im folgenden\n"
  556.         "Verzeichnis abgelegt:\n\n"
  557.     ))
  558.  
  559.     (set #what_menu "\n Sprache für Menu auswählen: \n")
  560.  
  561.     (set #what_menu_help (cat "\n"
  562.  
  563.         " GoldED ist 'lokalisiert', sprich: benutzt ab OS2.1  \n"
  564.         " die Locale-Library um seine Requester an die system-\n"
  565.         " weit eingestellte Sprache anzupassen. Da Menus aber \n"
  566.         " nicht Bestandteil von GoldED selbst sind, können sie\n"
  567.         " nicht automatisch lokalisiert werden. Statt dessen  \n"
  568.         " ist dem Programm mitzuteilen, welche Menudefinition \n"
  569.         " verwendet werden soll. Menudefinitionen stehen in   \n"
  570.         " Form von Dateien z.Zt. in Deutsch und Englisch zur  \n"
  571.         " Verfügung. Sie sind später auch jederzeit aus dem   \n"
  572.         " Editor heraus nachladbar.                           \n"
  573.     ))
  574.  
  575.     (set #screen "\n Gewünschter Bildschirmmodus:\n")
  576.  
  577.     (set #screen_help (cat "\n"
  578.  
  579.         " Zur Einstellung des Bildschirmmodus vor dem ersten\n"
  580.         " Programmstart. Ich würde zu einem eigenen Screen  \n"
  581.         " raten, da GED dann schneller arbeitet und schöner \n"
  582.         " aussieht (bei Rechnern mit nur 512K Chip-RAM ist  \n"
  583.         " dafür aber möglicherweise zu wenig Speicher vor-  \n"
  584.         " handen).                                          \n"
  585.     ))
  586.  
  587.     (set #screen_ntsc   "eigener NTSC-Screen")
  588.     (set #screen_ntsc_i "eigener NTSC-Screen interlaced")
  589.     (set #screen_pal    "eigener PAL-Screen")
  590.     (set #screen_pal_i  "eigener PAL-Screen interlaced")
  591.     (set #screen_wb     "Workbench-Screen")
  592.  
  593.     (set #look_feel "Look & Feel")
  594.  
  595.     (set #look_feel_help (cat "\n"
  596.  
  597.         " Vorschlag: benutzen Sie einen 2-Farb-Modus,  \n"
  598.         " wenn Ihr Rechner eher langsam ist (68000er), \n"
  599.         " ansonsten einen 4-Farb-Modus. Seien Sie ge-  \n"
  600.         " warnt: innerhalb von GoldED stehen Ihnen noch\n"
  601.         " wesentlich mehr Modi zur Vefügung :-)        \n"
  602.     ))
  603.  
  604.     (set #mode_blue    "Blue     (2 Farben, schnellll)")
  605.     (set #mode_sun     "Sun      (4 Farben, orange-grau)")
  606.     (set #mode_tpp     "TPP      (4 Farben, dunkelblau)")
  607.     (set #mode_ocean   "Ocean    (4 Farben, helles Grün)")
  608.     (set #mode_stone   "Stone    (2 Farben, grau, schnell)")
  609.     (set #mode_leaf    "Leaf     (4 Farben, mein Favorit)")
  610.     (set #mode_ced     "CED-Blue (4 Farben, helles Grün)")
  611.     (set #mode_tennis  "Tennis   (4 Farben, rostbraun-grün)")
  612.     (set #mode_desktop "Desktop  (8 Farben, langsam)")
  613.  
  614.     (set #what_printer "\n Welchen Drucker besitzen Sie ? \n")
  615.     (set #what_printer_help "\n Geben Sie den Druckertyp an, den Sie besitzen.")
  616.  
  617.     (set #printer_deskjet "DeskJet oder Kompatibler")
  618.     (set #printer_laser   "PCL Laserdrucker")
  619.     (set #printer_other   "anderer/kein Drucker")
  620.  
  621.     (set #what_proglang "\n Bevorzugte Programmiersprache:\n")
  622.  
  623.     (set #what_proglang_other "andere/keine")
  624.  
  625.     (set #what_proglang_help (cat "\n"
  626.  
  627.         " GED bietet 'intelligente' Einrückung nach Schlüssel-\n"
  628.         " worten wie IF. Das Einrückungsschema hängt von Ihrer\n"
  629.         " Programmiersprache ab. Daneben wird bei Wahl von C  \n"
  630.         " auch noch ein C-Wörterbuch installiert, das der     \n"
  631.         " automatischen Korrektur von Groß-/Kleinschreibung   \n"
  632.         " sowie der automatischen Wortvervollständigung dient.\n"
  633.     ))
  634.  
  635.     (set #no_prefs (cat "\n"
  636.  
  637.         " Konfigurationsdatei konnte nicht erzeugt werden ?!  \n"
  638.         " Bitte überprüfen Sie, ob der originale JOIN-Befehl  \n"
  639.         " des Amiga-OS (c:join) vorhanden ist.                \n"
  640.     ))
  641.  
  642.     (set #bad_env "\n Warnung - falscher ENV:-Assign (zeigt auf ENVARC:)")
  643.  
  644.     (set #install_aguide "Installation der AmigaGuide-Library...")
  645.  
  646.     (set #install_reqtools "Installation der Reqtools-Library...")
  647.  
  648.     (set #install_xpk "Installation der XpkMaster-Library...")
  649.  
  650.     (set #second_disk (cat "\n"
  651.  
  652.         " Bitte legen Sie Teil II des GoldED-Paketes in\n"
  653.         " das Laufwerk df0: ein ...                    \n"
  654.     ))
  655.  
  656.     (set #gui_assign "\n 'GUIMake:'-Assign einrichten ?\n")
  657.  
  658.     (set #gui_assign_help (cat "\n"
  659.  
  660.         " Dieser Assign wird benötigt, wenn Sie GUIMake be-\n"
  661.         " nutzen möchten (ein Make-Programm mit grafischer \n"
  662.         " Benutzeroberfläche).                             \n"
  663.     ))
  664.  
  665.     (set #hs_assign "\n 'HISPEED:'-Assign einrichten ?\n")
  666.  
  667.     (set #hs_assign_help (cat "\n"
  668.  
  669.         " Dieser Assign wird benötigt, wenn Sie HiSpeed aus\n"
  670.         " jedem beliebigen Verzeichnis heraus aufrufen     \n"
  671.         " möchten. Er kann entfallen, wenn Sie die im Paket\n"
  672.         " enthaltenen DJ-Sftfonts nicht benutzen werden.   \n"
  673.     ))
  674.  
  675.     (set #complete (cat "\n"
  676.  
  677.         "Installation abgeschlossen. Sie sollen Ihren Amiga  \n"
  678.         "neu booten, bevor Sie diese GoldED-Fassung erstmalig\n"
  679.         "benutzen. Have fun :-)                              \n"
  680.     ))
  681. ))
  682.  
  683. ; --- French strings ---
  684.  
  685. (if (= @language "français") (
  686.  
  687.     (set #introduction (cat "\n"
  688.  
  689.         "L'éditeur du programmeur, Tous droits réservés \n"
  690.         "                                               \n"
  691.         "GoldED ©'94 Dietmar Eilert                     \n"
  692.         "Reqtools  ©'91-94 Nico François                \n"
  693.         "GUIMake ©'93 Rico Krasowski                    \n"
  694.         "                                               \n"
  695.         "GoldED N'EST PAS 'librement distribuable'.     \n"
  696.         "Consultez le fichier licence avant d'installer \n"
  697.         "GoldED; l'installation de ce logiciel signifie \n"
  698.         "que vous acceptez cette licence. Merci.        \n"
  699.     ))
  700.  
  701.     (set #badkick "\n Désolé, ce pack demande l'OS v2.04 ou mieux.\n")
  702.  
  703.     (set #error (cat
  704.  
  705.         " Une erreur est survenue. Informez-en svp un site  \n"
  706.         " de support de GoldED (DIETMAR@TOMATE.OCHE.DE).    \n"
  707.         " Les informations suivantes sont nécessaires: le   \n"
  708.         " code d'erreur (ci-dessus), le pourcentage atteint \n"
  709.         " et votre fichier log. Merci !                     \n"
  710.     ))
  711.  
  712.     (set #assign_found "\nAssign GOLDED: détecté...\n")
  713.  
  714.     (set #assign_found_help (cat "\n"
  715.  
  716.         " Si vous décidez de mettre à jour votre vieille    \n"
  717.         " installation, on ne vous demandera pas de réper-  \n"
  718.         " toires. Ceux de l'installation précédente seront  \n"
  719.         " utilisés.                                         \n"
  720.         "                                                   \n"
  721.         " Si vous décidez d'effacer votre installation      \n"
  722.         " actuelle de GoldED, celui-ci essaiera d'effacer   \n"
  723.         " les fichiers créés par une installation normale   \n"
  724.         " de GoldED. Cet utilitaire est par contre incapable\n"
  725.         " d'effacer tous les fichiers appartenant à GoldED. \n"
  726.         " Par exemple, il n'effacera pas la reqtools.library\n"
  727.         " car celle-ci peut être utilisée par d'autres      \n"
  728.         " application. Il n'effacera pas le QuickStarter car\n"
  729.         " il ne sait pas ou il se trouve.                   \n"
  730.         "                                                   \n"
  731.         " Si vous rencontrez des problèmes avec ce script   \n"
  732.         " d'installation (qui n'est certainement pas par-   \n"
  733.         " fait), effacez d'abord votre ancienne copie (uti- \n"
  734.         " lisez l'option remove) avant d'essayer une        \n"
  735.         " nouvelle installation.                            \n"
  736.         "                                                   \n"
  737.         " Des copies de sauvegarde de vos préférences sont  \n"
  738.         " faites.                                           \n"
  739.         "                                                   \n"
  740.         " Les bibliothèques ne sont pas effacées mais mises \n"
  741.         " à jour (selon le numéro de version/révision).     \n"
  742.     ))
  743.  
  744.     (set #new    "Installation de GoldED")
  745.     (set #update "Mettre à jour votre GoldED")
  746.     (set #remove "Effacer GoldED de votre système")
  747.  
  748.     (set #remove_ged  "Effacer l'assign 'GoldED:' ?\n")
  749.     (set #remove_hs   "Effacer l'assign 'HiSpeed:' ?\n")
  750.     (set #remove_ed   "Effacer l'accès au quickstarter ?\n")
  751.     (set #remove_gmk  "Effacer l'accès au GUIMake ?\n")
  752.     (set #must_remove "Vous devez effacer cet assign !")
  753.     (set #removed     "; (effacé)")
  754.  
  755.     (set #pref_icons "Sélectionnez le type d'icônes souhaité")
  756.  
  757.     (set #medres " Icônes moyenne résolution (aspect 1:2)")
  758.     (set #hires  " Icônes haute résolution (aspect 1:1)")
  759.  
  760.     (set #pref_icons_help (cat "\n"
  761.  
  762.         " Sélectionnez la moyenne résolution si votre écran\n"
  763.         " a une résolution de 640x256 ou de 640x200 (dans  \n"
  764.         " ce mode les pixels sont plus hauts que larges).  \n"
  765.         " Sélectionnez la haute résolution si la résolution\n"
  766.         " de votre écran est d'environ 1:1 (640x512 ou     \n"
  767.         " 800x600).                                        \n"
  768.     ))
  769.  
  770.     (set #where " Ou désirez-vous installer le répertoire de GED ?\n")
  771.  
  772.     (set #where_help (cat "\n"
  773.  
  774.         " Sélectionnez simplement un répertoire (le réper- \n"
  775.         " toire principal est très bien pour cela). Je vais\n"
  776.         " créer un répertoire GoldED dans votre répertoire.\n"
  777.         " Vous devriez sélectionner un répertoire possédant\n"
  778.         " une icône (ex: SYS:Utilities).                   \n"
  779.         "                                                  \n"
  780.         " Le répertoire de GoldED contiendra plusieurs fi- \n"
  781.         " chiers/utilitaires ainsi que l'éditeur principal.\n"
  782.         " Les macros ARexx sont normalement placés dans un \n"
  783.         " sous-répertoire de GoldED. Les manuels de GoldED \n"
  784.         " y sont également installés.                      \n"
  785.     ))
  786.  
  787.     (set #bad_path "Désolé, pas d'installation en RAM")
  788.  
  789.     (set #drive_space (cat "\n"
  790.  
  791.         " Cette installation demande environ 1.2 Mo de  \n"
  792.         " libre sur le volume dans lequel vous voulez   \n"
  793.         " GoldED. Libérez un peu de place sur ce volume \n"
  794.         " et réinstallez-le.                            \n"
  795.     ))
  796.  
  797.     (set #gold_lib "Installation de la GoldED.library ...")
  798.  
  799.     (set #gold_lib_help (cat "\n"
  800.  
  801.         " Cette bibliothèque est seulement requise pour la    \n"
  802.         " version non enregistrée de GoldED. Les utilisateurs \n"
  803.         " enregistrés reçoivent un fichier-clé à la place.    \n"
  804.     ))
  805.  
  806.     (set #what_catalog "\n Quels catalogues désirez-vous installer ?\n")
  807.  
  808.     (set #what_catalog_help (cat "\n"
  809.  
  810.         " Les catalogues sont requis par l'OS 2.1 ou plus pour\n"
  811.         " localiser GoldED, c.à.d pour que l'éditeur soit tra-\n"
  812.         " duit dans le langage de l'utilisateur (même si les  \n"
  813.         " menus ne sont pas localisés car ils ne dépendent pas\n"
  814.         " de l'éditeur lui-même).                             \n"
  815.     ))
  816.  
  817.     (set #add_ged_assign "Ajouter l'assign GoldED à la s:user-startup ?\n")
  818.  
  819.     (set #add_ged_assign_help (cat "\n"
  820.                 
  821.         " Cet éditeur gère des menus créés par l'utilisateur \n"
  822.         " (c.à.d vous pouvez attacher des commandes, des     \n"
  823.         " macros ARexx, des scripts... aux menus). Comme ces \n"
  824.         " fichiers externes sont beaucoup utilisés, il est   \n"
  825.         " plus commode - et recommandé - de placer tous les  \n"
  826.         " fichiers en rapport avec GoldED dans un répertoire \n"
  827.         " assigné GoldED: (ou l'un de ses sous-répertoires). \n"
  828.         " Si vous ne définissez pas cet assign, vous aurez   \n"
  829.         " des PROBLEMES. L'éditeur n'a en fait pas besoin de \n"
  830.         " cet assign pour fonctionner. Actuellement, il n'   \n"
  831.         " utilise aucun fichier externe, mis à part son fi-  \n"
  832.         " chier de configuration (envarc:golded/golded.prefs)\n"
  833.     ))
  834.  
  835.     (set #quickname " Choisissez un nom pour le Quickstarter")
  836.  
  837.     (set #other_name "(autre nom)")
  838.  
  839.     (set #quickname_help (cat "\n"
  840.  
  841.         " Le QuickStarter est une petite façade (4 Ko) de  \n"
  842.         " GoldED. Vous pouvez l'utiliser comme si c'était  \n"
  843.         " un vrai éditeur. Vous pouvez entrer par exemple  \n"
  844.         " 'ed lettre' si le QuickStarter s'appelle 'ed'.   \n"
  845.         " Le grand avantage du QuickStarter est qu'il peut \n"
  846.         " passer une nouveau texte à une tâche de GoldED   \n"
  847.         " déjà existante (s'il y en a une). Le Quickstarter\n"
  848.         " peut être résident (l'éditeur principal non).    \n"
  849.         "                                                  \n"
  850.         " Le nom par défaut de QuickStarter est 'ED' mais  \n"
  851.         " vous êtes libre de choisir le nom que vous       \n"
  852.         " voulez. Personnellement, je préfère ED           \n"
  853.         " (remplacant celui de Commodore).                 \n"
  854.     ))
  855.  
  856.     (set #enter_name " Entrez un nom:\n")
  857.  
  858.     (set #enter_name_help (cat "\n"
  859.  
  860.         " N'importe quel nom (GED, ...) est possible. Les \n"
  861.         " fichiers existants seront effacés. Si vous      \n"
  862.         " l'appelez ED, celui-ci sera perdu.              \n"
  863.     ))
  864.  
  865.     (set #place_quick (cat "\n"
  866.  
  867.         " Plaçons maintenant le QuickStarter dans un      \n"
  868.         " répertoire valable. Sélectionnez-en un:         \n"
  869.     ))
  870.  
  871.     (set #place_quick_help (cat "\n"
  872.  
  873.         " Vous devriez sélectionnez un de ces répertoires \n"
  874.         " si vous voulez entrer son nom sans vous occuper \n"
  875.         " de l'endroit où il se trouve:                   \n"
  876.         "                                                 \n"
  877.         " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM   \n"
  878.         "                                                 \n"
  879.         " Si vous choisissez ED comme nom par défaut, vous\n"
  880.         " devez soit le placer dans C: ou effacer le vieux\n"
  881.         " ED pour éviter des conflits entre les deux.     \n"
  882.     ))
  883.  
  884.     (set #resident "\n Rendre Quickstarter résident?\n")
  885.  
  886.     (set #resident_help (cat "\n"
  887.  
  888.         " Je vous suggère de rendre résident le           \n"
  889.         " Quickstarter (4Ko) - il sera ainsi plus rapide. \n"
  890.     ))
  891.  
  892.     (set #creating_bak "Crée un backup des anciens règlages...")
  893.  
  894.     (set #bak_done (cat "\n"
  895.  
  896.         " Des copies de sauvegarde de vos anciens réglages ont\n"
  897.         " été placées dans le répertoire:\n\n"
  898.     ))
  899.  
  900.     (set #what_menu "\n Choisissez le langage de vos menus: \n")
  901.  
  902.     (set #what_menu_help (cat "\n"
  903.  
  904.         " GoldED est localisé (il utilise la locale.library  \n"
  905.         " du WB2/3.x) en ce qui concerne les textes internes.\n"
  906.         " Comme les menus ne font pas partie de l'éditeur en \n"
  907.         " lui-même, ils ne sont pas localisés. A la place, l \n"
  908.         " utilisateur peut choisir un fichier menu dans son  \n"
  909.         " langage.                                           \n"
  910.     ))
  911.  
  912.     (set #screen "\n Choisissez la résolution de l'écran par défaut:")
  913.  
  914.     (set #screen_help (cat "\n"
  915.  
  916.         " Définit le mode d'écran à utiliser lors du premier \n"
  917.         " démarrage de GoldED. Je vous suggère d'utiliser un \n"
  918.         " écran Custom car cela rendra GoldED beaucoup plus  \n"
  919.         " rapide et beaucoup plus beau.                      \n"
  920.     ))
  921.  
  922.     (set #screen_ntsc   "Ecran Custom NTSC")
  923.     (set #screen_ntsc_i "Ecran Custom NTSC entrelacé")
  924.     (set #screen_pal    "Ecran Custom PAL")
  925.     (set #screen_pal_i  "Ecran Custom PAL entrelacé")
  926.     (set #screen_wb     "Ecran Workbench")
  927.  
  928.     (set #look_feel "Look & Feel")
  929.  
  930.     (set #look_feel_help (cat "\n"
  931.  
  932.         " Suggestion: utilisez un mode à 2 couleurs si votre\n"
  933.         " Amiga n'est pas très rapide (68000) ou n'importe  \n"
  934.         " lequel pour un autre Amiga. Attention: il existe  \n"
  935.         " d'autres modes disponibles depuis GoldED          \n"
  936.     ))
  937.  
  938.     (set #mode_blue    "Bleu     (2 couleurs, rapide)")
  939.     (set #mode_sun     "Sun      (4 couleurs, orange-gris)")
  940.     (set #mode_tpp     "TPP      (4 couleurs, bleu foncé)")
  941.     (set #mode_ocean   "Océan    (4 couleurs, vert clair)")
  942.     (set #mode_stone   "Pierre   (2 couleurs, gris, rapide)")
  943.     (set #mode_leaf    "Feuilles (4 couleurs, mon favori)")
  944.     (set #mode_ced     "Bleu CED (4 couleurs, bleu clair)")
  945.     (set #mode_tennis  "Tennis   (4 couleurs, marron-vert)")
  946.     (set #mode_desktop "Desktop  (8 couleurs, beau mais lent)")
  947.  
  948.     (set #what_printer "\n Quel imprimante possédez-vous ?\n")
  949.     (set #what_printer_help "\n Sélectionnez simplement votre modèle.")
  950.  
  951.     (set #printer_deskjet "DeskJet ou similaire (Olivetti, Fujitsu...)")
  952.     (set #printer_laser   "Imprimante Laser (PCL)")
  953.     (set #printer_other   "Aucune/Autre")
  954.  
  955.     (set #what_proglang "\n Votre langage de programmation préféré?\n")
  956.  
  957.     (set #what_proglang_other "Autre")
  958.  
  959.     (set #what_proglang_help (cat "\n"
  960.  
  961.         " GoldED propose un formatage automatique après les\n"
  962.         " mots-clé comme IF. Ce formatage dépend du langage\n"
  963.         " de programmation. Un dictionnaire C est de plus  \n"
  964.         " disponible (requis pour l'Autocomplétion).       \n"
  965.     ))
  966.  
  967.     (set #no_prefs "\nImpossible de créer le fichier de préférences !?\n")
  968.  
  969.     (set #bad_env "\n WARNING: BAD ASSIGN (ENV: = ENVARC:)")
  970.  
  971.     (set #install_aguide "Installation de la AmigaGuide-Library...")
  972.  
  973.     (set #install_reqtools "Installation de la Reqtools-Library...")
  974.  
  975.     (set #install_xpk "Installation de la XpkMaster-Library...")
  976.  
  977.     (set #second_disk (cat "\n"
  978.  
  979.         " Insérez la deuxième disquette de la distribution\n"
  980.         " de GoldED dans le lecteur df0: ...              \n"
  981.     ))
  982.  
  983.     (set #gui_assign "\n Ajoutez l'assign GUIMake à la s:user-startup ?\n")
  984.  
  985.     (set #gui_assign_help (cat "\n"
  986.  
  987.         " Un assign 'GUIMake:' est requis pour pouvoir      \n"
  988.         " utiliser GUIMake (Façade-pilote pour compilateur).\n"
  989.     ))
  990.  
  991.     (set #hs_assign "\n Ajoutez l'assign HISPEED à la s:user-startup ?\n")
  992.  
  993.     (set #hs_assign_help (cat "\n"
  994.  
  995.         " Un assign 'HISPEED:' est requis si vous voulez      \n"
  996.         " utiliser HiSpeed sans vous préoccuper des chemins   \n"
  997.         " à utiliser (vous n'aurez pas à faire un CD HiSpeed).\n"
  998.         " Cet assign n'est par contre pas requis si vous      \n"
  999.         " ne comptez pas utiliser les polices soft de ce pack.\n"
  1000.     ))
  1001.  
  1002.     (set #complete (cat "\n"
  1003.  
  1004.         " Installation terminée. Vous devriez réinitialiser   \n"
  1005.         " votre machine avant d'utiliser GED pour la première \n"
  1006.         " fois. Bon amusement :-)                             \n"
  1007.     ))
  1008. ))
  1009.  
  1010. ; sure we are running under a 2.04 ROM ?
  1011.  
  1012. (if (< (/ (getversion) 65536) 37)
  1013.  
  1014.     (
  1015.         (message #badkick)
  1016.  
  1017.         (exit (quiet))
  1018.     )
  1019. )
  1020.  
  1021. (complete 0)
  1022.  
  1023. (run "sync SCRIPT=INSTALL.BAT")
  1024.  
  1025. (message #introduction)
  1026.  
  1027. (welcome)
  1028.  
  1029. (set @default-dest "")
  1030.  
  1031. ; set default language selection (catalogs) to 'none'
  1032.  
  1033. (set catalogs 0)
  1034.  
  1035. (if (not (exists "prefs:" (noreq))) (makeassign "prefs" "sys:prefs"))
  1036.  
  1037. (onerror (
  1038.  
  1039.     (if (> @ioerr 0) 
  1040.  
  1041.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #error))
  1042.     )
  1043. ))
  1044.  
  1045. (if (exists "GoldED:" (noreq))
  1046.  
  1047.     (set update (askchoice
  1048.  
  1049.         (prompt #assign_found)
  1050.         (help   #assign_found_help)
  1051.  
  1052.         (default 1)
  1053.  
  1054.         (choices
  1055.  
  1056.             #new
  1057.             #update
  1058.             #remove
  1059.         )
  1060.     ))
  1061. )
  1062.  
  1063. ; remove GoldED ?
  1064.  
  1065. (if (= update 2) (
  1066.  
  1067.     (if (exists "GoldED:" (noreq))
  1068.  
  1069.         (
  1070.             (run "assign >NIL: oldged: GoldED:/")
  1071.  
  1072.             (run "assign >NIL: HiSpeed:  remove")
  1073.             (run "assign >NIL: GoldED:   remove")
  1074.             (run "assign >NIL: GUIMake:  remove")
  1075.  
  1076.             (run "delete >NIL: oldged:GoldED all quiet force")
  1077.             (run "delete >NIL: oldged:GoldED.info")
  1078.  
  1079.             (if (exists "locale:catalogs/français/GoldED.catalog" (noreq))
  1080.                 (delete "locale:catalogs/français/GoldED.catalog")
  1081.             )
  1082.  
  1083.             (if (exists "locale:catalogs/deutsch/GoldED.catalog" (noreq))
  1084.                 (delete "locale:catalogs/deutsch/GoldED.catalog")
  1085.             )
  1086.  
  1087.             (if (exists "locale:catalogs/deutsch/SpellIT.catalog" (noreq))
  1088.                 (delete "locale:catalogs/deutsch/SpellIT.catalog")
  1089.             )
  1090.  
  1091.             (if (exists "locale:catalogs/français/SpellIT.catalog" (noreq))
  1092.                 (delete "locale:catalogs/français/SpellIT.catalog")
  1093.             )
  1094.  
  1095.             (if (exists "locale:catalogs/deutsch/HiSpeed.catalog" (noreq))
  1096.                 (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1097.             )
  1098.  
  1099.             (if (exists "locale:catalogs/français/HiSpeed.catalog" (noreq))
  1100.                 (delete "locale:catalogs/français/HiSpeed.catalog")
  1101.             )
  1102.  
  1103.             (run "delete >NIL: prefs:presets/GED_#? all quiet")
  1104.             (run "delete >NIL: prefs:presets/GoldED all quiet")
  1105.             (run "delete >NIL: envarc:GoldED        all quiet")
  1106.             (run "delete >NIL: env:GoldED           all quiet")
  1107.             (run "delete >NIL: envarc:HiSpeed       all quiet")
  1108.             (run "delete >NIL: env:HiSpeed          all quiet")
  1109.             (run "delete >NIL: fonts:GoldED         all quiet")
  1110.  
  1111.             (delete "s:GUIMake.pref")
  1112.             (delete "libs:golded.library")
  1113.  
  1114.             ((startup
  1115.  
  1116.                 "GoldED"
  1117.                 (prompt  #remove_ged)
  1118.                 (help    #must_remove)
  1119.                 (command #removed)
  1120.             ))
  1121.  
  1122.             ((startup
  1123.  
  1124.                 "HiSpeed"
  1125.                 (prompt  #remove_hs)
  1126.                 (help    #must_remove)
  1127.                 (command #removed)
  1128.             ))
  1129.  
  1130.             ((startup
  1131.  
  1132.                 "GED_quick"
  1133.                 (prompt  #remove_ed)
  1134.                 (help    #must_remove)
  1135.                 (command #removed)
  1136.             ))
  1137.  
  1138.             ((startup
  1139.  
  1140.                 "GUIMake"
  1141.                 (prompt  #remove_gmk)
  1142.                 (help    #must_remove)
  1143.                 (command #removed)
  1144.             ))
  1145.         )
  1146.     )
  1147.  
  1148.     (exit (quiet))
  1149. ))
  1150.  
  1151. (complete 1)
  1152.  
  1153. (if (= update 1)
  1154.  
  1155.     (
  1156.         ; <icons>: 0 = medRes icons, 1 = hiRes icons
  1157.  
  1158.         (if (> (getsize "golded:golded.info") 800)
  1159.  
  1160.             (set icons 1)
  1161.             (set icons 0)
  1162.         )
  1163.     )
  1164.  
  1165.     (set icons
  1166.  
  1167.         (askchoice
  1168.  
  1169.             (prompt #pref_icons)
  1170.             (help   #pref_icons_help)
  1171.  
  1172.             (choices
  1173.  
  1174.                 #medres
  1175.                 #hires
  1176.             )
  1177.  
  1178.             (default 1)
  1179.         )
  1180.     )
  1181. )
  1182.  
  1183. (complete 2)
  1184.  
  1185. ; install the main editor
  1186.  
  1187. (set reboot 1)
  1188.  
  1189. (if (= update 1)
  1190.  
  1191.     (set target "golded:/")
  1192.  
  1193.     ((set target (askdir
  1194.  
  1195.         (prompt #where)
  1196.         (help   #where_help)
  1197.  
  1198.         (default "SYS:TOOLS")
  1199.     ))
  1200. ))
  1201.  
  1202. (set @default-dest target)
  1203.  
  1204. ; no installation to RAM disk allowed ...
  1205.  
  1206. (if (= "RAM" (getdevice target))
  1207.  
  1208.     (
  1209.         (message #bad_path)
  1210.  
  1211.         (exit (quiet))
  1212.     )
  1213. )
  1214.  
  1215. (complete 5)
  1216.  
  1217. (set targetsize (getdiskspace target))
  1218.  
  1219. (if (= update 0)
  1220.  
  1221.     (if (< targetsize 1250000) (
  1222.  
  1223.         (if (<> (getdevice target) "RAM") (
  1224.  
  1225.             (abort #drive_space)
  1226.         ))
  1227.     ))
  1228. )
  1229.  
  1230. (complete 10)
  1231.  
  1232. (copyfiles
  1233.  
  1234.     (source "data/main")
  1235.     (dest target)
  1236.     (infos)
  1237.     (all)
  1238. )
  1239.  
  1240. (makeassign "GoldED" (tackon target "GoldED"))
  1241.  
  1242. ; install manuals
  1243.  
  1244. (copyfiles
  1245.  
  1246.     (source "data/doc")
  1247.     (dest "GoldED:")
  1248.     (infos)
  1249.     (all)
  1250. )
  1251.  
  1252. ; install keyfile ?
  1253.  
  1254. (if (not (exists ("envarc:GoldED"))) (makedir "envarc:GoldED"))
  1255.  
  1256. (if (exists "keyfile/keyfile")
  1257.  
  1258.     (copyfiles
  1259.  
  1260.         (source "keyfile/keyfile")
  1261.         (dest "envarc:golded")
  1262.     )
  1263.  
  1264.     (if (not (exists "envarc:golded/keyfile"))
  1265.  
  1266.         (copylib
  1267.  
  1268.             (prompt #gold_lib)
  1269.             (help   #gold_lib_help)
  1270.  
  1271.             (source "data/libs/golded.library")
  1272.             (dest "libs:")
  1273.             (confirm)
  1274.         )
  1275.     )
  1276. )
  1277.  
  1278. ; install new drawer icon ?
  1279.  
  1280. (if (not (exists (tackon target "GoldED.info")))
  1281.  
  1282.     (copyfiles
  1283.  
  1284.         (source "data/icons/drawer/GoldED.info")
  1285.         (dest target)
  1286.         (infos)
  1287.     )
  1288. )
  1289.  
  1290. ; get rid of .info file created by installer
  1291.  
  1292. (delete (tackon target ".info"))
  1293.  
  1294. (complete 15)
  1295.  
  1296. (if (= icons 0)
  1297.  
  1298.     (copyfiles
  1299.  
  1300.       (source "data/Icons/GoldED")
  1301.       (dest (tackon target "GoldED"))
  1302.       (all)
  1303.       (infos)
  1304.     )
  1305. )
  1306.  
  1307. (makeassign "GoldED" (tackon target "GoldED"))
  1308.  
  1309. ; remove obsolete files
  1310.  
  1311. (delete "GoldED:GoldED.guide" (infos))
  1312. (delete "GoldED:Hi!" (infos))
  1313. (delete "GoldED:Tools/Unlock.info" (infos))
  1314. (delete "GoldED:rx")
  1315. (delete "GoldED:API/ReadMe.info")
  1316. (delete "GoldED:API/dock/dock1.prefs")
  1317. (delete "GoldED:API/dock/dock2.prefs")
  1318. (delete "GoldED:.info")
  1319. (delete "GoldED:macros/test.ged")
  1320.  
  1321. (run "delete >NIL: GoldED:Tools/Unlock all")
  1322.  
  1323. ; update GoldDock icons ?
  1324.  
  1325. (if (exists "GoldED:API/GoldDock/GoldDock")
  1326.  
  1327.     (if (= icons 0)
  1328.  
  1329.         (copyfiles
  1330.  
  1331.             (source "data/icons/golddock/medres")
  1332.             (dest   "GoldED:API")
  1333.             (all)
  1334.             (infos)
  1335.         )
  1336.         (copyfiles
  1337.  
  1338.             (source "data/icons/golddock/hires")
  1339.             (dest   "GoldED:API")
  1340.             (all)
  1341.             (infos)
  1342.         )
  1343.     )
  1344. )
  1345.  
  1346. ; create GoldED ARexx macro icons
  1347.  
  1348. (if (= icons 0)
  1349.  
  1350.     (run "MOVEICONS QUIET DIR=golded:arexx ICON=data/icons/script/medres DX=100 DY=35 COLUMNS=5")
  1351.     (run "MOVEICONS QUIET DIR=golded:arexx ICON=data/icons/script/hires  DX=100 DY=40 COLUMNS=5")
  1352. )
  1353.  
  1354. (complete 20)
  1355.  
  1356. (if (= update 1)
  1357.  
  1358.     (
  1359.         ; 1=english, 2=german, 4=french (7=all, 0=none)
  1360.  
  1361.         (set catalogs 1)
  1362.  
  1363.         (if (exists "locale:catalogs/deutsch/golded.catalog" (noreq))
  1364.  
  1365.             (
  1366.                 (set catalogs (+ catalogs 2))
  1367.                 (delete "locale:catalogs/deutsch/golded.catalog")
  1368.                 (delete "locale:catalogs/deutsch/SpellIT.catalog")
  1369.             )
  1370.         )
  1371.  
  1372.         (if (exists "locale:catalogs/français/golded.catalog" (noreq))
  1373.  
  1374.             (
  1375.                 (set catalogs (+ catalogs 4))
  1376.                 (delete "locale:catalogs/français/golded.catalog")
  1377.                 (delete "locale:catalogs/français/SpellIT.catalog")
  1378.             )
  1379.         )
  1380.     )
  1381.  
  1382.     ((set catalogs (askoptions
  1383.  
  1384.         (prompt #what_catalog)
  1385.         (help   #what_catalog_help)
  1386.  
  1387.         (choices
  1388.  
  1389.             " English"
  1390.             " Deutsch"
  1391.             " Français"
  1392.         )
  1393.  
  1394.         (default 7)
  1395.     ))
  1396. ))
  1397.  
  1398. (if (not (exists "locale:" (noreq))) (
  1399.  
  1400.     (makedir "sys:locale")
  1401.     (makeassign  "locale" "sys:locale")
  1402. ))
  1403.  
  1404. (if (not (exists "locale:catalogs"))) (makedir "locale:catalogs")
  1405.  
  1406. ; install German catalog
  1407.  
  1408. (if (IN catalogs 1) (
  1409.  
  1410.     (if (not (exists "locale:catalogs/deutsch"))) (makedir "locale:catalogs/deutsch")
  1411.  
  1412.     (copyfiles
  1413.  
  1414.         (source "data/catalogs/deutsch")
  1415.         (dest   "locale:catalogs/deutsch")
  1416.         (all)
  1417.     )
  1418. ))
  1419.  
  1420. ; install French catalog
  1421.  
  1422. (if (IN catalogs 2) (
  1423.  
  1424.     (if (not (exists "locale:catalogs/français"))) (makedir "locale:catalogs/français")
  1425.  
  1426.     (copyfiles
  1427.  
  1428.         (source "data/catalogs/français")
  1429.         (dest   "locale:catalogs/français")
  1430.         (all)
  1431.     )
  1432. ))
  1433.  
  1434. (if (= update 0)
  1435.  
  1436.     (   
  1437.         (makeassign  "GoldED" (tackon target "GoldED"))
  1438.         
  1439.         (startup
  1440.  
  1441.             "GoldED"
  1442.  
  1443.             (prompt #add_ged_assign)
  1444.             (help   #add_ged_assign_help)
  1445.         
  1446.             (command  ("ASSIGN >NIL: GOLDED: %s " (tackon target "GoldED")))
  1447.         )
  1448.     )
  1449. )
  1450.  
  1451. (complete 25)
  1452.  
  1453. ; install QuickStarter
  1454.  
  1455. (set progname (askchoice
  1456.  
  1457.     (prompt #quickname)
  1458.     (help   #quickname_help)
  1459.  
  1460.     (choices 
  1461.  
  1462.         "GED"
  1463.         "ED"
  1464.         #other_name
  1465.     )
  1466.  
  1467.     (default 1)
  1468. ))
  1469.  
  1470. (complete 30)
  1471.  
  1472. (if (= progname 0) (set name "GED"))
  1473. (if (= progname 1) (set name "ED" ))
  1474.  
  1475. (if (= progname 2)
  1476.  
  1477.     (set name (askstring
  1478.  
  1479.         (prompt #enter_name)
  1480.         (help   #enter_name_help)
  1481.  
  1482.         (default "ED")
  1483.     ))
  1484. )
  1485.  
  1486. (complete 35)
  1487.  
  1488. (set comdir (askdir
  1489.  
  1490.     (prompt #place_quick)
  1491.     (help   #place_quick_help)
  1492.  
  1493.     (default "C:")
  1494. ))
  1495.  
  1496. (copyfiles 
  1497.  
  1498.     (source  "data/main/GoldED/ED")
  1499.     (dest    comdir)
  1500.     (newname name)
  1501. )
  1502.  
  1503. (run "resident >NIL: ED remove")
  1504.  
  1505. (startup
  1506.  
  1507.     "GED_quick"
  1508.  
  1509.     (prompt #resident)
  1510.     (help   #resident_help)
  1511.  
  1512.     (command (cat "resident " (tackon comdir name) " pure"))
  1513. )
  1514.  
  1515. (complete 40)
  1516.  
  1517. ; install presets ...
  1518.  
  1519. (set prefsdir "prefs:presets/GoldED")
  1520.  
  1521. (if (exists prefsdir) (
  1522.  
  1523.     (set bakdir "prefs:presets/GED_BAK")
  1524.  
  1525.     (if (exists bakdir) (
  1526.  
  1527.         (while (exists bakdir) (
  1528.  
  1529.             (set bakdir (cat bakdir "X"))
  1530.  
  1531.         ))
  1532.     ))
  1533.  
  1534.     (complete 45)
  1535.  
  1536.     (working #creating_bak)
  1537.  
  1538.     (complete 50)
  1539.  
  1540.     (copyfiles
  1541.  
  1542.       (source prefsdir)
  1543.       (dest   bakdir)
  1544.       (nogauge)
  1545.       (all)
  1546.     )
  1547.  
  1548.     (message (cat #bak_done bakdir))
  1549.  
  1550.     (run (cat "delete " prefsdir " all quiet"))
  1551. ))
  1552.  
  1553. (complete 55)
  1554.  
  1555. (copyfiles
  1556.  
  1557.   (source "data/presets")
  1558.   (dest   "prefs:presets")
  1559.   (all)
  1560. )
  1561.  
  1562. (complete 60)
  1563.  
  1564. ; install config file ...
  1565.  
  1566. (set language 255)
  1567.  
  1568. ; already a language selected (while installing main editor) ?
  1569.  
  1570. (if (= catalogs 1) (set language 0))
  1571. (if (= catalogs 2) (set language 1))
  1572. (if (= catalogs 4) (set language 2))
  1573.  
  1574. (if (= language 255) (
  1575.  
  1576.     (set language (askchoice
  1577.  
  1578.         (prompt #what_menu)
  1579.         (help   #what_menu_help)
  1580.  
  1581.         (choices
  1582.  
  1583.             "English"
  1584.             "Deutsch"
  1585.             "Français"
  1586.         )
  1587.  
  1588.         (default 0)
  1589.     ))
  1590. ))
  1591.  
  1592. (if (= language 0) (set menufile "FactoryUS.men"))
  1593. (if (= language 1) (set menufile "FactoryD.men" ))
  1594. (if (= language 2) (set menufile "FactoryF.men" ))
  1595.  
  1596. (if (= (database "vblank") 50) (
  1597.  
  1598.     (set vblank 1)
  1599.     (set vblank 3)
  1600. ))
  1601.  
  1602. (complete 61)
  1603.  
  1604. (set screen (askchoice
  1605.  
  1606.     (prompt #screen)
  1607.     (help   #screen_help)
  1608.  
  1609.     (choices
  1610.  
  1611.         #screen_ntsc
  1612.         #screen_ntsc_i
  1613.         #screen_pal
  1614.         #screen_pal_i
  1615.         #screen_wb
  1616.     )
  1617.  
  1618.     (default vblank)
  1619. ))
  1620.  
  1621. (complete 62)
  1622.  
  1623. (if (= screen 4)
  1624.  
  1625.     (set display "workbench.dsp")
  1626.  
  1627.     (
  1628.         (if (< (/ (getversion) 65536) 39)
  1629.  
  1630.             (
  1631.                 (set mode (askchoice
  1632.                 
  1633.                     (prompt #look_feel)
  1634.                     (help   #look_feel_help)
  1635.  
  1636.                     (choices
  1637.  
  1638.                         #mode_blue
  1639.                         #mode_sun
  1640.                         #mode_tpp
  1641.                         #mode_ocean
  1642.                         #mode_stone
  1643.                         #mode_leaf
  1644.                     )
  1645.                 ))
  1646.             )
  1647.  
  1648.             (
  1649.                 (set mode (askchoice
  1650.                 
  1651.                     (prompt #look_feel)
  1652.                     (help   #look_feel_help)
  1653.  
  1654.                     (choices
  1655.  
  1656.                         #mode_blue
  1657.                         #mode_sun
  1658.                         #mode_tpp
  1659.                         #mode_ocean
  1660.                         #mode_stone
  1661.                         #mode_leaf
  1662.                         #mode_ced
  1663.                         #mode_tennis
  1664.                         #mode_desktop
  1665.                     )
  1666.                 ))
  1667.             )
  1668.         )
  1669.  
  1670.         (if (= mode 0) (set display "Blue"  ))
  1671.         (if (= mode 1) (set display "Sun"   ))
  1672.         (if (= mode 2) (set display "TPP"   ))
  1673.         (if (= mode 3) (set display "Ocean" ))
  1674.         (if (= mode 4) (set display "Stone" ))
  1675.         (if (= mode 5) (set display "Leaf"  ))
  1676.         (if (= mode 6) (set display "CED"   ))
  1677.         (if (= mode 7) (set display "Tennis"))
  1678.         (if (= mode 8) (set display "Desktop"))
  1679.  
  1680.         (if (or (= screen 0) (= screen 1))
  1681.  
  1682.             (set display (cat display "_NTSC"))
  1683.             (set display (cat display "_PAL" ))
  1684.         )
  1685.  
  1686.         (if (or (= screen 1) (= screen 3)) (
  1687.  
  1688.             (set display (cat display "_LACE"))
  1689.         ))
  1690.  
  1691.         (set display (cat display ".dsp"))
  1692.     )
  1693. )
  1694.  
  1695. (complete 63)
  1696.  
  1697. (set printer (askchoice
  1698.  
  1699.     (prompt #what_printer)
  1700.     (help   #what_printer_help)
  1701.  
  1702.     (choices
  1703.  
  1704.         #printer_deskjet
  1705.         #printer_laser
  1706.         #printer_other
  1707.     )
  1708.  
  1709.     (default 0)
  1710. ))
  1711.  
  1712. (if (= printer 2)
  1713.  
  1714.     (set prtfile "standard.prt"  )
  1715.     (set prtfile "DeskJetLQ.prt" )
  1716. )
  1717.  
  1718. (complete 64)
  1719.  
  1720. (set proglang (askchoice
  1721.  
  1722.     (prompt #what_proglang)
  1723.     (help   #what_proglang_help)
  1724.  
  1725.     (choices
  1726.  
  1727.         "C"
  1728.         "Pascal"
  1729.         "Basic"
  1730.         #what_proglang_other
  1731.     )
  1732.  
  1733.     (default 0)
  1734. ))
  1735.  
  1736. (if (= proglang 0) 
  1737.  
  1738.     ((set indention  "C.ind") 
  1739.      (set dictionary "C.dic"))
  1740.  
  1741.     ((set indention  "empty.ind")
  1742.      (set dictionary "empty.dic"))
  1743. )
  1744.  
  1745. (if (= proglang 1) (set indention "Pascal.ind"))
  1746. (if (= proglang 2) (set indention "Basic.ind"))
  1747.  
  1748. (if (not (exists ("envarc:GoldED"))) (makedir "envarc:GoldED"))
  1749.  
  1750. (if (exists "envarc:GoldED/GoldED.prefs" (noreq))
  1751.  
  1752.     (
  1753.         (run (cat "SplitConfig envarc:GoldED/GoldED.prefs " prefsdir " YourOldConfig"))
  1754.  
  1755.         (delete "envarc:GoldED/GoldED.prefs")
  1756.     )
  1757. )
  1758.  
  1759. (copyfiles
  1760.  
  1761.     (source "data/envarc")
  1762.     (dest "envarc:")
  1763.     (infos)
  1764.     (all)
  1765. )
  1766.  
  1767. (set prefs " data/presets/GoldED/")
  1768.  
  1769. ; create main preferences file by joining preset files (order is important)
  1770.  
  1771. (run (cat
  1772.    
  1773.    "JOIN "
  1774.  
  1775.    (cat prefs  menufile     )
  1776.    (cat prefs "standard.key")
  1777.    (cat prefs  display      )
  1778.    (cat prefs "standard.def")
  1779.    (cat prefs "standard.rat")
  1780.    (cat prefs "standard.tpl")
  1781.    (cat prefs "standard.gui")
  1782.    (cat prefs "standard.msc")
  1783.    (cat prefs "empty.ref"   )
  1784.  
  1785.    " AS T:GED.prefs"
  1786. ))
  1787.  
  1788. (run (cat
  1789.    
  1790.    "JOIN T:GED.prefs "
  1791.  
  1792.    (cat prefs  prtfile      )
  1793.    (cat prefs "standard.tab")
  1794.    (cat prefs  dictionary   )
  1795.    (cat prefs  indention    )
  1796.    (cat prefs "standard.lay")
  1797.    (cat prefs "empty.prj"   )
  1798.    (cat prefs "standard.hnt")
  1799.    (cat prefs "standard.api")
  1800.  
  1801.    " AS envarc:GoldED/GoldED.prefs"
  1802. ))
  1803.  
  1804. (if (not (exists "envarc:GoldED/GoldED.prefs"))
  1805.  
  1806.     (message #no_prefs)
  1807. )
  1808.  
  1809. (delete "t:GED.prefs")
  1810.  
  1811. (if (= (expandpath "env:") (expandpath "envarc:"))
  1812.  
  1813.     (message #bad_env)
  1814.  
  1815.     (
  1816.         (copyfiles
  1817.  
  1818.             (source "envarc:GoldED")
  1819.             (dest   "env:GoldED")
  1820.             (all)
  1821.             (infos)
  1822.         )
  1823.  
  1824.         (delete "envarc:.info")
  1825.     )
  1826. )
  1827.  
  1828. ; install 2nd set of icons (medRes, pixel ratio approx. 1:2) ?
  1829.  
  1830. (if (= icons 0)
  1831.  
  1832.     (copyfiles 
  1833.  
  1834.       (source "data/Icons/Envarc")
  1835.       (dest   "envarc:")
  1836.       (infos)
  1837.       (all)
  1838.     )
  1839. )
  1840.  
  1841. (complete 65)
  1842.  
  1843. (if (= update 0) (
  1844.  
  1845.     ; install libraries ?
  1846.  
  1847.     (if (exists "support/amigaguide")
  1848.  
  1849.         (copylib
  1850.  
  1851.             (prompt #install_aguide)
  1852.             (help @copylib-help)
  1853.             (source "support/amigaguide/amigaguide.library")
  1854.             (dest "libs:")
  1855.             (confirm)
  1856.         )
  1857.     )
  1858.  
  1859.     (if (exists "support/reqtools") (
  1860.  
  1861.         (copylib
  1862.  
  1863.             (prompt #install_reqtools)
  1864.             (help @copylib-help)
  1865.             (source "support/reqtools/reqtools.library")
  1866.             (dest "libs:")
  1867.             (confirm)
  1868.         )
  1869.  
  1870.         (if (not (exists "envarc:ReqTools.prefs")) (
  1871.  
  1872.             (copyfiles (source "support/reqtools/ReqTools.prefs") (dest "envarc:"))
  1873.  
  1874.         ))
  1875.     ))
  1876.  
  1877.     (if (exists "support/xpk") (
  1878.  
  1879.         (copylib
  1880.  
  1881.             (prompt #install_xpk)
  1882.             (help @copylib-help)
  1883.             (dest "libs:")
  1884.             (source "support/xpk/xpkmaster.library")
  1885.             (confirm)
  1886.         )
  1887.  
  1888.         (if (not (exists "libs:compressors"))
  1889.  
  1890.             (copyfiles
  1891.  
  1892.                 (source "support/xpk/compressors")
  1893.                 (dest   "libs:compressors")
  1894.                 (all)
  1895.             )
  1896.         )
  1897.     ))
  1898.  
  1899.     (complete 70)
  1900.  
  1901. ))
  1902.  
  1903. ; install font (has been revised, i.e. has to be installed in update mode, too)
  1904.  
  1905. (copyfiles
  1906.  
  1907.     (source "data/fonts" )
  1908.     (dest   "fonts:")
  1909.     (all)
  1910.     (nogauge)
  1911. )
  1912.  
  1913. (complete 75)
  1914.  
  1915. ; install tools
  1916.  
  1917. (set drive "GoldED:Tools")
  1918.  
  1919. (if (not (exists drive)) (makedir drive))
  1920.  
  1921. ; explicitely makedir drawers containing nested subdrawers (former installer versions seem to have a problem here ?!)
  1922.  
  1923. (if (not (exists (tackon drive "HiSpeed"))) (makedir (tackon drive "HiSpeed")))
  1924.  
  1925. (if (not (exists (tackon drive "GUIMake"))) (makedir (tackon drive "GUIMake")))
  1926.  
  1927. (complete 80)
  1928.  
  1929. ; get rid of blank within destination path name ("Ram disk:") ...
  1930.  
  1931. (if (= "RAM" (getdevice drive)) (set drive "RAM:"))
  1932.  
  1933. ; install catalogs
  1934.  
  1935. (if (not (exists "locale:" (noreq))) (
  1936.  
  1937.     (makedir "sys:locale")
  1938.     (makeassign  "locale" "sys:locale")
  1939. ))
  1940.  
  1941. (copyfiles 
  1942.  
  1943.     (source "data/tools/locale")
  1944.     (dest "locale:")
  1945.     (all)
  1946. )
  1947.  
  1948. (if (exists "GUIMake:" (noreq)) (set guimake 1))
  1949.  
  1950. (set target (tackon drive "GUIMake"))
  1951.  
  1952. ((startup
  1953.  
  1954.     "GUIMake"
  1955.  
  1956.     (prompt #gui_assign)
  1957.     (help   #gui_assign_help)
  1958.  
  1959.     (command  ("ASSIGN >NIL: GUIMake: %s " target))
  1960. ))
  1961.  
  1962. (set target (tackon drive "HiSpeed"))
  1963.  
  1964. (if (not (exists target)) (makedir target))
  1965.  
  1966. (makeassign "HISPEED" target)
  1967.  
  1968. (run "delete HISPEED:#? ALL QUIET")
  1969.  
  1970. (copyfiles
  1971.  
  1972.     (source "data/tools/HiSpeed")
  1973.     (dest "HISPEED:")
  1974.     (all)
  1975.     (infos)
  1976. )
  1977.  
  1978. (copyfiles (source "data/tools/HiSpeed.info") (infos) (dest drive))
  1979.  
  1980. ; create HiSpeed ARexx macro icons
  1981.  
  1982. (if (= icons 0)
  1983.  
  1984.     (run "MOVEICONS QUIET DIR=hispeed:arexx ICON=data/icons/script/medres DX=100 DY=35 COLUMNS=5")
  1985.     (run "MOVEICONS QUIET DIR=hispeed:arexx ICON=data/icons/script/hires  DX=100 DY=40 COLUMNS=5")
  1986. )
  1987.  
  1988. (complete 85)
  1989.  
  1990. (if (= update 0) (
  1991.  
  1992.     ((startup
  1993.  
  1994.         "HISPEED"
  1995.  
  1996.         (prompt #hs_assign)
  1997.         (help   #hs_assign_help)
  1998.  
  1999.         (command  ("ASSIGN >NIL: HISPEED: %s " target))
  2000.     ))
  2001.  
  2002.     ; remove obsolete files
  2003.  
  2004.     (delete "envarc:hispeed.config")
  2005.     (delete "s:HiSpeed.config")
  2006.  
  2007.     (delete "data/tools/HiSpeed/Setup"     (infos))
  2008.     (delete "data/tools/HiSpeed/ARexxDoc"  (infos))
  2009.     (delete "data/tools/HiSpeed/SetupE"    (infos))
  2010.     (delete "data/tools/HiSpeed/ARexxEDoc" (infos))
  2011. ))
  2012.  
  2013. (if (exists "envarc:HiSpeed")
  2014.  
  2015.     (
  2016.         (copyfiles
  2017.  
  2018.             (source  "envarc:HiSpeed/HiSpeed.prefs")
  2019.             (newname "HiSpeed.prefs.bak")
  2020.             (dest    "envarc:HiSpeed")
  2021.         )
  2022.  
  2023.         (delete "envarc:HiSpeed/HiSpeed.prefs")
  2024.     )
  2025.  
  2026.     (makedir "envarc:HiSpeed")
  2027. )
  2028.  
  2029. (copyfiles
  2030.  
  2031.     (source "data/tools/envarc")
  2032.     (dest   "envarc:")
  2033.     (infos)
  2034.     (all)
  2035. )
  2036.  
  2037. (delete "envarc:.info")
  2038.  
  2039. ; install keyfile ?
  2040.  
  2041. (if (exists "envarc:golded/keyfile")
  2042.  
  2043.     (copyfiles
  2044.  
  2045.         (source "envarc:golded/keyfile")
  2046.         (dest   "envarc:hispeed")
  2047.     )
  2048. )
  2049.  
  2050. (if (<> (expandpath "env:") (expandpath "envarc:"))
  2051.  
  2052.     (
  2053.         (copyfiles
  2054.  
  2055.             (source "envarc:HiSpeed")
  2056.             (dest   "env:HiSpeed")
  2057.             (all)
  2058.             (infos)
  2059.         )
  2060.  
  2061.         (delete "envarc:.info")
  2062.     )
  2063. )
  2064.  
  2065. (complete 90)
  2066.  
  2067. (copyfiles
  2068.  
  2069.     (source "data/tools")
  2070.     (dest "GoldED:Tools")
  2071.     (pattern "(ED|PRJ|REC|GUI|GED|API|CAT)#?")
  2072.     (infos)
  2073. )
  2074.  
  2075. ; delete obsolete files
  2076.  
  2077. (run "delete GoldED:Tools/GEDDock#? all quiet")
  2078.  
  2079. (makeassign "GUIMake" "GoldED:tools/guimake")
  2080.  
  2081. (copyfiles
  2082.  
  2083.     (source "data/tools/GUIMake/s/GUIMake.pref")
  2084.     (dest "s:")
  2085. )
  2086.  
  2087. ; tools: install med-res icons ?
  2088.  
  2089. (if (= icons 0) (
  2090.  
  2091.     (copyfiles
  2092.  
  2093.       (source "data/icons/tools")
  2094.       (dest "GoldED:Tools")
  2095.       (all)
  2096.       (infos)
  2097.     )
  2098. ))
  2099.  
  2100. ; snapshot drawer icons
  2101.  
  2102. (run "MOVEICONS DIR=golded:tools GRID DX=100 DY=30 COLUMNS=3")
  2103.  
  2104. (complete 95)
  2105.  
  2106. (if (not (= update 2)) (message #complete))
  2107.  
  2108. (complete 100)
  2109.