home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch07_au / cmddemos / getnettx.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1996-12-06  |  786 b   |  36 lines
  1. global gNetFlag
  2.  
  3. on idle
  4.   if gNetFlag then
  5.     if netDone() then
  6.       if not (netError() contains "OK") then
  7.         set netText to "Error:" & netError()
  8.       else
  9.         set netText to "Error:" & netError() && "MIME:" & netMIME() && "Modified:" & netLastModDate() & RETURN & netTextResult()
  10.       end if
  11.       if netText <> EMPTY then
  12.         set the text of field "results" to netText
  13.       end if
  14.       set gNetFlag to 0
  15.     end if
  16.   end if
  17. end
  18.  
  19. on startMovie
  20.   global gButtonFamily
  21.   set gButtonFamily to ["result", "script"]
  22. end
  23.  
  24. on buttonMan
  25.   global gButtonFamily
  26.   set cName to the name of member the memberNum of sprite the clickOn
  27.   put cName
  28.   repeat with i in gButtonFamily
  29.     if i = cName then
  30.       go(label(i))
  31.       exit
  32.     end if
  33.   end repeat
  34.   updateStage()
  35. end
  36.