home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00077.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  598 b   |  21 lines
  1. on mouseUp
  2.   global gbackframe, gsis, gHtxcard
  3.   if the mouseWord = -1 then
  4.     nothing()
  5.   else
  6.     set l_wpoint to the mouseWord
  7.     set sprtname to the memberNum of sprite 21
  8.     if the foreColor of word l_wpoint of field sprtname = 6 then
  9.       set gHtxcard to word l_wpoint of field sprtname
  10.       if (char length(gHtxcard) of gHtxcard = ".") or (char length(gHtxcard) of gHtxcard = ",") then
  11.         set gHtxcard to chars(gHtxcard, 1, length(gHtxcard) - 1)
  12.       end if
  13.       set gbackframe to the frame
  14.       DoClick()
  15.       go("Hipertexto")
  16.     else
  17.       nothing()
  18.     end if
  19.   end if
  20. end
  21.