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