home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / EIDock / Install < prev    next >
Encoding:
Text File  |  1994-04-12  |  2.3 KB  |  94 lines
  1. ; $VER: EDDock
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. ; This install script is public domain. Feel free to include it with
  7. ; your own API clients.
  8.  
  9. (if (exists "GoldED:" (NOREQ))
  10.  
  11.     (
  12.         (message (cat "\n"
  13.  
  14.             "         Another GoldED API Example            \n"
  15.             "         ~~~~~~~~~~~~~~~~~~~~~~~~~~            \n"
  16.             "             by Richard Bemrose                \n"
  17.             "         of Engineering Ideas (tm)             \n"
  18.             "                                               \n"
  19.             " Internet: r.bemrose@sheffield-hallam.ac.uk    \n"
  20.             "                                               \n"
  21.             "               PUBLIC DOMAIN                   \n"
  22.         ))
  23.  
  24.         (complete 10)
  25.  
  26.         (set icons (askchoice
  27.  
  28.             (prompt  "Select dock size according to your screen resolution")
  29.  
  30.             (choices
  31.  
  32.                 "  8 icons (requires 640 * 240 or better)"
  33.                 " 13 icons (requires 640 * 400 or better)"
  34.                 " 16 icons (requires 640 * 480 or better)"
  35.                 " 17 icons (requires 640 * 512 or better)"
  36.             )
  37.  
  38.             (help @askchoice-help)
  39.  
  40.             (default 2)
  41.         ))
  42.  
  43.         (complete 20)
  44.  
  45.         (if (= icons 0) (set prefs "dock8.prefs"))
  46.         (if (= icons 1) (set prefs "dock13.prefs"))
  47.         (if (= icons 2) (set prefs "dock16.prefs"))
  48.         (if (= icons 3) (set prefs "dock17.prefs"))
  49.  
  50.         (copyfiles
  51.  
  52.             (source "iconsEI")
  53.             (dest   "GoldED:API/dock/iconsEI")
  54.             (all)
  55.         )
  56.  
  57.         (complete 80)
  58.  
  59.         (copyfiles
  60.  
  61.             (source prefs)
  62.             (dest "GoldED:API/dock")
  63.             (newname "dockEI.prefs")
  64.         )
  65.  
  66.         (complete 90)
  67.  
  68.         (copyfiles
  69.             (source "EIDock.api")
  70.             (dest "sys:Prefs/Presets/GoldED")
  71.         )
  72.  
  73.         (complete 100)
  74.  
  75.         (message (cat "\n"
  76.  
  77.             "API client installed. Please load the preset\n"
  78.             "file 'EIDock.api' from within GoldED's API  \n"
  79.             "requester (<load> gadget).                  \n"
  80.         ))
  81.     )
  82.     (
  83.         (message (cat "\n"
  84.  
  85.             "Please install GoldED before attempting to\n"
  86.             "install this client.                      \n"
  87.         ))
  88.     )
  89. )
  90.  
  91. (exit (quiet))
  92.  
  93. (welcome)
  94.