home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / boot / startup-menu / install_sm < prev    next >
Text File  |  1994-11-05  |  3KB  |  125 lines
  1. ; Startup-Menu install script for CBM Installer
  2. ;$VER: SM_install 1.0
  3. ;$AUTHOR: Lee Kindness
  4.  
  5. (set @default-dest '')
  6.  
  7. ; make sure OS 2+
  8. (set vernum (getversion))
  9. (set ver (/ vernum 65536))
  10.  
  11. (if (< vernum 37)
  12.     (abort 'Workbench 2 or higher required')
  13. )
  14.  
  15. ; mak' SM dir'
  16. (makedir 'S:SM')
  17.  
  18. ; copy reqtools library
  19. (copylib
  20.     (prompt 'Copying Reqtools.library')
  21.     (help 'This file is required by SMPrefs. It is used to create some of the requesters.\n\n'@copylib-help)
  22.     (source 'reqtools.library')
  23.     (dest 'LIBS:')
  24.     (confirm)
  25. )
  26.  
  27. ; copy SMPrefs
  28. (copyfiles
  29.     (prompt 'Copying Startup-Menu preference editor.')
  30.     (help 'This file is used to configure the menu.\n\n'@copyfiles-help)
  31.     (source 'SMPrefs')
  32.     (dest 'SYS:Prefs')
  33.     (confirm)
  34.     (infos)
  35.     (noposition)
  36. )
  37.  
  38. ; copy SM
  39. (copyfiles
  40.     (source 'Startup-Menu')
  41.     (dest 'C:')
  42. )
  43.  
  44. ; copy .WIT files
  45. (copyfiles
  46.     (prompt 'Copying phrase files')
  47.     (help 'These files are used to pick random phrases from. The phrases are then scrolled along the menu.\n\n'@copyfiles-help)
  48.     (source 'S/SM')
  49.     (dest 'S:SM')
  50.     (pattern '#?.WIT')
  51.     (confirm)
  52. )
  53.  
  54. ; copy Sample prefs
  55. (if (askbool
  56.         (prompt 'Do you wish to install the sample preferences?')
  57.         (default 1)
  58.         (help 'none.')
  59.         )
  60.         ((copyfiles
  61.             (source 'S/Startup-Menu.prefs')
  62.             (dest 'S:')
  63.             (confirm)
  64.             (help 'This is a sample preference file\n\n.'@copyfiles-help)
  65.             (prompt 'Copying sample prefs file')
  66.         )
  67.  
  68.         (copyfiles
  69.             (source 'S')
  70.             (dest 'S:')
  71.             (pattern '#?.rexx')
  72.             (confirm)
  73.             (help 'These are sample ARexx scripts.\n\n'@copyfiles-help)
  74.             (prompt 'Copying sample ARexx scripts')
  75.         )
  76.  
  77.         (copyfiles
  78.             (source 'S/SM')
  79.             (dest 'S:SM')
  80.             (pattern '~(#?.WIT)')
  81.             (confirm)
  82.             (help 'These files are used by the sample config.\n\n'@copyfiles-help)
  83.             (prompt 'Copying sample prefs script files')
  84.         )
  85.     )
  86. )
  87.  
  88. ; make startup-sequence backup
  89.  
  90. (If    (= (Exists "S:Startup-Sequence.SMOLD" (noreq)) 0) 
  91.     (
  92.         (copyfiles
  93.             (source 'S:Startup-Sequence')
  94.             (dest 'S:')
  95.             (newname 'Startup-sequence.SMOLD')
  96.             (nogauge)
  97.         )
  98.     )
  99. )
  100.  
  101. ; rename and copy new startup-sequence
  102. (if (>= vernum 39)
  103.     (set filetocopy "S/Startup-sequence_OS3")
  104.     (set filetocopy "S/Startup-sequence_OS2")
  105. )
  106.  
  107. (copyfiles
  108.     (prompt 'Renaming Startup-Sequence')
  109.     (help 'The Startup-sequence must be replaced. A backup (Startup-sequence.SMOLD) has been made.\n\n'@copyfiles-help)
  110.     (source filetocopy)
  111.     (dest 'S:')
  112.     (newname 'Startup-sequence')
  113.     (confirm)
  114. )
  115.  
  116. (transcript '\nStartup-Menu installed.\n')
  117.  
  118. (exit 'I hope you find Startup-Menu useful.\n    LSK _\\\\//')
  119.  
  120.     
  121.  
  122.  
  123.  
  124.  
  125.