Swipe Cast Members

 

Compatibilities:

This item has not yet been rated

Extracst cast members from a DCR

--Copyright 1999 Chuck Neal --chuck@mediamacros.com --If you find this code helpful, send me an e-mail and let me know.  :-) on swipeCast     repeat with thisWind = 1 to count(the windowList)     set wind to getAt(the windowList, thisWind)     tell wind to set numberOfCasts to the number of castlibs     repeat with i = 1 to numberOfCasts             tell wind to set mems to the number of members of castlib i       repeat with thisMem = 1 to mems         tell wind to set x to the media of member thisMem of castlib i         tell wind to set xType to the type of member thisMem of castlib i         tell wind to set xName to the name of member thisMem of castlib i         if xType <> #empty then                     set newMem to new(xType)                     set the media of member newMem to x           set the name of member newMem to xName         end if       end repeat           end repeat end repeat end