home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch07.Authoring / CommandDemos / GoToNetPage.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-10-22  |  580 b   |  32 lines

  1. global gNetFlag
  2.  
  3. on idle
  4.   if gNetFlag then
  5.     if netDone() then
  6.       set netText to netTextResult()
  7.       if netText <> EMPTY then
  8.         set the text of field "results" to netText
  9.       end if
  10.       set gNetFlag to 0
  11.     end if
  12.   end if
  13. end
  14.  
  15. on startMovie
  16.   global gButtonFamily
  17.   set gButtonFamily to ["result", "script"]
  18. end
  19.  
  20. on buttonMan
  21.   global gButtonFamily
  22.   set cName to the name of member the memberNum of sprite the clickOn
  23.   put cName
  24.   repeat with i in gButtonFamily
  25.     if i = cName then
  26.       go(label(i))
  27.       exit
  28.     end if
  29.   end repeat
  30.   updateStage()
  31. end
  32.