home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SERVADRE.DXR / 02000_tScript.ls < prev    next >
Encoding:
Text File  |  1998-03-18  |  993 b   |  30 lines
  1. on getlistofBitMembers j
  2.   if j > the number of castLibs then
  3.     return ["CASTLIB NICHT VORHANDEN!", EMPTY, EMPTY]
  4.     exit
  5.   end if
  6.   set tlist to [:]
  7.   set tselect to []
  8.   set tProblem to [:]
  9.   repeat with i = 1 to the number of castMembers of castLib j
  10.     if the type of member i of castLib j = #bitmap then
  11.       if the depth of member i of castLib j = 32 then
  12.         setaProp(tProblem, i, the depth of member i of castLib j)
  13.       end if
  14.       if the palette of member i of castLib j = -1 then
  15.         setaProp(tProblem, i, "Mac-Palette" && the depth of member i of castLib j)
  16.       end if
  17.       if the depth of member i of castLib j > 8 then
  18.         setaProp(tlist, i, the depth of member i of castLib j)
  19.         append(tselect, [i, i])
  20.       end if
  21.     end if
  22.   end repeat
  23.   if not (tProblem = [:]) then
  24.     put "Probleme:" && tProblem
  25.   end if
  26.   put "Bitmaps mit einer Farbtiefe > 8 Bit:" && tlist
  27.   set the selection of castLib j to tselect
  28.   return [tProblem, tlist, tselect]
  29. end
  30.