home *** CD-ROM | disk | FTP | other *** search
/ .net 1997 May / net 32 / NET32PC.iso / mac / NET32PPC / NET32PPC.dxr / 00358_parse button.ls < prev    next >
Encoding:
Text File  |  1997-04-11  |  302 b   |  11 lines
  1. on mouseUp
  2.   cursor(4)
  3.   put "parsing cast" & QUOTE & "source text" & QUOTE
  4.   set the text of cast "display text" to parse(the text of cast "source text", "anchor list")
  5.   if the hilite of cast "underlineLinks?" then
  6.     underlineLinks("display text", "anchor list")
  7.   end if
  8.   cursor(-1)
  9.   beep()
  10. end
  11.