home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / defdticon-1.4.lha / DefDTIcon / Install_DDTI < prev    next >
Text File  |  1992-09-02  |  1KB  |  74 lines
  1. ; DefDTIcon install script for CBM Installer
  2. ; My first using CBM installer :-!
  3. ;$VER: DDTI_install 1.2
  4. ;$AUTHOR: Lee Kindness
  5.  
  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. ; copy datatype descriptors
  16. (if (>= vernum 39)
  17.     (copyfiles
  18.         (prompt 'Copying DataType descriptors to DEVS:DataTypes')
  19.         (help 'These files are required to determine datatypes.\n\n'@copyfiles-help)
  20.         (source 'Datatypes')
  21.         (dest 'DEVS:Datatypes')
  22.         (pattern '#?')
  23.         (infos)
  24.         (confirm)
  25.     )
  26. )
  27.  
  28. ;copy icons  
  29. (copyfiles
  30.     (prompt 'Copying icons to ENVARC:Sys/')
  31.     (help 'These are the default icons.\n\n'@copyfiles-help)
  32.     (source 'Icons')
  33.     (dest 'ENVARC:Sys')
  34.     (pattern '#?.info')
  35.     (confirm)
  36.     
  37. )
  38.  
  39. ;copy AskDDTI
  40. (copyfiles
  41.     (prompt 'Copying commands to C:')
  42.     (help 'This is a support file that tells you what default icon would be loaded for a certain file.\n\n'@copyfiles-help)
  43.     (source 'AskDDTI')
  44.     (dest 'C:')
  45.     (confirm)
  46. ) 
  47.  
  48. (set name
  49.     (askdir
  50.         (prompt 'Where will DefDTIcon be copied to?')
  51.         (help 'This is where you want the main program to be located.\n\n'@askdir-help)
  52.         (default 'SYS:Utilities')
  53.     )
  54. )
  55.  
  56. (set @default-dest name)
  57.  
  58. (copyfiles
  59.     (help @copyfiles-help)
  60.     (source 'DefDTIcon')
  61.     (dest name)
  62.     (infos)
  63. )
  64.  
  65. (transcript '\nDefDTIcon installed to '@default-dest'\n')
  66.  
  67. (exit '** A reboot is neccesary before using DefDTIcon **\n I hope you find DefDTIcon useful.\n    LSK _\\\\//')
  68.  
  69.     
  70.  
  71.  
  72.  
  73.  
  74.