This is a utility to "pull in" all of your linked cast members when you want to make them internal and ship the projector. Just call it from the message window and it will make all of your linked bitmap into internal bitmaps.
--Copyright 1999 Chuck Neal
--chuck@mediamacros.com
--If you find this code helpful, send me an e-mail and let me know. :-)
on importLinkedBitmaps
set castNumbers = the number of castlibs
repeat with y = 1 to the number of castlibs
set howMany = the number of members of castlib y
repeat with x = 1 to howMany
set theMember = member x of castlib y
if the type of theMember = #bitmap then
if the fileName of theMember <> "" then
set theMedia = the media of theMember
set theName = the name of theMember
erase member theMember
set theMember = new(#bitmap, member x of castlib y)
set the media of theMember = theMedia
set the name of theMember = theName
end if
end if
end repeat
end repeat
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA