home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch07_au / cmddemos / simplayr.dir / 00001.ls next >
Encoding:
Text File  |  1996-12-06  |  411 b   |  16 lines
  1. on mouseUp
  2.   global gSWAStatus, gSWAflag, gSWAFile
  3.   if gSWAFile <> the text of field "argument" then
  4.     stop(member "SWAHolder")
  5.     set gSWAFile to the text of field "argument"
  6.     set the URL of member "SWAHolder" to gSWAFile
  7.   end if
  8.   if (gSWAStatus <= 2) or (gSWAStatus = 4) then
  9.     play frame member "SWAHolder"
  10.   else
  11.     if gSWAStatus = 3 then
  12.       pause(member "SWAHolder")
  13.     end if
  14.   end if
  15. end
  16.