home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1995 May / TYPEMANIA.ISO / systhema.dir / 00118_Script_118 < prev    next >
Text File  |  1995-02-27  |  394b  |  18 lines
  1. on mousedown
  2.   set startH=the mouseH
  3.   set startV= the mouseV
  4.   set the selend to 20
  5.   set the selstart to 20
  6.   hilite char 5000 of field 1
  7.   dontpassEvent
  8.   starttimer
  9.   repeat while the timer < 20
  10.     updatestage
  11.   end repeat
  12.   if abs(the mouseV-startV)>4 or abs(the mouseH-startH)>4 then
  13.     set the editabletext of sprite 1 to true
  14.   else
  15.     alert "PopUp!"
  16.   end if
  17.   
  18. end