home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Ascii-Ansi / LSD-G461.LHA / ged461 / Install < prev    next >
Encoding:
Text File  |  1997-03-28  |  77.2 KB  |  2,233 lines
  1.  
  2. ; $VER: GoldED Install 4, Copyright ©1997 Dietmar Eilert
  3.  
  4. (delopts "oknodelete" "force" "askuser")
  5.  
  6. ; ------------------------------- Set run mode ---------------------------------
  7.  
  8. ; disable script debug mode
  9.  
  10. (set golded_install_debug 0)
  11.  
  12. ; ------------------------------ English strings -------------------------------
  13.  
  14. (if (not (= @language "deutsch"))
  15.  
  16.     (
  17.         (set #golded_introduction (cat "\n"
  18.  
  19.             "                                                  \n"
  20.             " GoldED 4 · Programmer's Editor                   \n"
  21.             "                                                  \n"
  22.             " GoldED is not freely distributable.              \n"
  23.             " Distribution on CD-ROM not permitted.            \n"
  24.             " A GoldED distribution licence can be             \n"
  25.             " purchased from the copyright owner(s).           \n"
  26.             " Please read the licence file before              \n"
  27.             " you install the software.                        \n"
  28.             "                                                  \n"
  29.             " ©1997 Dietmar Eilert · All Rights Reserved.      \n"
  30.         ))
  31.  
  32.         (set #golded_badkick "\n Sorry, this package requires OS v2.04 or better.\n")
  33.  
  34.         (set #golded_oemerr (cat "\n"
  35.  
  36.             " This update should not be installed over the un- \n"
  37.             " registered OEM version you are using. Return     \n"
  38.             " the registration card and install your personal  \n"
  39.             " keyfile before you proceed.                      \n"
  40.             "                                                  \n"
  41.             " You may continue installation at this point      \n"
  42.             " without registration. However, the update will   \n"
  43.             " then install as restricted trial version only.   \n"
  44.         ))
  45.  
  46.         (set #golded_warn_userstartup "\nWARNING: S:USER-STARTUP MISSING")
  47.  
  48.         (set #golded_error (cat
  49.  
  50.             " Some error has occurred. Please inform a GoldED  \n"
  51.             " support site (e.g. dietmar@tomate.tng.oche.de)   \n"
  52.             " AFTER having tried a different Installer release:\n"
  53.             " 1.24 is known to work fine.                      \n"
  54.             "                                                  \n"
  55.             " The following information is required: error code\n"
  56.             " (above), last error message, the percentage done \n"
  57.             " (window title) and your log file. If available:  \n"
  58.             " a SnoopDos report. Thank you !                   \n"
  59.         ))
  60.  
  61.         (set #golded_assign_found "\nGOLDED installation detected ...\n")
  62.  
  63.         (set #golded_assign_found_help (cat "\n"
  64.  
  65.             " INSTALL NEW:                                     \n"
  66.             "                                                  \n"
  67.             " Install to a directory of your choice. Old GoldED\n"
  68.             " installations are NOT removed if you install to a\n"
  69.             " new directory. Your old files are overwritten if \n"
  70.             " you install over an existing GoldED installation \n"
  71.             " (backups are made if requested).                 \n"
  72.             "                                                  \n"
  73.             " UPDATE EXISTING GOLDED:                          \n"
  74.             "                                                  \n"
  75.             " You won't be asked for directories: Directories  \n"
  76.             " of your previous installation are used. Existing \n"
  77.             " files are overwritten (backups are made if       \n"
  78.             " requested).                                      \n"
  79.             "                                                  \n"
  80.             " REMOVE GOLDED:                                   \n"
  81.             "                                                  \n"
  82.             " All files and drawers created by a former GoldED \n"
  83.             " installation are removed. Your own files are     \n"
  84.             " removed, too, if placed in one of GoldED's       \n"
  85.             " drawers.                                         \n"
  86.         ))
  87.  
  88.         (set #golded_new         "Install new")
  89.         (set #golded_update      "Update existing GoldED")
  90.         (set #golded_remove      "Remove GoldED from your system")
  91.  
  92.         (set #golded_ask_amount "\nPlease choose installation mode:\n")
  93.  
  94.         (set #golded_ask_amount_help (cat "\n"
  95.  
  96.             " Affects the amount of data written to your disk. \n"
  97.             " Please note that a minimum installation over an  \n"
  98.             " existing full installation will convert the full \n"
  99.             " installation to the minimum installation (backups\n"
  100.             " of existing files are created if requested).     \n"
  101.         ))
  102.  
  103.         (set #golded_ask_amount_standard "Complete installation (2.4 MB)")
  104.         (set #golded_ask_amount_user     "User defined installation")
  105.         (set #golded_ask_amount_minimum  "Minimum installation (575 K)")
  106.  
  107.         (set #golded_remove_ged  "\nRemove GoldED assign ?\n")
  108.         (set #golded_remove_hs   "\nRemove HiSpeed assign ?\n")
  109.         (set #golded_remove_ed   "\nRemove quickstarter access ?\n")
  110.         (set #golded_remove_gmk  "\nRemove GUIMake assign ?\n")
  111.  
  112.         (set #golded_must_remove "You should have this assign/reference removed !")
  113.  
  114.         (set #golded_removed "; (removed)")
  115.  
  116.         (set #golded_lharc     "\nExtracting data (can take a few minutes)")
  117.         (set #golded_lharcfail "\nCouldn't extract files - check free disk space")
  118.  
  119.         (set #golded_installing_files "\nInstalling files ...")
  120.         (set #golded_prepare_install  "\nPreparing installation ...")
  121.  
  122.         (set #golded_backup_mode "\nChoose a backup strategy for your old GoldED installation.\n")
  123.  
  124.         (set #golded_backup_mode_help (cat "\n"
  125.  
  126.             " Determines how old files are handled before they \n"
  127.             " are overwritten by new files or before they are  \n"
  128.             " deleted (if considered obsolete).                \n"
  129.         ))
  130.  
  131.         (set #golded_backup_mode_none     "No backups")
  132.         (set #golded_backup_mode_selected "Backup presets & macros")
  133.         (set #golded_backup_mode_all      "Backup all files")
  134.  
  135.         (set #golded_pref_icons "\nSelect preferred icon style (WB icons):\n")
  136.  
  137.         (set #golded_medres " med-res icons (pixel ratio 1:2)")
  138.         (set #golded_hires  " hi-res  icons (pixel ratio 1:1)")
  139.  
  140.         (set #golded_pref_icons_help (cat "\n"
  141.  
  142.             " Select med-res if the pixel ratio of your        \n"
  143.             " preferred screen resolution is approx. 1:2       \n"
  144.             " (e.g.640*200).                                   \n"
  145.             "                                                  \n"
  146.             " Select HiRes if the pixel ratio of your preferred\n"
  147.             " screen resolution is approx. 1:1 (eg. 640*400).  \n"
  148.         ))
  149.  
  150.         (set #golded_images_style "\nHow many colors should GoldED use to render images ?\n")
  151.  
  152.         (set #golded_images_4 "4  colors")
  153.         (set #golded_images_8 "8+ colors")
  154.  
  155.         (set #golded_images_help (cat "\n"
  156.  
  157.             " Both styles can be used on all screens. The 4\n"
  158.             " color style has been optimized for 4-color   \n"
  159.             " screens. The 8+ style has been optimized for \n"
  160.             " screens with eight or more colors.           \n"
  161.         ))
  162.  
  163.         (set #golded_where (cat
  164.  
  165.             "Select a path for the installation. The drawer    \n"
  166.             "'GoldED' is created in the directory you select:  \n"
  167.         ))
  168.  
  169.         (set #golded_where_help (cat "\n"
  170.  
  171.             " Simply select a directory (a root directory is   \n"
  172.             " fine, too). The directory 'GoldED' is created in \n"
  173.             " the path you specify.                            \n"
  174.             "                                                  \n"
  175.             " The GoldED directory is used to store GoldED and \n"
  176.             " several support files/tools.                     \n"
  177.         ))
  178.  
  179.         (set #golded_bad_path "Sorry, can't install to RAM disk")
  180.  
  181.         (set #golded_drive_space (cat "\n"
  182.  
  183.             " This installation requires at least 5 MB free    \n"
  184.             " disk space. Please make this space available     \n"
  185.             " and start again.                                 \n"
  186.         ))
  187.  
  188.         (set #golded_gold_lib "Installation of golded.library ...")
  189.  
  190.         (set #golded_gold_lib_help (cat "\n"
  191.  
  192.             "This library is required by the demo version only.\n"
  193.             "Registered users receive a keyfile instead.       \n"
  194.         ))
  195.  
  196.         (set #golded_select_optional (cat "\n"
  197.  
  198.             "Choose the GoldED components you would like to    \n"
  199.             "have installed. Installed components are removed  \n"
  200.             "if unchecked.                                     \n"
  201.         ))
  202.  
  203.         (set #golded_select_optional_help (cat "\n"
  204.  
  205.             " You shouldn't disable any of these components:   \n"
  206.             "                                                  \n"
  207.             " SYNTAX PARSERS (88 K)                            \n"
  208.             "                                                  \n"
  209.             " A selection of syntax parsers (responsible for   \n"
  210.             " color-coded text: e-mail, source codes, ...)     \n"
  211.             "                                                  \n"
  212.             " HISPEED (325 K)                                  \n"
  213.             "                                                  \n"
  214.             " Printing utility for Laser printers, DeskJet     \n"
  215.             " printers and other PCL printers.                 \n"
  216.             "                                                  \n"
  217.             " You may disable any of these components without  \n"
  218.             " affecting the performance of GoldED:             \n"
  219.             "                                                  \n"
  220.             " APPICON STARTER (6 K)                            \n"
  221.             "                                                  \n"
  222.             " Adds a drag & drop icon to your workbench. Files \n"
  223.             " dropped over the icon are sent to GoldED.        \n"
  224.             "                                                  \n"
  225.             " RECOVER TOOL (6 K)                               \n"
  226.             "                                                  \n"
  227.             " Helps you to restore a text lost during a system \n"
  228.             " crash.                                           \n"
  229.             "                                                  \n"
  230.             " ORDER TOOL (22 K)                                \n"
  231.             "                                                  \n"
  232.             " Program to print the GoldED order form.          \n"
  233.             "                                                  \n"
  234.             " API CLIENTS (21 K)                               \n"
  235.             "                                                  \n"
  236.             " Applets for GoldED (examples)                    \n"
  237.             "                                                  \n"
  238.             " DEVELOPER/SOURCECODES (540 K)                    \n"
  239.             "                                                  \n"
  240.             " Developer material (sourcecodes, syntax scanner  \n"
  241.             " examples, QuickStarter, ...).                    \n"
  242.             "                                                  \n"
  243.             " MANUAL (290 - 350 K)                             \n"
  244.             "                                                  \n"
  245.             " GoldED manual (several languages). AmigaGuide    \n"
  246.             " format. Menu help is not available if you don't  \n"
  247.             " install a manual written in the same language    \n"
  248.             " you choose for GoldED's menu.                    \n"
  249.             "                                                  \n"
  250.             " QUICKSTARTER (5 K)                               \n"
  251.             "                                                  \n"
  252.             " GoldED frontend: GoldED activator. Can start the \n"
  253.             " editor quickly, detach it from a shell window,   \n"
  254.             " etc.                                             \n"
  255.             "                                                  \n"
  256.             " UNLOCK (1 K)                                     \n"
  257.             "                                                  \n"
  258.             " Utility to unlock GoldED's user interface if a   \n"
  259.             " faulty macro quits without unlocking GoldED.     \n"
  260.  
  261.         ))
  262.  
  263.         (set #golded_select_presets       "Presets"         )
  264.         (set #golded_select_parsers       "Syntax parsers"  )
  265.         (set #golded_select_hispeed       "HiSpeed"         )
  266.         (set #golded_select_appicon       "AppIcon starter" )
  267.         (set #golded_select_recover       "Recover utility" )
  268.         (set #golded_select_order         "Order program"   )
  269.         (set #golded_select_api           "API clients"     )
  270.         (set #golded_select_sources       "Sourcecodes"     )
  271.         (set #golded_select_manual_e      "Manual (English)")
  272.         (set #golded_select_manual_d      "Manual (German)" )
  273.         (set #golded_select_quickstarter  "QickStarter"     )
  274.         (set #golded_select_unlock        "UnLock utility"  )
  275.  
  276.         (set #golded_update_keyfile (cat "\n"
  277.  
  278.             "You already own a GoldED keyfile. Overwrite your  \n"
  279.             "old keyfile with the new one ?                    \n"
  280.         ))
  281.  
  282.         (set #golded_update_keyfile_help (cat "\n"
  283.  
  284.             " DON'T let this install script overwrite your     \n"
  285.             " old keyfile unless you know what you do. One     \n"
  286.             " valid reason would be that you have purchased    \n"
  287.             " GoldED and know want to have a pirated keyfile   \n"
  288.             " removed.                                         \n"
  289.         ))
  290.  
  291.         (set #golded_update_keyfile_overwrite "Overwrite old keyfile")
  292.         (set #golded_update_keyfile_keep "Keep old keyfile")
  293.  
  294.         (set #golded_updating_icons "\nUpdating icons ...")
  295.  
  296.         (set #golded_what_manuals "\nWhat manuals do you want to have installed ?\n")
  297.  
  298.         (set #golded_what_manuals_help (cat "\n"
  299.  
  300.             " Each manual (ie. AmigaGuide file) consumes about \n"
  301.             " 300K disk space.                                 \n"
  302.         ))
  303.  
  304.         (set #golded_add_ged_assign "Add GoldED assign to user-startup ?\n")
  305.  
  306.         (set #golded_add_ged_assign_help (cat "\n"
  307.  
  308.             " GoldED needs this assign to find its files       \n"
  309.             " (libraries, presets, macros).                    \n"
  310.         ))
  311.  
  312.         (set #golded_quickname "\nChoose a name for the QuickStarter:\n")
  313.  
  314.         (set #golded_quickname_help (cat "\n"
  315.  
  316.             " The QuickStarter is a small (5 KB) GoldED front- \n"
  317.             " end. You can use it as if it were a real editor. \n"
  318.             " For example you can type 'ed letter' to edit     \n"
  319.             " the file 'letter' if the QuickStarter is named   \n"
  320.             " 'ed'. The big advantage of a QuickStarter is its \n"
  321.             " ability to pass a new job to a runnning instance \n"
  322.             " of GoldED. Additionally, it helps you to start   \n"
  323.             " GoldED from any directory or to detach GoldED    \n"
  324.             " from a shell without having to use the RUN       \n"
  325.             " command.                                         \n"
  326.             "                                                  \n"
  327.             " The default name is 'ED'. Feel free to choose any\n"
  328.             " name you like. Personally, I prefer to use 'ED'  \n"
  329.             " (replacing the original ED).                     \n"
  330.         ))
  331.  
  332.         (set #golded_place_quick (cat "\n"
  333.  
  334.             " Select a directory for the QuickStarter (you     \n"
  335.             " should select a valid command directory):        \n"
  336.         ))
  337.  
  338.         (set #golded_place_quick_help (cat "\n"
  339.  
  340.             " You should select one of these directories if you\n"
  341.             " want to run the editor simply by typing its name,\n"
  342.             " no matter what your current path is:             \n"
  343.             "                                                  \n"
  344.             " SYS:C, SYS:TOOLS, SYS:UTILITIES or SYS:SYSTEM    \n"
  345.             "                                                  \n"
  346.             " If you choose ED as default name, you must either\n"
  347.             " place the quick starter into c: or delete the old\n"
  348.             " ED from c: to prevent unpredictable behaviour.   \n"
  349.         ))
  350.  
  351.         (set #golded_quick_resident "\n Make QuickStarter resident ?\n")
  352.  
  353.         (set #golded_quick_resident_help (cat "\n"
  354.  
  355.             " I would suggest to make the QuickStarter (5 KB)  \n"
  356.             " resident - it will work faster.                  \n"
  357.         ))
  358.  
  359.         (set #golded_saving_files "\nCreating backups (golded:obsolete)")
  360.  
  361.         (set #golded_what_menu "\n Choose menu language:\n")
  362.  
  363.         (set #golded_what_menu_help (cat "\n"
  364.  
  365.             " GoldED is localized and uses the locale library  \n"
  366.             " of OS 3 to display requester text in the language\n"
  367.             " choosen by the user. Menus are not part of the   \n"
  368.             " editor and not localized. However, the user may  \n"
  369.             " choose from different menu translations shipped  \n"
  370.             " with GoldED.                                     \n"
  371.         ))
  372.  
  373.         (set #golded_what_contextmenu "\n Choose context menu language:\n")
  374.  
  375.         (set #golded_screen "\n Choose default screen resolution \n")
  376.  
  377.         (set #golded_screen_help (cat "\n"
  378.  
  379.             " Decide for a default screen mode to be used when \n"
  380.             " the editor is started for the first time. We     \n"
  381.             " suggest to use a custom screen to make GoldED run\n"
  382.             " faster and look better.                          \n"
  383.         ))
  384.  
  385.         (set #golded_screen_wb     "Workbench screen")
  386.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  387.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  388.  
  389.         (set #golded_look_feel "\nLook & feel\n")
  390.  
  391.         (set #golded_look_feel_help (cat "\n"
  392.  
  393.             " Suggestion: use a two-colors mode if your Amiga  \n"
  394.             " is slow (68000), a four colors mode for 68020 and\n"
  395.             " 68030 models (e.g. A1200) and more colors if you \n"
  396.             " own a fast Amiga (68040/68060).                  \n"
  397.         ))
  398.  
  399.         (set #golded_mode_blue     "Blue     (2  colors)")
  400.         (set #golded_mode_stone    "Modern   (4  colors)")
  401.         (set #golded_mode_desktop  "Desktop  (8  colors)")
  402.         (set #golded_mode_designer "Designer (16 colors)")
  403.  
  404.         (set #golded_what_proglang "\n Select preferred programming language:\n")
  405.  
  406.         (set #golded_what_proglang_other "other")
  407.         (set #golded_what_proglang_none  "none" )
  408.  
  409.         (set #golded_what_proglang_help (cat "\n"
  410.  
  411.             " This setting affects installation of additional  \n"
  412.             " language-related features (e.g. syntax parsers). \n"
  413.             " All files are installed but only support for the \n"
  414.             " language you choose know is made part of your    \n"
  415.             " default configuration.                           \n"
  416.         ))
  417.  
  418.         (set #golded_install_reqtools "Install Reqtools library ?")
  419.  
  420.         (set #golded_install_reqtools_help (cat "\n"
  421.  
  422.             " Reqtools ©1991-1996 Nico François. GoldED will   \n"
  423.             " not start if the Reqtools requester library is   \n"
  424.             " missing.                                         \n"
  425.         ))
  426.  
  427.         (set #golded_install_presets "Installation of presets...")
  428.  
  429.         (set #golded_hs_assign "\n Add HiSpeed assign to user-startup ?\n")
  430.  
  431.         (set #golded_hs_assign_help (cat "\n"
  432.  
  433.             " A HISPEED: assign is required if you want to run \n"
  434.             " HiSpeed without having to worry about the current\n"
  435.             " path (GoldED won't find HiSpeed if the assign is \n"
  436.             " missing). HiSpeed is a PCL printing program for  \n"
  437.             " Laser/DeskJet printers.                          \n"
  438.         ))
  439.  
  440.         (set #golded_removing_temp_files "\nRemoving temporary files ...")
  441.  
  442.         (set #golded_complete "\nInstallation complete.")
  443.  
  444.         (set #install_presets "\nInstall standard presets ?\n")
  445.  
  446.         (set #install_presets_menu     "Menu"    )
  447.         (set #install_presets_display  "Display" )
  448.         (set #install_presets_keyboard "Keyboard")
  449.         (set #install_presets_toolbar  "Toolbar" )
  450.         (set #install_presets_mouse    "Mouse"   )
  451.         (set #install_presets_all      "All"     )
  452.  
  453.         (set #install_presets_help (cat "\n"
  454.  
  455.             " Standard configurations for menus, keyboard, etc.\n"
  456.             " are shipped with GoldED. These configurations are\n"
  457.             " not required if you update your existing GoldED  \n"
  458.             " installation - you may continue using your old   \n"
  459.             " configuration. However, you will not benefit from\n"
  460.             " updated material (e.g new menu translations) if  \n"
  461.             " you skip installation of standard presets.       \n"
  462.             "                                                  \n"
  463.             " We suggest that you do not name your own presets \n"
  464.             " standard.* so that standard presets can be       \n"
  465.             " reinstalled safely every time you update GoldED. \n"
  466.         ))
  467.     )
  468. )
  469.  
  470. ; -------------------------------- German strings ------------------------------
  471.  
  472. (if (= @language "deutsch")
  473.  
  474.     (
  475.         (set #golded_introduction (cat "\n"
  476.  
  477.             "                                                  \n"
  478.             " GoldED 4 · Programmer's Editor                   \n"
  479.             "                                                  \n"
  480.             " GoldED ist nicht frei vertreibbar.               \n"
  481.             " Der Vertrieb auf CD-ROM ist untersagt.           \n"
  482.             " Eine Vertriebslizenz kann bei den                \n"
  483.             " Copyright-Inhabern erworben werden.              \n"
  484.             " Bitte lesen Sie die Lizenz-Datei,                \n"
  485.             " bevor Sie diese Software installieren.           \n"
  486.             "                                                  \n"
  487.             " ©1997 Dietmar Eilert · Alle Rechte vorbehalten.  \n"
  488.         ))
  489.  
  490.         (set #golded_badkick "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
  491.  
  492.         (set #golded_oemerr (cat "\n"
  493.  
  494.             " Dieses Update sollte nicht über die von Ihnen    \n"
  495.             " verwendete unregistrierte OEM-Version installiert\n"
  496.             " werden. Schicken Sie bitte Ihre Registrierkarte  \n"
  497.             " an unseren Support und installieren Sie ein      \n"
  498.             " persönliche Keyfile, bevor Sie fortfahren.       \n"
  499.             "                                                  \n"
  500.             " Sie können mit der Installation an dieser Stelle \n"
  501.             " auch ohne Registrierung fortfahren, das Update   \n"
  502.             " wird dann aber nur als eingeschränkte Prüfversion\n"
  503.             " installiert.                                     \n"
  504.         ))
  505.  
  506.         (set #golded_warn_userstartup "\nWARNUNG: S:USER-STARTUP NICHT GEFUNDEN")
  507.  
  508.         (set #golded_error (cat
  509.  
  510.             " Ein Fehler ist aufgetreten. Bitte informieren Sie\n"
  511.             " den Support (dietmar@tomate.tng.oche.de) NACHDEM \n"
  512.             " Sie die Intallation mit einer anderen Installer- \n"
  513.             " Version (Empfehlung: 1.24) wiederholt haben.     \n"
  514.             "                                                  \n"
  515.             " Die folgende Information wird benötigt: Fehler-  \n"
  516.             " Code (s.o.), Fehler-Text, abgearbeiteter Prozent-\n"
  517.             " satz (s. Fenstertitel) und die Log-Datei. Falls  \n"
  518.             " vorhanden: ein SnoopDos-Report. Danke !          \n"
  519.         ))
  520.  
  521.         (set #golded_assign_found "\nGoldED-Installation entdeckt ...\n")
  522.  
  523.         (set #golded_assign_found_help (cat "\n"
  524.  
  525.             " NEU INSTALLIEREN                                 \n"
  526.             "                                                  \n"
  527.             " Installiert GoldED in ein Verzeichnis Ihrer Wahl.\n"
  528.             " Eine vorhandene GoldED-Installation wird NICHT   \n"
  529.             " entfernt, wenn Sie in ein anderes Verzeichnis in-\n"
  530.             " stallieren. Bei Installation in ein vorhandenes  \n"
  531.             " GoldED-Verzeichnis werden vorhandene Dateien     \n"
  532.             " dagegen überschrieben (Backups werden wunschweise\n"
  533.             " angelegt).                                       \n"
  534.             "                                                  \n"
  535.             " UPDATE                                           \n"
  536.             "                                                  \n"
  537.             " Installiert GoldED in das vorhandene GoldED-Ver- \n"
  538.             " zeichnis. Dort vorhandene Dateien werden über-   \n"
  539.             " schrieben (Backups werden wunschweise angelegt). \n"
  540.             "                                                  \n"
  541.             " GOLDED ENTFERNEN                                 \n"
  542.             "                                                  \n"
  543.             " Alle Dateien und Ordner, die für GoldED angelegt \n"
  544.             " wurden, werden entfernt. Ihre eigenen Dateien    \n"
  545.             " werden ebenfalls gelöscht, wenn sie sich in einem\n"
  546.             " dieser Ordner befinden.                          \n"
  547.         ))
  548.  
  549.         (set #golded_new    "Neu installieren")
  550.         (set #golded_update "Update (über bisherige Version installieren)")
  551.         (set #golded_remove "Deinstallation (GoldED entfernen)")
  552.  
  553.         (set #golded_ask_amount "\nBitte wählen Sie die gewünschte Installation:\n")
  554.  
  555.             " Affects the amount of data  written to your disk.\n"
  556.             " Please note that a minimum installation over an  \n"
  557.             " existing full installation will convert the full \n"
  558.             " installation to the minimum installation (backups\n"
  559.             " of existing files are created if requested).     \n"
  560.  
  561.         (set #golded_ask_amount_help (cat "\n"
  562.  
  563.             " Diese Auswahl bestimmt die Anzahl der Dateien,   \n"
  564.             " die installiert werden. Beachten Sie bitte, daß  \n"
  565.             " eine minimale Installation über eine vorhandene  \n"
  566.             " Installation die vorhandene Installation in die  \n"
  567.             " Minimal-Installation umwandelt (ein Backup der   \n"
  568.             " alten Installation wird wunschweise angelegt).   \n"
  569.         ))
  570.  
  571.         (set #golded_ask_amount_standard "Komplette Installation (2.4 MB)")
  572.         (set #golded_ask_amount_user     "Benutzerdefiniert")
  573.         (set #golded_ask_amount_minimum  "Minimalinstallation (575 K)")
  574.  
  575.         (set #golded_remove_ged  "\nGoldED-Assign entfernen ?\n")
  576.         (set #golded_remove_hs   "\nHiSpeed-Assign entfernen ?\n")
  577.         (set #golded_remove_ed   "\nQuickstarter-Referenz entfernen ?\n")
  578.         (set #golded_remove_gmk  "\nGUIMake-Assign entfernen ?\n")
  579.  
  580.         (set #golded_must_remove "Sie sollten den Assign/die Referenz entfernen lassen !")
  581.  
  582.         (set #golded_removed "; (entfernt)")
  583.  
  584.         (set #golded_lharc     "\nEntpacken der Daten (kann einige Minuten dauern)")
  585.         (set #golded_lharcfail "\nEntpacken der Daten abgebrochen - Speicherplatz überprüfen")
  586.  
  587.         (set #golded_installing_files "\nInstallieren der Dateien ...")
  588.         (set #golded_prepare_install  "\nVorbereiten der Installation ...")
  589.  
  590.         (set #golded_backup_mode "\nWählen Sie eine Backup-Strategie für Ihre alte GoldED-Installation:\n")
  591.  
  592.         (set #golded_backup_mode_help (cat "\n"
  593.  
  594.             " Hier können Sie bestimmen, wie alte Dateien be-  \n"
  595.             " handelt werden, bevor sie durch neuere Versionen \n"
  596.             " überschrieben oder (falls als obsolet eingestuft)\n"
  597.             " gelöscht werden.                                 \n"
  598.         ))
  599.  
  600.         (set #golded_backup_mode_none      "Keine Backups")
  601.         (set #golded_backup_mode_selected  "Konfiguration & Makros sichern")
  602.         (set #golded_backup_mode_all       "Backup aller Dateien")
  603.  
  604.         (set #golded_pref_icons "\nBevorzugten Icon-Typ wählen:\n")
  605.  
  606.         (set #golded_medres " mittlere Auflösung (Seitenverhältnis 1:2)")
  607.         (set #golded_hires  " hohe Auflösung     (Seitenverhältnis 1:1)")
  608.  
  609.         (set #golded_pref_icons_help (cat "\n"
  610.  
  611.             " Wählen Sie die mittlere Auflösung, wenn für Ihre \n"
  612.             " Workbench ein Modus wie 640*200 eingestellt ist. \n"
  613.             "                                                  \n"
  614.             " Die hohe Auflösung sollte bei einem Höhen-/      \n"
  615.             " Breitenverhältnis von etwa 1:1 verwendet werden  \n"
  616.             " (640*512 oder 800*600).                          \n"
  617.         ))
  618.  
  619.         (set #golded_images_style "\nMit wie vielen Farben sollen die Symbole in GoldED dargestellt werden ?\n")
  620.  
  621.         (set #golded_images_4 "4  Farben")
  622.         (set #golded_images_8 "8+ Farben")
  623.  
  624.         (set #golded_images_help (cat "\n"
  625.  
  626.             " Beide Varianten können auf beliebigen Screens    \n"
  627.             " verwendet werden. Der 4-Farb-Stil wurde für vier-\n"
  628.             " farbige Screen optimiert. Der 8-Farb-Stil wurde  \n"
  629.             " für Screens mit acht oder mehr Farben (optimal:  \n"
  630.             " 16 Farben) ausgelegt.                            \n"
  631.         ))
  632.  
  633.         (set #golded_where (cat
  634.  
  635.             "Wo soll installiert werden ? In dem angegebenen   \n"
  636.             "Verzeichnis wird der Ordner 'GoldED' erzeugt:     \n"
  637.         ))
  638.  
  639.         (set #golded_where_help (cat "\n"
  640.  
  641.             " Wählen Sie ein beliebiges Verzeichnis. Hauptver- \n"
  642.             " zeichnisse wie DH0: können auch benutzt werden.  \n"
  643.             " In dem angegebenen Pfad wird ein Ordner 'GoldED' \n"
  644.             " samt Icon erzeugt werden.                        \n"
  645.             "                                                  \n"
  646.             " Das GoldED-Verzeichnis wird neben dem Editor auch\n"
  647.             " diverse begleitende Dateien aufnehmen.           \n"
  648.         ))
  649.  
  650.         (set #golded_bad_path "Sorry, Installation in RAM-Disk nicht möglich")
  651.  
  652.         (set #golded_drive_space (cat "\n"
  653.  
  654.             " Diese Installation benötigt mindestens fünf MB   \n"
  655.             " freien Platz auf dem Zieldatenträger. Bitte      \n"
  656.             " machen Sie diesen Platz verfügbar und starten Sie\n"
  657.             " die Installation dann neu.                       \n"
  658.         ))
  659.  
  660.         (set #golded_gold_lib "Installation der GoldED-Library ...")
  661.  
  662.         (set #golded_gold_lib_help (cat "\n"
  663.  
  664.             "Diese Library wird nur für die unregistrierte     \n"
  665.             "Version benötigt. Registrierte Benutzer erhalten  \n"
  666.             "ersatzweise ein Keyfile.                          \n"
  667.         ))
  668.  
  669.         (set #golded_select_optional (cat "\n"
  670.  
  671.             "Bitte wählen Sie, welche der folgenden GoldED-    \n"
  672.             "Komponenten installiert werden sollen (schon in-  \n"
  673.             "stallierte Komponenten werden ggf. entfernt):     \n"
  674.         ))
  675.  
  676.         (set #golded_select_optional_help (cat "\n"
  677.  
  678.             " Sie sollten keine der folgenden Komponenten de-  \n"
  679.             " aktivieren:                                      \n"
  680.             "                                                  \n"
  681.             " SYNTAX-PARSER (88 K)                             \n"
  682.             "                                                  \n"
  683.             " Diverse Syntax-Parser (verantwortlich für die    \n"
  684.             " farbkodierte Textdarstellung: Sourcecodes, HTML, \n"
  685.             " E-Mail, ...)                                     \n"
  686.             "                                                  \n"
  687.             " HISPEED (325 K)                                  \n"
  688.             "                                                  \n"
  689.             " Drucker-Utility für Laserdrucker, DeskJets und   \n"
  690.             " andere PCL-Drucker.                              \n"
  691.             "                                                  \n"
  692.             " Sie können jede der folgenden Komponenten ohne   \n"
  693.             " Auswirkungen auf GoldED entfernen lassen:        \n"
  694.             "                                                  \n"
  695.             " AppIcon-STARTER (6 K)                            \n"
  696.             "                                                  \n"
  697.             " Erzeugt ein Drag & Drop-Icon auf der Workbench:  \n"
  698.             " GoldED öffnet Texte, die auf dieses Icon gezogen \n"
  699.             " werden.                                          \n"
  700.             "                                                  \n"
  701.             " RECOVER (6 K)                                    \n"
  702.             "                                                  \n"
  703.             " Kann nach einem Systemabsturz den zuletzt be-    \n"
  704.             " arbeiteten Text rekonstruieren.                  \n"
  705.             "                                                  \n"
  706.             " BESTELLPROGRAMM (22 K)                           \n"
  707.             "                                                  \n"
  708.             " Druckt Bestellformular für GoldED.               \n"
  709.             "                                                  \n"
  710.             " API CLIENTS (21 K)                               \n"
  711.             "                                                  \n"
  712.             " API-Erweiterungen (Beispiele)                    \n"
  713.             "                                                  \n"
  714.             " DEVELOPER-MATERIAL/SOURCECODES (540 K)           \n"
  715.             "                                                  \n"
  716.             " Beispiel-Sourcecodes (Syntax-Scanner, Quick-     \n"
  717.             " Starter, ...).                                   \n"
  718.             "                                                  \n"
  719.             " ANLEITUNG (290 - 350 K)                          \n"
  720.             "                                                  \n"
  721.             " Anleitung (diverse Sprachen). AmigaGuide-Format. \n"
  722.             " Hilfe zu den Menupunkten ist nur verfügbar, wenn \n"
  723.             " eine Anleitung installiert wird, die der für     \n"
  724.             " GoldED ausgewählten Sprache entspricht.          \n"
  725.             "                                                  \n"
  726.             " QUICKSTARTER (5 K)                               \n"
  727.             "                                                  \n"
  728.             " Schnelles GoldED-Frontend: GoldED-Aktivator.     \n"
  729.             "                                                  \n"
  730.             " UNLOCK (1 K)                                     \n"
  731.             "                                                  \n"
  732.             " Utility, das die Benutzeroberfläche von GoldED   \n"
  733.             " freischalten kann, wenn ein fehlerhaftes ARexx-  \n"
  734.             " Makro dies versäumt.                             \n"
  735.         ))
  736.  
  737.         (set #golded_select_presets      "Konfigurationsdateien")
  738.         (set #golded_select_parsers      "Syntax-Parser"        )
  739.         (set #golded_select_hispeed      "HiSpeed"              )
  740.         (set #golded_select_appicon      "AppIcon-Starter"      )
  741.         (set #golded_select_recover      "Recover-Utility"      )
  742.         (set #golded_select_order        "Bestellprogramm"      )
  743.         (set #golded_select_api          "API-Clients"          )
  744.         (set #golded_select_sources      "Sourcecodes"          )
  745.         (set #golded_select_manual_e     "Anleitung (englisch)" )
  746.         (set #golded_select_manual_d     "Anleitung (deutsch)"  )
  747.         (set #golded_select_quickstarter "QuickStarter"         )
  748.         (set #golded_select_unlock       "UnLock-Utility"       )
  749.  
  750.         (set #golded_what_catalog "\n Welche Kataloge sollen installiert werden ?\n")
  751.  
  752.         (set #golded_what_catalog_help (cat "\n"
  753.  
  754.             " Diese Daten werden vom Betriebssystem benötigt,  \n"
  755.             " um GoldED in verschiedenen Sprachen ablaufen zu  \n"
  756.             " lassen (dazu ist mindestens OS2.1 erforderlich). \n"
  757.             "                                                  \n"
  758.             " Menus werden nicht automatisch lokalisiert, da   \n"
  759.             " sie konfigurierbar sind und nicht direkt in den  \n"
  760.             " Editor eingebaut wurden - dazuu später mehr.     \n"
  761.         ))
  762.  
  763.         (set #golded_update_keyfile (cat "\n"
  764.  
  765.             "Sie besitzen schon ein Keyfile. Soll das vor-     \n"
  766.             "handene Keyfile ersetzt werden ?                  \n"
  767.         ))
  768.  
  769.         (set #golded_update_keyfile_help (cat "\n"
  770.  
  771.             " Lassen Sie ein vorhandenes GoldED Keyfile NICHT  \n"
  772.             " ersetzen,  wenn Sie nicht genau wissen, was Sie  \n"
  773.             " tun. Sinnvolle Anwendung: Sie haben GoldED er-   \n"
  774.             " worben und möchten nun eine Raubkopie entfernen  \n"
  775.             " lassen.                                          \n"
  776.         ))
  777.  
  778.         (set #golded_update_keyfile_overwrite "Keyfile ersetzen")
  779.         (set #golded_update_keyfile_keep "Altes Keyfile beibehalten")
  780.  
  781.         (set #golded_updating_icons "\nAktualisieren der Icons ...")
  782.  
  783.         (set #golded_what_manuals "\n Welche Anleitungen sollen installiert werden ?\n")
  784.  
  785.         (set #golded_what_manuals_help (cat "\n"
  786.  
  787.             " Jede Anleitung (AmigaGuide-Datei) belegt etwa    \n"
  788.             " 300K Platz auf Ihrer Festplatte                  \n"
  789.         ))
  790.  
  791.         (set #golded_add_ged_assign "\nGoldED-Assign einrichten ?\n")
  792.  
  793.         (set #golded_add_ged_assign_help (cat "\n"
  794.  
  795.             " Der Editor benötigt diesen Assign zum Auffinden  \n"
  796.             " diverser Dateien.                                \n"
  797.         ))
  798.  
  799.         (set #golded_quickname "\nNamen für Schnellstarter wählen:\n")
  800.  
  801.         (set #golded_quickname_help (cat "\n"
  802.  
  803.             " Der Schnellstarter ist ein kleiner (5 KB) Vorsatz\n"
  804.             " für GoldED, der benutzt werden kann, als ob er   \n"
  805.             " selbst ein Editor wäre. Sie könnten so 'ed text' \n"
  806.             " eingeben, um die Datei 'text' zu bearbeiten, wenn\n"
  807.             " der Name des Quickstarters ED lautet. Der Vor-   \n"
  808.             " teil des Schnellstarters: Er kann einen schon    \n"
  809.             " laufenden Editor ansprechen und diesem die       \n"
  810.             " Aufgabe übergeben. Dies geschieht sehr schnell.  \n"
  811.             " Weiterhin erlaubt er es, GoldED von jedem be-    \n"
  812.             " liebigen Verzeichnis aus aufzurufen oder den     \n"
  813.             " Editor von der Shell abzukoppeln, ohne daß RUN   \n"
  814.             " eingegeben werden muß.                           \n"
  815.             "                                                  \n"
  816.             " Namensvorgabe ist ED; damit würde der originale  \n"
  817.             " ED Ihrer Workbench ersetzt. Es kann natürlich    \n"
  818.             " jeder beliebige andere Name benutzt werden.      \n"
  819.         ))
  820.  
  821.         (set #golded_place_quick (cat "\n"
  822.  
  823.             " Wählen Sie ein Verzeichnis für den Quickstarter. \n"
  824.             " Das gewählte Verzeichnis sollte sich im Befehls- \n"
  825.             " pfad befinden:                                   \n"
  826.         ))
  827.  
  828.         (set #golded_place_quick_help (cat "\n"
  829.  
  830.             " Sie sollten eines der folgenden Verzeichnisse be-\n"
  831.             " nutzen, um den Quickstarter durch einfache       \n"
  832.             " Namensangabe von jedem Verzeichnis aus aufrufen  \n"
  833.             " zu können:                                       \n"
  834.             "                                                  \n"
  835.             " SYS:C, SYS:TOOLS, SYS:UTILITIES oder SYS:SYSTEM  \n"
  836.             "                                                  \n"
  837.             " Haben Sie den Starter ED genannt, so sollte er   \n"
  838.             " entweder in 'C:' plaziert werden oder der dort   \n"
  839.             " vorhandene ED gelöscht werden, um eindeutige Ver-\n"
  840.             " hältnisse zu schaffen.                           \n"
  841.         ))
  842.  
  843.         (set #golded_quick_resident "\n Schnellstarter resident machen ?\n")
  844.  
  845.         (set #golded_quick_resident_help (cat "\n"
  846.  
  847.             " Der Quickstarter sollte resident gemacht werden, \n"
  848.             " da er dann noch schneller ansprechbar ist. Der   \n"
  849.             " damit verbundene Speicherverbrauch ist vernach-  \n"
  850.             " lässigbar (5 KB).                                \n"
  851.         ))
  852.  
  853.         (set #golded_saving_files "\nBackups anlegen (golded:obsolete) ...")
  854.  
  855.         (set #golded_what_menu "\n Sprache für Menu auswählen: \n")
  856.  
  857.         (set #golded_what_menu_help (cat "\n"
  858.  
  859.             " GoldED ist lokalisiert und benutzt die Locale-   \n"
  860.             " Library des Betriebssystems (OS3), um die Re-    \n"
  861.             " questertexte in der bevorzugten Sprache darzu-   \n"
  862.             " stellen. Menus sind nicht Bestandteil von GoldED \n"
  863.             " und werden deshalb auch nicht automatisch in der \n"
  864.             " Sprache angepaßt. Wählen Sie deshalb bitte jetzt \n"
  865.             " die gewünschte Übersetzung.                      \n"
  866.         ))
  867.  
  868.         (set #golded_what_contextmenu "\n Sprache für Kontext-Menu auswählen:\n")
  869.  
  870.         (set #golded_screen "\n Gewünschter Bildschirmmodus:\n")
  871.  
  872.         (set #golded_screen_help (cat "\n"
  873.  
  874.             " Einstellung des Bildschirmmodus vor dem ersten   \n"
  875.             " Programmstart. Wir raten zu einem eigenen Screen,\n"
  876.             " da GoldED dann schneller arbeitet und schöner    \n"
  877.             " aussieht (bei Rechnern mit nur 512K Chip-RAM ist \n"
  878.             " dafür aber möglicherweise zu wenig Speicher vor- \n"
  879.             " handen).                                         \n"
  880.         ))
  881.  
  882.         (set #golded_screen_wb     "Workbench-Screen")
  883.         (set #golded_screen_ntsc_i "NTSC interlaced (640*400)")
  884.         (set #golded_screen_pal_i  "PAL  interlaced (640*512)")
  885.  
  886.         (set #golded_look_feel "\nLook & Feel\n")
  887.  
  888.         (set #golded_look_feel_help (cat "\n"
  889.  
  890.             " Vorschlag: Verwenden Sie zwei Farben, wenn Ihr   \n"
  891.             " Rechner langsam ist (68000-CPU), vier Farben     \n"
  892.             " für Rechner mit 68020/68030-CPU (etwa A1200) oder\n"
  893.             " einen beliebigen Modus für schnelle Rechner mit  \n"
  894.             " 68040/68060-CPU.                                 \n"
  895.         ))
  896.  
  897.         (set #golded_mode_blue     "Blau     (2  Farben)")
  898.         (set #golded_mode_stone    "Modern   (4  Farben)")
  899.         (set #golded_mode_desktop  "Desktop  (8  Farben)")
  900.         (set #golded_mode_designer "Designer (16 Farben)")
  901.  
  902.         (set #golded_what_proglang "\n Bevorzugte Programmiersprache:\n")
  903.  
  904.         (set #golded_what_proglang_other "andere")
  905.         (set #golded_what_proglang_none  "keine")
  906.  
  907.         (set #golded_what_proglang_help (cat "\n"
  908.  
  909.             " Diese Auswahl kontrolliert die Vorinstallation   \n"
  910.             " sprachspezifischer Features (z.B. Syntax-Parser).\n"
  911.             " Prinzipiell werden alle Dateien installiert, aber\n"
  912.             " nur der Support für die hier gewählten Sprache   \n"
  913.             " wird in Ihre Grundkonfiguration aufgenommen.     \n"
  914.         ))
  915.  
  916.         (set #golded_install_reqtools "Reqtools-Library installieren ?")
  917.  
  918.         (set #golded_install_reqtools_help (cat "\n"
  919.  
  920.             " Reqtools ©1991-1996 Nico François. GoldED wird   \n"
  921.             " nicht starten, wenn die Reqtools-Library nicht   \n"
  922.             " verfügbar ist.                                   \n"
  923.         ))
  924.  
  925.         (set #golded_install_presets "Installation der Konfigurationsdateien...")
  926.  
  927.         (set #golded_hs_assign "\n HiSpeed-Assign einrichten ?\n")
  928.  
  929.         (set #golded_hs_assign_help (cat "\n"
  930.  
  931.             " Dieser Assign wird benötigt, wenn HiSpeed aus    \n"
  932.             " jedem beliebigen Verzeichnis heraus aufrufbar    \n"
  933.             " soll. Ohne diesen Assign kann HiSpeed nicht durch\n"
  934.             " GoldED gestartet werden. HiSpeed ist ein Druck-  \n"
  935.             " programm für PCL-Drucker (Laser, Deskjet).       \n"
  936.         ))
  937.  
  938.         (set #golded_removing_temp_files "\nEntfernen temporärer Dateien ...")
  939.  
  940.         (set #golded_complete (cat "\nInstallation abgeschlossen."))
  941.  
  942.         (set #install_presets "\nStandardeinstellungen installieren ?\n")
  943.  
  944.         (set #install_presets_menu     "Menu"    )
  945.         (set #install_presets_display  "Anzeige" )
  946.         (set #install_presets_keyboard "Tastatur")
  947.         (set #install_presets_toolbar  "Toolbar" )
  948.         (set #install_presets_mouse    "Maus"    )
  949.         (set #install_presets_all      "Alle"    )
  950.  
  951.         (set #install_presets_help (cat "\n"
  952.  
  953.             " Zusammen mit GoldED werden Standardeinstellungen \n"
  954.             " für Menus, Tastaturbelegung, etc. ausgeliefert.  \n"
  955.             " Eine erneute Installation dieses Materials ist   \n"
  956.             " nicht erforderlich, wenn GoldED schon einmal     \n"
  957.             " installiert wurde: Sie können die vorhandenen    \n"
  958.             " Einstellungen weiter verwenden. Allerdings ent-  \n"
  959.             " gehen Ihnen dann möglicherweise aktualisierte    \n"
  960.             " Komponenten (beispielsweise eine neue Menü-      \n"
  961.             " übersetzung).                                    \n"
  962.             "                                                  \n"
  963.             " Tip: Nennen Sie die eigenen Konfigurationen nicht\n"
  964.             " standard.*. Dann können die Standardeinstellungen\n"
  965.             " mit jedem Update neu installiert werden, ohne daß\n"
  966.             " eigenes Material davon berührt wird.             \n"
  967.         ))
  968.     )
  969. )
  970.  
  971. ; --------------------------- Prepare installation -----------------------------
  972.  
  973. (onerror (
  974.  
  975.     (if (> @ioerr 0) 
  976.  
  977.         (message (cat "\n ERROR CODE: " @ioerr "\n\n" #golded_error))
  978.     )
  979. ))
  980.  
  981. ; initialize return code
  982.  
  983. (textfile (dest "env:GOLDEDINSTALL") (append "INCOMPLETE"))
  984.  
  985. (if (not (exists "prefs:" (noreq)))
  986.  
  987.     (makeassign "prefs" "sys:prefs")
  988. )
  989.  
  990. ; sure we are running under a 2.04 ROM ?
  991.  
  992. (if (< (/ (getversion) 65536) 37)
  993.  
  994.     (
  995.         (message #golded_badkick)
  996.  
  997.         (textfile (dest "env:GOLDEDINSTALL") (append "ERROR"))
  998.  
  999.         (exit (quiet))
  1000.     )
  1001. )
  1002.  
  1003. ; -------------------------------- Constants -----------------------------------
  1004.  
  1005. (set install_mode_new          0)
  1006. (set install_mode_update       1)
  1007. (set install_mode_remove       2)
  1008.  
  1009. (set install_type_maximum      0)
  1010. (set install_type_user         1)
  1011. (set install_type_minimum      2)
  1012.  
  1013. (set image_style_4             0)
  1014. (set image_style_8             1)
  1015.  
  1016. (set backup_mode_none          0)
  1017. (set backup_mode_ask           1)
  1018.  
  1019. (set screen_workbench          0)
  1020.  
  1021. (set component_parser          1)
  1022. (set component_hispeed         2)
  1023. (set component_appicon         4)
  1024. (set component_recover         8)
  1025. (set component_order          16)
  1026. (set component_api            32)
  1027. (set component_sources        64)
  1028. (set component_manual_e      128)
  1029. (set component_manual_d      256)
  1030. (set component_quickstarter  512)
  1031. (set component_unlock       1024)
  1032.  
  1033. (set component_all (+ component_parser component_hispeed component_appicon component_recover component_order component_api component_sources component_manual_e component_manual_d component_quickstarter component_unlock))
  1034.  
  1035. (set install_presets_menu     1 )
  1036. (set install_presets_display  2 )
  1037. (set install_presets_keyboard 4 )
  1038. (set install_presets_toolbar  8 )
  1039. (set install_presets_mouse    16)
  1040. (set install_presets_all      32)
  1041.  
  1042. (set install_presets_again     0)
  1043. (set install_presets_keep      1)
  1044.  
  1045. ; ----------------------------- Welcome user -----------------------------------
  1046.  
  1047. (message #golded_introduction)
  1048.  
  1049. (welcome)
  1050.  
  1051. (if (exists "GoldED:" (noreq))
  1052.  
  1053.     (
  1054.         (set install_path (expandpath "golded:/"))
  1055.  
  1056.         (set install_mode
  1057.  
  1058.             (askchoice
  1059.  
  1060.                 (prompt #golded_assign_found)
  1061.                 (help   #golded_assign_found_help)
  1062.  
  1063.                 (default 1)
  1064.  
  1065.                 (choices
  1066.  
  1067.                     #golded_new
  1068.                     #golded_update
  1069.                     #golded_remove
  1070.                 )
  1071.             )
  1072.         )
  1073.     )
  1074.  
  1075.     ; GoldED not yet installed
  1076.  
  1077.     (set install_mode install_mode_new )
  1078. )
  1079.  
  1080. ; ---------------------------- Deinstall GoldED --------------------------------
  1081.  
  1082. (if (= install_mode install_mode_remove)
  1083.  
  1084.     (
  1085.         (run "assign >NIL: oldged: GoldED:/")
  1086.  
  1087.         ; assigns have to be removed first
  1088.  
  1089.         (run "assign >NIL: HiSpeed:  remove")
  1090.         (run "assign >NIL: GoldED:   remove")
  1091.         (run "assign >NIL: GUIMake:  remove")
  1092.  
  1093.         (run "delete >NIL: oldged:GoldED all quiet force")
  1094.         (run "delete >NIL: oldged:GoldED.info")
  1095.  
  1096.         (if (exists "locale:" (noreq))
  1097.  
  1098.             (
  1099.                 (delete "locale:catalogs/deutsch/GoldED.catalog"   )
  1100.                 (delete "locale:catalogs/français/GoldED.catalog"  )
  1101.                 (delete "locale:catalogs/italiano/GoldED.catalog"  )
  1102.                 (delete "locale:catalogs/nederlands/GoldED.catalog")
  1103.                 (delete "locale:catalogs/svenska/GoldED.catalog"   )
  1104.                 (delete "locale:catalogs/deutsch/SpellIT.catalog"  )
  1105.                 (delete "locale:catalogs/français/SpellIT.catalog" )
  1106.                 (delete "locale:catalogs/deutsch/HiSpeed.catalog"  )
  1107.                 (delete "locale:catalogs/français/HiSpeed.catalog" )
  1108.             )
  1109.         )
  1110.  
  1111.         (run "delete >NIL: prefs:presets/GED_#? all quiet")
  1112.         (run "delete >NIL: prefs:presets/GoldED all quiet")
  1113.         (run "delete >NIL: envarc:GoldED        all quiet")
  1114.         (run "delete >NIL: env:GoldED           all quiet")
  1115.         (run "delete >NIL: envarc:HiSpeed       all quiet")
  1116.         (run "delete >NIL: env:HiSpeed          all quiet")
  1117.         (run "delete >NIL: fonts:GoldED         all quiet")
  1118.  
  1119.         (delete "s:GUIMake.pref")
  1120.  
  1121.         (delete "libs:golded.library")
  1122.  
  1123.         (startup "GoldED"
  1124.  
  1125.             (prompt  #golded_remove_ged)
  1126.             (help    #golded_must_remove)
  1127.             (command #golded_removed)
  1128.         )
  1129.  
  1130.         (startup "HiSpeed"
  1131.  
  1132.             (prompt  #golded_remove_hs)
  1133.             (help    #golded_must_remove)
  1134.             (command #golded_removed)
  1135.         )
  1136.  
  1137.         (startup "GED_quick"
  1138.  
  1139.             (prompt  #golded_remove_ed)
  1140.             (help    #golded_must_remove)
  1141.             (command #golded_removed)
  1142.         )
  1143.  
  1144.         (startup "GUIMake"
  1145.  
  1146.             (prompt  #golded_remove_gmk)
  1147.             (help    #golded_must_remove)
  1148.             (command #golded_removed)
  1149.         )
  1150.  
  1151.         (run "assign >NIL: oldged:  remove")
  1152.  
  1153.         ; set return code
  1154.  
  1155.         (textfile (dest "env:GOLDEDINSTALL") (append "REMOVED"))
  1156.  
  1157.         (exit (quiet))
  1158.     )
  1159. )
  1160.  
  1161. ; choose destination directotry
  1162.  
  1163. (if (= install_mode install_mode_new)
  1164.  
  1165.     (
  1166.  
  1167.         (set install_path
  1168.  
  1169.             (askdir
  1170.  
  1171.                 (prompt #golded_where)
  1172.                 (help   #golded_where_help)
  1173.  
  1174.                 (default "SYS:TOOLS")
  1175.             )
  1176.         )
  1177.     )
  1178. )
  1179.  
  1180. ; ask for installation type
  1181.  
  1182. (set install_type
  1183.  
  1184.     (askchoice
  1185.  
  1186.         (prompt #golded_ask_amount)
  1187.         (help   #golded_ask_amount_help)
  1188.  
  1189.         (default 0)
  1190.  
  1191.         (choices
  1192.  
  1193.             #golded_ask_amount_standard
  1194.             #golded_ask_amount_user
  1195.             #golded_ask_amount_minimum
  1196.         )
  1197.     )
  1198. )
  1199.  
  1200. ; ------------------------ Prepare destination directory -----------------------
  1201.  
  1202. ; create destination directory, create GoldED: assign
  1203.  
  1204. (if (= install_mode install_mode_update)
  1205.  
  1206.     (
  1207.  
  1208.         (set install_path (expandpath "golded:/"))
  1209.         (set install_dir  (expandpath "golded:" ))
  1210.  
  1211.         (set backup_mode backup_mode_ask)
  1212.     )
  1213.  
  1214.     (
  1215.         (set install_dir (tackon install_path "GoldED"))
  1216.  
  1217.         (if (exists install_dir)
  1218.  
  1219.             (
  1220.                 (set backup_mode backup_mode_ask)
  1221.  
  1222.                 (if (exists (tackon install_path "GoldED.info"))
  1223.  
  1224.                     (makedir install_dir)
  1225.                     (makedir install_dir (infos))
  1226.                 )
  1227.             )
  1228.  
  1229.             (
  1230.  
  1231.                 (set backup_mode backup_mode_none)
  1232.  
  1233.                 (makedir install_dir (infos))
  1234.             )
  1235.         )
  1236.  
  1237.         (makeassign "GoldED" install_dir)
  1238.     )
  1239. )
  1240.  
  1241. ; ------------------------------ Uncompress files ------------------------------
  1242.  
  1243. (if (or (= golded_install_debug 0) (not (exists "golded:goldeddata")))
  1244.  
  1245.     (
  1246.         (working #golded_lharc)
  1247.  
  1248.         ; lhfasfx is somewhat fussy about missing "/"'s - we use the assign instead
  1249.  
  1250.         (run "install.run golded:")
  1251.  
  1252.         (if (not (exists "golded:goldeddata"))
  1253.  
  1254.             (
  1255.                 (message #golded_lharcfail)
  1256.  
  1257.                 (exit (quiet))
  1258.             )
  1259.         )
  1260.     )
  1261. )
  1262.  
  1263. ; ------------------------------- Install libs ---------------------------------
  1264.  
  1265. (if (exists "golded:libs/reqtools.library")
  1266.  
  1267.     (
  1268.         (copylib
  1269.  
  1270.             (prompt  #golded_install_reqtools)
  1271.             (help    #golded_install_reqtools_help)
  1272.             (source  "golded:libs/reqtools.library")
  1273.             (dest    "libs:")
  1274.             (confirm)
  1275.         )
  1276.     )
  1277. )
  1278.  
  1279. ; ------------------------------- Start background tasks -----------------------
  1280.  
  1281. ; check installation
  1282.  
  1283. (run "golded:goldeddata/installdata/bin/checksetup")
  1284.  
  1285. ; run Describe presentation
  1286.  
  1287. (if (= @language "deutsch")
  1288.  
  1289.     (run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_D.BAT")
  1290.     (run "golded:goldeddata/installdata/bin/sync SCRIPT=INSTALL_E.BAT")
  1291. )
  1292.  
  1293. ; --------------------------- Check existing installation ----------------------
  1294.  
  1295. ; don't install over OEM version (unless registered)
  1296.  
  1297. (if (exists "t:setup.inf")
  1298.  
  1299.     (message #golded_oemerr)
  1300. )
  1301.  
  1302. ; find installed components
  1303.  
  1304. (if (= install_mode install_mode_update)
  1305.  
  1306.     ; upgrading from GoldED 4 ?
  1307.  
  1308.     (if (exists "golded:registry")
  1309.  
  1310.         (
  1311.             (set install_optional (+ component_parser component_hispeed))
  1312.  
  1313.             (if (exists "golded:appicon"           ) (set install_optional (+ install_optional component_appicon     )))
  1314.             (if (exists "golded:recover"           ) (set install_optional (+ install_optional component_recover     )))
  1315.             (if (exists "golded:order"             ) (set install_optional (+ install_optional component_order       )))
  1316.             (if (exists "golded:api/rexx.api"      ) (set install_optional (+ install_optional component_api         )))
  1317.             (if (exists "golded:developer"         ) (set install_optional (+ install_optional component_sources     )))
  1318.             (if (exists "golded:manual"            ) (set install_optional (+ install_optional component_manual_e    )))
  1319.             (if (exists "golded:anleitung"         ) (set install_optional (+ install_optional component_manual_d    )))
  1320.             (if (exists "golded:ed"                ) (set install_optional (+ install_optional component_quickstarter)))
  1321.             (if (exists "golded:unlock"            ) (set install_optional (+ install_optional component_unlock      )))
  1322.         )
  1323.  
  1324.         (set install_optional component_all)
  1325.     )
  1326.  
  1327.     (set install_optional component_all)
  1328. )
  1329.  
  1330. (if (exists "golded:golded.info")
  1331.  
  1332.     (if (> (getsize "golded:golded.info") 800)
  1333.  
  1334.         (set golded_icon_set 1)
  1335.         (set golded_icon_set 0)
  1336.     )
  1337.  
  1338.     (set golded_icon_set 1)
  1339. )
  1340.  
  1341. (if (exists "golded:images/sys/menu")
  1342.  
  1343.     (if (> (getsize "golded:images/sys/menu") 256)
  1344.  
  1345.         (set image_style image_style_8)
  1346.         (set image_style image_style_4)
  1347.     )
  1348.  
  1349.     (set image_style image_style_4)
  1350. )
  1351.  
  1352. ; --------------------------- Backup important files ---------------------------
  1353.  
  1354. (if (exists "golded:obsolete")
  1355.  
  1356.     (run "delete golded:obsolete all quiet")
  1357. )
  1358.  
  1359. (if (= backup_mode backup_mode_ask)
  1360.  
  1361.     (
  1362.         (set backup_default 2)
  1363.  
  1364.         (set backup_mode
  1365.  
  1366.             (askchoice
  1367.  
  1368.                 (prompt #golded_backup_mode)
  1369.                 (help   #golded_backup_mode_help)
  1370.  
  1371.                 (default backup_default)
  1372.  
  1373.                 (choices
  1374.  
  1375.                     #golded_backup_mode_none
  1376.                     #golded_backup_mode_selected
  1377.                     #golded_backup_mode_all
  1378.                 )
  1379.             )
  1380.         )
  1381.     )
  1382. )
  1383.  
  1384. (if (not (= backup_mode backup_mode_none))
  1385.  
  1386.     (
  1387.         (makedir "golded:obsolete")
  1388.  
  1389.         (if (= backup_mode 2)
  1390.  
  1391.             (
  1392.                 (working #golded_saving_files)
  1393.  
  1394.                 (copyfiles
  1395.  
  1396.                     (source   "golded:"                )
  1397.                     (dest     "golded:obsolete"        )
  1398.                     (pattern  "~(goldeddata|obsolete)" )
  1399.                     (nogauge)
  1400.                 )
  1401.             )
  1402.  
  1403.             (if (or (exists "golded:arexx") (exists "golded:registry") (exists "golded:config"))
  1404.  
  1405.                 (
  1406.                     (working #golded_saving_files)
  1407.  
  1408.                     (copyfiles
  1409.  
  1410.                         (source   "golded:"          )
  1411.                         (dest     "golded:obsolete"  )
  1412.                         (pattern  "(registry|arexx|config)" )
  1413.                         (nogauge)
  1414.                     )
  1415.                 )
  1416.             )
  1417.         )
  1418.     )
  1419. )
  1420.  
  1421. ; --------------------------- Remove obsolete files ----------------------------
  1422.  
  1423. (run "delete golded:presets all quiet")
  1424. (run "delete golded:config  all quiet")
  1425.  
  1426. ; remove obsolete files
  1427.  
  1428. (delete "golded:golded.guide" (infos))
  1429. (delete "golded:GEDApp" (infos))
  1430. (delete "golded:Hi!" (infos))
  1431. (delete "golded:Tools/Unlock.info" (infos))
  1432. (delete "golded:rx")
  1433. (delete "golded:api/history")
  1434. (delete "golded:api/readme")
  1435. (delete "golded:api/readme.info")
  1436. (delete "golded:api/dock/dock1.prefs")
  1437. (delete "golded:api/dock/dock2.prefs")
  1438. (delete "golded:macros/test.ged")
  1439. (delete "golded:Anleitung")
  1440. (delete "golded:Manual")
  1441. (delete "golded:Manuel")
  1442. (delete "golded:History")
  1443. (delete "golded:keyfile/keyfile")
  1444. (delete "libs:golded.library")
  1445.  
  1446. ; remove obsolete icons
  1447.  
  1448. (delete "golded:arexx.info"          )
  1449. (delete "golded:menu.info"           )
  1450. (delete "golded:manuel.info"         )
  1451. (delete "golded:tools/hispeed.info"  )
  1452. (delete "golded:tools/ed.info"       )
  1453. (delete "golded:tools/gedrefs.info"  )
  1454. (delete "golded:tools/recover.info"  )
  1455. (delete "golded:tools/gedapp.info"   )
  1456. (delete "golded:tools/prjsource.info")
  1457. (delete "golded:tools/unlock.info"   )
  1458. (delete "golded:tools/geddock.info"  )
  1459. (delete "golded:tools/gedscan.info"  )
  1460. (delete "golded:tools/menu.info"     )
  1461. (delete "golded:api/reversed.info"   )
  1462. (delete "golded:api/nextstep.info"   )
  1463. (delete "golded:api/dock.info"       )
  1464. (delete "golded:tools/source.info"   )
  1465. (delete "golded:tools/scanner.info"  )
  1466.  
  1467. ; remove obsolete catalogs
  1468.  
  1469. (if (exists "locale:" (noreq)) (
  1470.  
  1471.     (delete "locale:catalogs/deutsch/GoldED.catalog")
  1472.     (delete "locale:catalogs/français/GoldED.catalog")
  1473.     (delete "locale:catalogs/italiano/GoldED.catalog")
  1474.     (delete "locale:catalogs/nederlands/GoldED.catalog")
  1475.     (delete "locale:catalogs/svenska/GoldED.catalog")
  1476.     (delete "locale:catalogs/deutsch/HiSpeed.catalog")
  1477.     (delete "locale:catalogs/français/HiSpeed.catalog")
  1478. ))
  1479.  
  1480. ; remove obsolete drawers
  1481.  
  1482. (run "delete golded:config                all quiet")
  1483. (run "delete golded:macros                all quiet")
  1484. (run "delete golded:presets               all quiet")
  1485. (run "delete golded:syntax/developer      all quiet")
  1486. (run "delete golded:menu                  all quiet")
  1487. (run "delete golded:tools/menu            all quiet")
  1488. (run "delete golded:tools/scanner         all quiet")
  1489. (run "delete golded:tools/source          all quiet")
  1490. (run "delete golded:tools/ed              all quiet")
  1491. (run "delete golded:tools/gedrefs         all quiet")
  1492. (run "delete golded:tools/recover         all quiet")
  1493. (run "delete golded:tools/gedapp          all quiet")
  1494. (run "delete golded:tools/prjsource       all quiet")
  1495. (run "delete golded:tools/unlock          all quiet")
  1496. (run "delete golded:tools/geddock         all quiet")
  1497. (run "delete golded:tools/gedscan         all quiet")
  1498. (run "delete golded:tools/hispeed/keyfile all quiet")
  1499. (run "delete env:golded                   all quiet")
  1500. (run "delete envarc:golded                all quiet")
  1501. (run "delete s:golded                     all quiet")
  1502. (run "delete golded:tools/edsource        all quiet")
  1503. (run "delete prefs:presets/GED_#?         all quiet")
  1504. (run "delete golded:api/rexx              all quiet")
  1505. (run "delete golded:api/spell             all quiet")
  1506. (run "delete golded:api/reversed          all quiet")
  1507. (run "delete golded:api/nextstep          all quiet")
  1508. (run "delete golded:api/dock              all quiet")
  1509. (run "delete golded:api/include           all quiet")
  1510. (run "delete golded:arexx/backup          all quiet")
  1511.  
  1512. ; ----------------------------- Install all files ------------------------------
  1513.  
  1514. (if (or (= golded_install_debug 0) (not (exists "golded:golded")))
  1515.  
  1516.     (
  1517.  
  1518.         (if (= install_type install_type_user)
  1519.  
  1520.             (working #golded_prepare_install)
  1521.             (working #golded_installing_files)
  1522.         )
  1523.  
  1524.         (copyfiles
  1525.  
  1526.             (source  "golded:goldeddata")
  1527.             (dest    "golded:"          )
  1528.             (pattern "~(installdata)"   )
  1529.             (nogauge)
  1530.         )
  1531.     )
  1532. )
  1533.  
  1534. (copyfiles
  1535.  
  1536.     (source "golded:tools/hispeed/HiSpeed")
  1537.     (dest   "golded:")
  1538.     (nogauge)
  1539. )
  1540.  
  1541. (copyfiles
  1542.  
  1543.     (source "golded:goldeddata/installdata/fonts" )
  1544.     (dest   "fonts:")
  1545.     (all)
  1546.     (nogauge)
  1547. )
  1548.  
  1549. (if (not (exists "golded:registry"))
  1550.  
  1551.     (makedir "golded:registry")
  1552. )
  1553.  
  1554. (if (not (exists "golded:registry/presets"))
  1555.  
  1556.     (makedir "golded:registry/presets")
  1557. )
  1558.  
  1559.  
  1560. (if (not (exists "golded:xref"))
  1561.  
  1562.     (makedir "golded:xref")
  1563. )
  1564.  
  1565.  
  1566. (if (not (exists "golded:recordings"))
  1567.  
  1568.     (makedir "golded:recordings")
  1569. )
  1570.  
  1571. (if (not (exists "golded:sessions"))
  1572.  
  1573.     (makedir "golded:sessions")
  1574. )
  1575.  
  1576. ; ------------------------------ Install keyfile -------------------------------
  1577.  
  1578. (if (exists "keyfile/golded.keyfile")
  1579.  
  1580.     (
  1581.         (if (exists "golded:keyfile/golded.keyfile")
  1582.  
  1583.             (set install_keyfile
  1584.  
  1585.                 (askchoice
  1586.  
  1587.                     (prompt #golded_update_keyfile)
  1588.                     (help   #golded_update_keyfile_help)
  1589.  
  1590.                     (default 0)
  1591.  
  1592.                     (choices
  1593.  
  1594.                         #golded_update_keyfile_keep
  1595.                         #golded_update_keyfile_overwrite
  1596.                     )
  1597.                 )
  1598.             )
  1599.  
  1600.             (set install_keyfile 1)
  1601.         )
  1602.     )
  1603.  
  1604.     ; just a demo
  1605.  
  1606.     (set install_keyfile 0)
  1607. )
  1608.  
  1609. (if (= install_keyfile 1)
  1610.  
  1611.     (
  1612.         ; just in case somebody saved the keyfile as golded:keyfile (supposed to be a drawer)
  1613.  
  1614.         (run "delete golded:keyfile")
  1615.  
  1616.         (if (not (exists "golded:keyfile"))
  1617.  
  1618.             (makedir "golded:keyfile")
  1619.         )
  1620.  
  1621.         (copyfiles
  1622.  
  1623.             (source "keyfile/golded.keyfile")
  1624.             (dest   "golded:keyfile")
  1625.         )
  1626.     )
  1627. )
  1628.  
  1629. ; ------------------------------- Install icons --------------------------------
  1630.  
  1631. (if (= install_mode install_mode_new)
  1632.  
  1633.     (set golded_icon_set
  1634.  
  1635.         (askchoice
  1636.  
  1637.             (prompt #golded_pref_icons)
  1638.             (help   #golded_pref_icons_help)
  1639.  
  1640.             (choices
  1641.  
  1642.                 #golded_medres
  1643.                 #golded_hires
  1644.             )
  1645.  
  1646.             (default golded_icon_set)
  1647.         )
  1648.     )
  1649. )
  1650.  
  1651. (working #golded_updating_icons)
  1652.  
  1653. ; install small (med-res) icons
  1654.  
  1655. (if (= golded_icon_set 0)
  1656.  
  1657.     (
  1658.         (copyfiles
  1659.  
  1660.             (source "golded:goldeddata/installdata/icons/golded")
  1661.             (dest   "golded:")
  1662.             (all)
  1663.             (nogauge)
  1664.         )
  1665.     )
  1666. )
  1667.  
  1668. ; create GoldED ARexx macro icons
  1669.  
  1670. (if (= golded_icon_set 0)
  1671.  
  1672.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=100 DY=40 COLUMNS=5")
  1673.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=100 DY=45 COLUMNS=5")
  1674. )
  1675.  
  1676. ; create HiSpeed Arexx macro icons
  1677.  
  1678. (if (= golded_icon_set 0)
  1679.  
  1680.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/medres DX=90 DY=40 COLUMNS=5")
  1681.     (run "golded:goldeddata/installdata/bin/moveicons QUIET DIR=golded:tools/hispeed/arexx ICON=golded:goldeddata/installdata/icons/script/hires  DX=95 DY=45 COLUMNS=5")
  1682. )
  1683.  
  1684. ; install images
  1685.  
  1686. (set image_style
  1687.  
  1688.     (askchoice
  1689.  
  1690.         (prompt #golded_images_style)
  1691.         (help   #golded_images_help)
  1692.  
  1693.         (choices
  1694.  
  1695.             #golded_images_4
  1696.             #golded_images_8
  1697.         )
  1698.  
  1699.         (default image_style)
  1700.     )
  1701. )
  1702.  
  1703. ; install default images (4-color)
  1704.  
  1705. (copyfiles
  1706.  
  1707.     (source "golded:goldeddata/installdata/color4/images")
  1708.     (dest   "golded:images")
  1709.     (all)
  1710.     (nogauge)
  1711. )
  1712.  
  1713. ; install 16-color images over 4-color images
  1714.  
  1715. (if (= image_style image_style_8)
  1716.  
  1717.     (copyfiles
  1718.  
  1719.         (source "golded:goldeddata/installdata/color16/images")
  1720.         (dest   "golded:images")
  1721.         (all)
  1722.         (nogauge)
  1723.     )
  1724. )
  1725.  
  1726. ; ------------------------------ Select components  ----------------------------
  1727.  
  1728. (if (= install_type install_type_maximum)
  1729.  
  1730.     (set install_optional component_all)
  1731. )
  1732.  
  1733. (if (= install_type install_type_minimum)
  1734.  
  1735.     (set install_optional 0)
  1736. )
  1737.  
  1738. (if (= install_type install_type_user)
  1739.  
  1740.     (set install_optional
  1741.  
  1742.         (askoptions
  1743.  
  1744.             (prompt #golded_select_optional)
  1745.             (help   #golded_select_optional_help)
  1746.  
  1747.             (default install_optional)
  1748.  
  1749.             (choices
  1750.  
  1751.                 #golded_select_parsers
  1752.                 #golded_select_hispeed
  1753.                 #golded_select_appicon
  1754.                 #golded_select_recover
  1755.                 #golded_select_order
  1756.                 #golded_select_api
  1757.                 #golded_select_sources
  1758.                 #golded_select_manual_e
  1759.                 #golded_select_manual_d
  1760.                 #golded_select_quickstarter
  1761.                 #golded_select_unlock
  1762.             )
  1763.         )
  1764.     )
  1765. )
  1766.  
  1767. ; ----------------------------- Remove unwanted files --------------------------
  1768.  
  1769. (if (= 0 (bitand install_optional component_sources))
  1770.  
  1771.     (
  1772.  
  1773.         (run "delete golded:developer all quiet")
  1774.         (run "delete golded:tools/cat all quiet")
  1775.  
  1776.         (delete "golded:tools/cat.info")
  1777.     )
  1778. )
  1779.  
  1780. (if (= 0 (bitand install_optional component_parser))
  1781.  
  1782.     (run "delete golded:syntax/#? all quiet")
  1783. )
  1784.  
  1785. (if (= 0 (bitand install_optional component_hispeed))
  1786.  
  1787.     (
  1788.         (if (exists "hispeed:" (noreq))
  1789.  
  1790.             (run "assign HiSpeed: remove")
  1791.  
  1792.             (startup "HiSpeed"
  1793.  
  1794.                 (prompt  #golded_remove_hs)
  1795.                 (help    #golded_must_remove)
  1796.                 (command #golded_removed)
  1797.             )
  1798.         )
  1799.  
  1800.         (delete "golded:hispeed")
  1801.  
  1802.         (run "delete golded:tools/hispeed#? all quiet")
  1803.     )
  1804. )
  1805.  
  1806. (if (= 0 (bitand install_optional component_appicon))
  1807.  
  1808.     (delete "golded:appicon")
  1809. )
  1810.  
  1811. (if (= 0 (bitand install_optional component_recover))
  1812.  
  1813.     (delete "golded:recover")
  1814. )
  1815.  
  1816. (if (= 0 (bitand install_optional component_order))
  1817.  
  1818.     (delete "golded:order")
  1819. )
  1820.  
  1821. (if (= 0 (bitand install_optional component_api))
  1822.  
  1823.     (run "delete golded:api/(dock|rexx|spell|startup|mirror|quickinfo)#? all quiet")
  1824. )
  1825.  
  1826. (if (= 0 (bitand install_optional component_manual_e))
  1827.  
  1828.     (delete "golded:manual")
  1829. )
  1830.  
  1831. (if (= 0 (bitand install_optional component_manual_d))
  1832.  
  1833.     (delete "golded:anleitung")
  1834. )
  1835.  
  1836. (if (= 0 (bitand install_optional component_quickstarter))
  1837.  
  1838.     (delete "golded:ed")
  1839. )
  1840.  
  1841. (if (= 0 (bitand install_optional component_unlock))
  1842.  
  1843.     (delete "golded:unlock")
  1844. )
  1845.  
  1846. ; --------------------------------- Arrange icons ------------------------------
  1847.  
  1848. ; arrange icons
  1849.  
  1850. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=GoldED ED AppIcon Anleitung Manual Manuel DIR=golded:")
  1851. (run "golded:goldeddata/installdata/bin/moveicons QUIET GAP FILES=HiSpeed Recover Unlock Order DIR=golded:")
  1852.  
  1853. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:tools GRID DX=0 DY=27 COLUMNS=1")
  1854. (run "golded:goldeddata/installdata/bin/moveicons DIR=golded:api   GRID DX=0 DY=45 COLUMNS=1")
  1855.  
  1856. ; ---------------------------------- QuickStarter ------------------------------
  1857.  
  1858. (if (bitand install_optional component_quickstarter)
  1859.  
  1860.     (
  1861.         (set quick_starter_name (askstring
  1862.  
  1863.             (prompt #golded_quickname)
  1864.             (help   #golded_quickname_help)
  1865.  
  1866.             (default "ED")
  1867.         ))
  1868.  
  1869.         (if (= quick_starter_name "")
  1870.  
  1871.             (set quick_starter_name "ED")
  1872.             (set quick_starter_name (fileonly quick_starter_name))
  1873.         )
  1874.  
  1875.         (set quick_starter_dir (askdir
  1876.  
  1877.             (prompt #golded_place_quick)
  1878.             (help   #golded_place_quick_help)
  1879.  
  1880.             (default "C:")
  1881.         ))
  1882.  
  1883.         ; patch quickstarter to allow it running GoldED without GOLDED: assign
  1884.  
  1885.         (run (cat "golded:goldeddata/installdata/bin/patch file=golded:ed find=$GOLDED INSERT=\"" (expandpath "golded:") "\""))
  1886.  
  1887.         (copyfiles
  1888.  
  1889.             (source  "golded:ed")
  1890.             (dest     quick_starter_dir)
  1891.             (newname  quick_starter_name)
  1892.             (nogauge)
  1893.         )
  1894.  
  1895.         (set quickstarter (tackon quick_starter_dir quick_starter_name))
  1896.  
  1897.     )
  1898. )
  1899.  
  1900. ; ----------------------------- Standard configuration -------------------------
  1901.  
  1902. (if (= @language "english" ) (set menu_language 0))
  1903. (if (= @language "deutsch" ) (set menu_language 1))
  1904. (if (= @language "italiano") (set menu_language 2))
  1905.  
  1906. (if (exists "golded:registry/registry")
  1907.  
  1908.     (
  1909.         (set install_presets
  1910.  
  1911.             (askoptions
  1912.  
  1913.                 (prompt #install_presets)
  1914.                 (help   #install_presets_help)
  1915.  
  1916.                 (choices
  1917.  
  1918.                     #install_presets_menu
  1919.                     #install_presets_display
  1920.                     #install_presets_keyboard
  1921.                     #install_presets_toolbar
  1922.                     #install_presets_mouse
  1923.                     #install_presets_all
  1924.                 )
  1925.  
  1926.                 (default 0)
  1927.             )
  1928.         )
  1929.     )
  1930.  
  1931.     (
  1932.         (copyfiles
  1933.  
  1934.             (source "golded:goldeddata/installdata/registry/registry")
  1935.             (dest   "golded:registry")
  1936.             (nogauge)
  1937.         )
  1938.  
  1939.         (set install_presets install_presets_all)
  1940.     )
  1941. )
  1942.  
  1943. ; install standard presets ?
  1944.  
  1945. (if (<> install_presets 0)
  1946.  
  1947.     (
  1948.         (if (<> 0 (bitand install_presets install_presets_all))
  1949.  
  1950.             (copyfiles
  1951.  
  1952.                 (source "golded:goldeddata/installdata/registry/presets/standard")
  1953.                 (dest   "golded:registry/presets")
  1954.                 (all)
  1955.                 (nogauge)
  1956.             )
  1957.         )
  1958.  
  1959.         ; install menu
  1960.  
  1961.         (if (or (bitand install_presets install_presets_menu) (bitand install_presets install_presets_all))
  1962.  
  1963.             (
  1964.  
  1965.                 (set menu_language (askchoice
  1966.  
  1967.                     (prompt #golded_what_menu)
  1968.                     (help   #golded_what_menu_help)
  1969.  
  1970.                     (choices
  1971.  
  1972.                         "English"
  1973.                         "Deutsch"
  1974.                         "Italiano"
  1975.                         "Français"
  1976.                         "Svenska"
  1977.                     )
  1978.  
  1979.                     (default menu_language)
  1980.                 ))
  1981.  
  1982.                 (if (= menu_language 0) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.e"))
  1983.                 (if (= menu_language 1) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.d"))
  1984.                 (if (= menu_language 2) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.i"))
  1985.                 (if (= menu_language 3) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.f"))
  1986.                 (if (= menu_language 4) (set menu_preset "golded:goldeddata/installdata/registry/presets/special/standard.menu.s"))
  1987.  
  1988.                 (copyfiles
  1989.  
  1990.                     (source  menu_preset)
  1991.                     (dest    "golded:registry/presets")
  1992.                     (newname "standard.menu")
  1993.                     (nogauge)
  1994.                 )
  1995.             )
  1996.         )
  1997.  
  1998.         ; toolbar
  1999.  
  2000.         (if (or (bitand install_presets install_presets_toolbar) (bitand install_presets install_presets_all))
  2001.  
  2002.             (
  2003.                 ; install default images (4-color)
  2004.  
  2005.                 (copyfiles
  2006.  
  2007.                     (source "golded:goldeddata/installdata/color4/toolbar")
  2008.                     (dest   "golded:toolbar")
  2009.                     (all)
  2010.                     (nogauge)
  2011.                 )
  2012.  
  2013.                 ; install 16-color images over 4-color images
  2014.  
  2015.                 (if (= image_style image_style_8)
  2016.  
  2017.                     (copyfiles
  2018.  
  2019.                         (source "golded:goldeddata/installdata/color16/toolbar")
  2020.                         (dest   "golded:toolbar")
  2021.                         (all)
  2022.                         (nogauge)
  2023.                     )
  2024.                 )
  2025.  
  2026.                 (if (= menu_language 0) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.e"))
  2027.                 (if (= menu_language 1) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.d"))
  2028.                 (if (= menu_language 2) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.i"))
  2029.                 (if (= menu_language 3) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.f"))
  2030.                 (if (= menu_language 4) (set gad_preset  "golded:goldeddata/installdata/registry/presets/special/standard.gadgets.s"))
  2031.  
  2032.                 (copyfiles
  2033.  
  2034.                     (source  gad_preset)
  2035.                     (dest    "golded:registry/presets")
  2036.                     (newname "standard.gadgets")
  2037.                     (nogauge)
  2038.                 )
  2039.             )
  2040.         )
  2041.  
  2042.         ; display
  2043.  
  2044.         (if (or (bitand install_presets install_presets_display) (bitand install_presets install_presets_all))
  2045.  
  2046.             (
  2047.  
  2048.                 (set screen_mode (askchoice
  2049.  
  2050.                     (prompt #golded_screen)
  2051.                     (help   #golded_screen_help)
  2052.  
  2053.                     (choices
  2054.  
  2055.                         #golded_screen_wb
  2056.                         #golded_screen_ntsc_i
  2057.                         #golded_screen_pal_i
  2058.                     )
  2059.  
  2060.                     (default screen_workbench)
  2061.                 ))
  2062.  
  2063.                 (if (= screen_mode screen_workbench)
  2064.  
  2065.                     (copyfiles
  2066.  
  2067.                         (source  "golded:goldeddata/installdata/registry/presets/special/standard.display.wb")
  2068.                         (dest    "golded:registry/presets")
  2069.                         (newname "standard.display")
  2070.                         (nogauge)
  2071.                     )
  2072.  
  2073.                     (
  2074.                         (set screen_layout (askchoice
  2075.  
  2076.                             (prompt #golded_look_feel)
  2077.                             (help   #golded_look_feel_help)
  2078.  
  2079.                             (default 1)
  2080.  
  2081.                             (choices
  2082.  
  2083.                                 #golded_mode_blue
  2084.                                 #golded_mode_stone
  2085.                                 #golded_mode_desktop
  2086.                                 #golded_mode_designer
  2087.                             )
  2088.                         ))
  2089.  
  2090.                         (if (= screen_layout 0) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.2"))
  2091.                         (if (= screen_layout 1) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.4"))
  2092.                         (if (= screen_layout 2) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.8"))
  2093.                         (if (= screen_layout 3) (set preset_display "golded:goldeddata/installdata/registry/presets/special/standard.display.16"))
  2094.  
  2095.                         (if (= screen_mode 1)
  2096.  
  2097.                             (set preset_display (cat preset_display "n"))
  2098.                             (set preset_display (cat preset_display "p"))
  2099.                         )
  2100.  
  2101.                         (set preset_display (cat preset_display "i"))
  2102.  
  2103.                         (copyfiles
  2104.  
  2105.                             (source  preset_display)
  2106.                             (dest    "golded:registry/presets")
  2107.                             (newname "standard.display")
  2108.                             (nogauge)
  2109.                         )
  2110.                     )
  2111.                 )
  2112.  
  2113.                 ; update display preset to use system's default fonts
  2114.  
  2115.                 (run "golded:goldeddata/installdata/bin/installfont FILE=golded:registry/presets/standard.display")
  2116.             )
  2117.         )
  2118.  
  2119.         ; keyboard
  2120.  
  2121.         (if (or (bitand install_presets install_presets_keyboard) (bitand install_presets install_presets_all))
  2122.  
  2123.             (copyfiles
  2124.  
  2125.                 (source "golded:goldeddata/installdata/registry/presets/special/standard.keyboard")
  2126.                 (dest   "golded:registry/presets")
  2127.                 (nogauge)
  2128.             )
  2129.         )
  2130.  
  2131.         ; mouse
  2132.  
  2133.         (if (or (bitand install_presets install_presets_mouse) (bitand install_presets install_presets_all))
  2134.  
  2135.             (
  2136.                 (set context_language (askchoice
  2137.  
  2138.                     (prompt #golded_what_contextmenu)
  2139.                     (help   #golded_what_menu_help)
  2140.  
  2141.                     (choices
  2142.  
  2143.                         "English"
  2144.                         "Deutsch"
  2145.                     )
  2146.  
  2147.                     (default menu_language)
  2148.                 ))
  2149.  
  2150.                 (if (= context_language 0) (set mouse_preset "golded:goldeddata/installdata/registry/presets/special/standard.mouse.e"))
  2151.                 (if (= context_language 1) (set mouse_preset "golded:goldeddata/installdata/registry/presets/special/standard.mouse.d"))
  2152.  
  2153.                 (copyfiles
  2154.  
  2155.                     (source mouse_preset)
  2156.                     (dest   "golded:registry/presets")
  2157.                     (newname "standard.mouse")
  2158.                     (nogauge)
  2159.                 )
  2160.             )
  2161.         )
  2162.     )
  2163. )
  2164.  
  2165. ; ------------------------------ Modify user-startup -------------------------
  2166.  
  2167. (if (not (exists "s:user-startup"))
  2168.  
  2169.     (message #golded_warn_userstartup)
  2170. )
  2171.  
  2172. (startup "GoldED"
  2173.  
  2174.     (prompt #golded_add_ged_assign)
  2175.     (help   #golded_add_ged_assign_help)
  2176.  
  2177.     (command  ("ASSIGN >NIL: GOLDED: \"%s\"" install_dir))
  2178. )
  2179.  
  2180. (if (bitand install_optional component_quickstarter)
  2181.  
  2182.     (startup "GED_quick"
  2183.  
  2184.         (prompt #golded_quick_resident)
  2185.         (help   #golded_quick_resident_help)
  2186.  
  2187.         (command ("resident %s pure" quickstarter))
  2188.     )
  2189. )
  2190.  
  2191. (if (bitand install_optional component_hispeed)
  2192.  
  2193.     (
  2194.         (startup "HiSpeed"
  2195.  
  2196.             (prompt #golded_hs_assign)
  2197.             (help   #golded_hs_assign_help)
  2198.  
  2199.             (command ("ASSIGN >NIL: HISPEED: GOLDED:TOOLS/HISPEED"))
  2200.         )
  2201.  
  2202.         (makeassign "HiSpeed" "golded:tools/hispeed")
  2203.     )
  2204. )
  2205.  
  2206. ; ------------------------------------- Done -----------------------------------
  2207.  
  2208. ; stop Describe presentation
  2209.  
  2210. (run "golded:goldeddata/installdata/bin/sync COMMAND=QUIT")
  2211.  
  2212. (working #golded_removing_temp_files)
  2213.  
  2214. (if (= golded_install_debug 0)
  2215.  
  2216.     (run "delete golded:goldeddata#? all quiet")
  2217. )
  2218.  
  2219. (complete 100)
  2220.  
  2221. (if (= install_mode install_mode_remove)
  2222.  
  2223.     (exit (quiet))
  2224.  
  2225.     (
  2226.         ; set return code
  2227.  
  2228.         (textfile (dest "env:GOLDEDINSTALL") (append "OK"))
  2229.  
  2230.         (exit #golded_complete)
  2231.     )
  2232. )
  2233.