home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 10: University / CDAT10.iso / TUTORIALES.DXR / 00026_CursorTexto.ls < prev    next >
Encoding:
Text File  |  1999-10-20  |  291 b   |  15 lines
  1. on mouseLeave me
  2.   cursor(0)
  3. end
  4.  
  5. on mouseWithin me
  6.   pointClicked = the mouseLoc
  7.   Miembro = sprite(the currentSpriteNum).member
  8.   opcion = PointToLine(sprite(the currentSpriteNum), pointClicked)
  9.   if opcion < Miembro.text.lines.count then
  10.     cursor(280)
  11.   else
  12.     cursor(0)
  13.   end if
  14. end
  15.