home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1999 January / WPCJAN99.ISO / DXRS / Buyers01.dxr / Internal_22.ls < prev    next >
Encoding:
Text File  |  1998-11-09  |  936 b   |  25 lines
  1. on consolidatecasts whichcast
  2.   set tempcastcount to 0
  3.   repeat with i = 1 to the number of castMembers of castLib whichcast
  4.     if the type of member i of castLib whichcast = #empty then
  5.       nothing()
  6.       next repeat
  7.     end if
  8.     set tempcastcount to tempcastcount + 1
  9.     copyToClipBoard(member i of castLib whichcast)
  10.     pasteClipBoardInto(member tempcastcount of castLib "temporary")
  11.   end repeat
  12.   repeat with i = 1 to the number of castMembers of castLib whichcast
  13.     erase(member i of castLib whichcast)
  14.   end repeat
  15.   set tempcastcount to 0
  16.   repeat with i = 1 to the number of castMembers of castLib "temporary"
  17.     set tempcastcount to tempcastcount + 1
  18.     copyToClipBoard(member i of castLib "temporary")
  19.     pasteClipBoardInto(member tempcastcount of castLib whichcast)
  20.   end repeat
  21.   repeat with i = 1 to the number of castMembers of castLib "temporary"
  22.     erase(member i of castLib "temporary")
  23.   end repeat
  24. end
  25.