home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1074.lha / Programs / DefDTIcon / Install_DDTI < prev    next >
Encoding:
Text File  |  1994-12-04  |  1.7 KB  |  92 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.  
  29. ; copy icons
  30. (set iname
  31.     (askdir
  32.         (prompt 'Where will the default icons be copied to?')
  33.         (help 'This is where you want the default icons to be located.\n\n'@askdir-help)
  34.         (default 'DEVS:Icons')
  35.         (newpath)
  36.     )
  37. )
  38.  
  39.  
  40. (copyfiles
  41.     (prompt 'Copying default icons')
  42.     (help 'These are the default icons.\n\n'@copyfiles-help)
  43.     (source 'Icons')
  44.     (dest iname)
  45.     (pattern '#?.info')
  46.     (confirm)
  47. )
  48.  
  49. ;copy system icons
  50. (copyfiles
  51.     (prompt 'Copying system icons')
  52.     (help 'These are new default system icons. They are not required by DDTI.\n\n'@copyfiles-help)
  53.     (source 'SystemIcons')
  54.     (dest 'ENVARC:Sys/')
  55.     (pattern '#?.info')
  56.     (confirm)
  57. )
  58.  
  59.  
  60. (set name
  61.     (askdir
  62.         (prompt 'Where will DefDTIcon be copied to?')
  63.         (help 'This is where you want the main program to be located.\n\n'@askdir-help)
  64.         (default 'SYS:Utilities')
  65.     )
  66. )
  67.  
  68. (set @default-dest name)
  69.  
  70. (copyfiles
  71.     (help @copyfiles-help)
  72.     (source 'DefDTIcon')
  73.     (dest name)
  74.     (infos)
  75. )
  76.  
  77. (Tooltype
  78.     (dest (tackon name "DefDTIcon"))
  79.     (settooltype "ICONDIR" iname)
  80.     (noposition)
  81. )
  82.  
  83. (transcript '\nDefDTIcon installed to '@default-dest'\n')
  84.  
  85. (exit '** A reboot is neccesary before using DefDTIcon **\n I hope you find DefDTIcon useful.\n    LSK _\\\\//')
  86.  
  87.     
  88.  
  89.  
  90.  
  91.  
  92.