home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / SystemPatches / S_TAB.LHA / ScreenTab / Install_English < prev    next >
Encoding:
Text File  |  1994-11-13  |  2.7 KB  |  99 lines
  1. ; Script for Installation of ScreenTab V1.12 (28.10.94)
  2. ; Author: Michael Link
  3. ; Last change : 30.10.94
  4.  
  5. (set DIRHELP (cat "You must enter the name of the directory, in which\n"
  6.                   "ScreenTab should be installed.\n\n"
  7.                   "If you want ScreenTab to be active everytime you\n"
  8.                   "start the computer, enter the directory\n"
  9.                   "\"SYS:WBStartup\", which is the default directory."
  10.              )
  11. )
  12.  
  13. (set vernum (getversion "intuition.library" (resident)))
  14. (set ver (shiftright vernum 16))
  15.  
  16. (
  17.  set DIR (
  18.           askdir (prompt (cat "Please enter the destination directory\n"
  19.                               "for ScreenTab"))
  20.                  (help DIRHELP)
  21.                  (default "SYS:WBStartup")
  22.          )
  23. )
  24.  
  25. (set @default-dest DIR)
  26.  
  27. (
  28.  set HOTKEY (
  29.              askstring (prompt (cat "With which key combination shall the\n"
  30.                                     "preferences be called ?"))
  31.                        (help @askstring-help)
  32.                        (default "ctrl alt s")
  33.             )
  34. )
  35.  
  36. (
  37.  set SWITCHKEY (
  38.              askstring (prompt (cat "With which key combination shall the\n"
  39.                                     "screen be switched ?"))
  40.                        (help @askstring-help)
  41.                        (default "LAmiga Tab")
  42.             )
  43. )  
  44.  
  45. (
  46.  set TOOLPRI (
  47.              askstring (prompt "Enter the task priority for ScreenTab\n")
  48.                        (help @askstring-help)
  49.                        (default "5")
  50.              )
  51. )
  52.  
  53. (tooltype (prompt "Writing Tool-Type HOTKEY")
  54.           (help)
  55.           (dest "ScreenTab")
  56.           (settooltype "CX_POPKEY" HOTKEY)
  57. )
  58.  
  59. (tooltype (prompt "Writing Tool-Type SWITCHKEY")
  60.           (help)
  61.           (dest "ScreenTab")
  62.           (settooltype "SWITCHKEY" SWITCHKEY)
  63. )   
  64.  
  65. (tooltype (prompt "Writing Tool-Type TOOLPRI")
  66.           (help)
  67.           (dest "ScreenTab")
  68.           (settooltype "TOOLPRI" TOOLPRI)
  69. )   
  70.  
  71. (
  72.  copyfiles (prompt ("Copying ScreenTab to %s" DIR) )
  73.            (help @copyfiles-help)
  74.            (source "ScreenTab")
  75.            (dest DIR)
  76.            (infos)
  77. )
  78.  
  79. (if (= (exists "ENVARC:ScreenTab.prefs") 1)
  80.     (if (askbool (prompt (cat "\n\nThere already exists a ScreenTab\n"
  81.                               "preferences file.\n"
  82.                               "Shall I overwrite it ?"))
  83.                  (help)
  84.                  (default 0)
  85.         )
  86.         (copyfiles (prompt "Copying preferences file ...")
  87.                    (help)
  88.                    (source "ScreenTab.prefs")
  89.                    (dest "ENVARC:")
  90.         )
  91.     )
  92.     (copyfiles (prompt "Copying preferences file ...")
  93.                (help)
  94.                (source "ScreenTab.prefs")
  95.                (dest "ENVARC:")
  96.     )
  97. )   
  98.  
  99.