-- card: 5403 from stack: in.1 -- bmap block id: 0 -- flags: 0000 -- background id: 3468 -- name: -- part contents for background part 1 ----- text ----- ModResCopy - copies a resource from one file to another. - the file (stack) where the resource exists (i.e., Hyper:Home) - the file (stack) to which resource is copied - the type of resource (i.e., XCMD, ICON) - the name of the resource (i.e., ModResCopy, FileName) 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..". as with other XCMD's and XFCN's, surround actual references with quotes or use the name of a container ------------------------ examples: A. ModResCopy "Hyper:Home", "Hyper:AnyStack", "XFCN","FileName" B. on mouseUp get FileName("STAK") if it is not empty then copyCommands it end mouseUp on copyCommands toStack put the value of word 2 of long name of this stack into fromStack answer "Copy to " & quote & toStack & quote & " ?"¬ with "CANCEL" or "OK" if it is "OK" then set cursor to 4 ModResCopy fromStack,toStack,"XFCN","NewMenu" ModResCopy fromStack,toStack,"XFCN","DeleteMenu" ModResCopy fromStack,toStack,"XCMD","EnableMenu" ModResCopy fromStack,toStack,"XCMD","CheckMenu" ModResCopy fromStack,toStack,"XCMD","ChangeMenu" ModResCopy fromStack,toStack,"XCMD","ShowMenu" set cursor to 1 answer "Copy finished!" with "OK" end if end copyCommands -- part contents for background part 2 ----- text ----- ModResCopy -- part contents for background part 9 ----- text ----- XCMD -- part contents for background part 4 ----- text ----- ModResCopy ,,,