home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch08.Lingo / tutor.dcr / 00270.txt < prev    next >
Encoding:
Text File  |  1996-12-05  |  329 b   |  13 lines
  1. global gParamNum, gParamNameList
  2.  
  3. on startMovie
  4.    set gParamNum = externalParamCount()
  5.    if gParamNum then
  6.       if voidP(gParamNameList) then set ¬¨
  7. gParamNameList = [:]
  8.       repeat with n = 1 to gParamNum
  9.          set parName = externalParamName(n)
  10.          setAProp gParamNameList, n, parName
  11.       end repeat
  12.    end if
  13. end