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