home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / assembly.dxr / Internal_31.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  415 b   |  16 lines
  1. on checkFont
  2.   castNumber = the number of castLibs
  3.   repeat with c = 1 to castNumber
  4.     maxNum = the number of castMembers of castLib c
  5.     repeat with x = 1 to maxNum
  6.       myType = member(x, c).type
  7.       if myType = #text then
  8.         if member(x, c).font = "Moto *" then
  9.           member(x, c).font = "Arial *"
  10.           member(x, c).charSpacing = 0
  11.         end if
  12.       end if
  13.     end repeat
  14.   end repeat
  15. end
  16.