home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u590.dms / in.adf / DefTool / DefTool.doc < prev    next >
Encoding:
Text File  |  1992-10-13  |  1.7 KB  |  55 lines
  1.  
  2. DefTool
  3. ~~~~~~~
  4.  
  5. Written on an Amiga 3000UX in SAS C 5.10a by Robert Lang and dedicated to
  6. Suzanne Day and of course © Edgeware.
  7.  
  8. Another small, quick utility whipped up in C in no time at all !  This simple
  9. program sets the Default Tool of an icon.  This has the same effect as selecting
  10. "INFO" on the icon on workbench and changing the text in the Default Tool Type
  11. to the text.  Except, I'm sure you'll agree, that if you're a shell-freak like
  12. me then this is much quicker.
  13.  
  14. Usage is simple...
  15.  
  16.         DefTool File Tool
  17.  
  18.         e.g. DefTool nice_pic.info topik_45:c/mostra
  19.              (Clicking on the icon will invoke topik_45:c/mostra !)
  20.  
  21. (The file can have the .info or not, my program will figure it out.)
  22.  
  23. I haven't written any pattern matching into this, because its not really needed.
  24. The following can be done for batch jobs:
  25.  
  26. For example, suppose we want to set a range of pictures on topik_45: to be
  27. displayed using topik_45:c/mostra.  The following commands are given :
  28.  
  29. 1> list >ram:script topik_45:#?.pic.info lformat="DefTool %S%S topik_45:c/mostra"
  30. 1> execute ram:script
  31.  
  32. The first line creates a script for all #?.pic.info files on topik_45: and then
  33. the second line of course executes it.
  34.  
  35. Simple as that !  (For more info on LIST, see my article on a Megadisc
  36. somewhere...call Tim Strachan on 02-9593692 about which Megadisc the article is
  37. on....)
  38.  
  39. This program is FREELY DISTRIBUTABLE, and may not be used on any commercial
  40. product without my permission.  It can only be distributed with this document
  41. in tact and for no more than current Megadisc or Fred Fish prices.
  42.  
  43. Contact me :
  44.  
  45.         Robert Lang
  46.         P.O. Box 127
  47.         CARDIFF NSW 2285
  48.         AUSTRALIA
  49.  
  50. Bug Fixes :
  51.  
  52. V1.1 :
  53.     
  54. 31st May 1992 - added check to make sure an icon is a project !
  55.