home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / x_tools1.sit / X-Tools1.1 / card_5403.txt < prev    next >
Text File  |  1988-01-27  |  2KB  |  64 lines
  1. -- card: 5403 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3468
  5. -- name: 
  6.  
  7.  
  8. -- part contents for background part 1
  9. ----- text -----
  10. ModResCopy - copies a resource from one file to another.
  11.  
  12. <source> - the file (stack) where the resource exists (i.e., Hyper:Home)
  13. <destination> - the file (stack) to which resource is copied
  14. <restype> - the type of resource (i.e., XCMD, ICON)
  15. <resource> - the name of the resource (i.e., ModResCopy, FileName)
  16.  
  17. note on stack references- don't use long name as a parameter because it contains the word stack in it. Use "the value of word 2 of the long name..".
  18. as with other XCMD's and XFCN's, surround actual references with quotes or use the name of a container
  19.  
  20. ------------------------
  21. examples:
  22.  
  23. A.
  24. ModResCopy "Hyper:Home", "Hyper:AnyStack", "XFCN","FileName"
  25.  
  26. B.
  27. on mouseUp
  28.   get FileName("STAK")
  29.   if it is not empty then copyCommands it
  30. end mouseUp
  31.  
  32. on copyCommands toStack
  33.   put the value of word 2 of long name of this stack into fromStack
  34.   answer "Copy to " & quote & toStack & quote & " ?"┬¼
  35.   with "CANCEL" or "OK"
  36.   if it is "OK" then
  37.     set cursor to 4
  38.     ModResCopy fromStack,toStack,"XFCN","NewMenu"
  39.     ModResCopy fromStack,toStack,"XFCN","DeleteMenu"
  40.     ModResCopy fromStack,toStack,"XCMD","EnableMenu"
  41.     ModResCopy fromStack,toStack,"XCMD","CheckMenu"
  42.     ModResCopy fromStack,toStack,"XCMD","ChangeMenu"
  43.     ModResCopy fromStack,toStack,"XCMD","ShowMenu"
  44.     set cursor to 1
  45.     answer "Copy finished!" with "OK"
  46.   end if
  47. end copyCommands
  48.  
  49.  
  50.  
  51. -- part contents for background part 2
  52. ----- text -----
  53. ModResCopy
  54.  
  55. -- part contents for background part 9
  56. ----- text -----
  57. XCMD
  58.  
  59. -- part contents for background part 4
  60. ----- text -----
  61.  
  62. ModResCopy <source>,<destination>,<restype>,<resource>
  63.  
  64.