on beginSprite ( me )
if the runMode = "Author" then clearCache ()
script ( "Preloader" ). new (myURL, me , # mHandlePreloadCompletion, # mShowProgess)
end
on exitframe ( me )
go to the frame
end
-- 来自接口对象(例如进度条)的消息
on mRegisterWidget ( me , obj, id)
if id = # ProgressBar then myProgressBarObj = obj
end
-- 来自“Preloader”对象的消息
on mHandlePreloadCompletion ( me , errorMsg)
if errorMsg <> EMPTY then alert "Network Error!" & return & errorMsg
else alert "All Done"
end
on mShowProgess ( me , statusList)
if myProgressBarObj. ilk = # Instance then
if statusList. state = "InProgress" then myProgressBarObj.mShowProgress(statusList.fractionDone)
else myProgressBarObj.mShowWorking()
end if
end
-- 构造行为
on getPropertyDescriptionList ( me )
pdList = [:]
pdList[ # myURL] = [ # Comment: "URL" , # format: #String , # Default: "http://www.lingoworkshop.com/Tutorials/Preloader/Main.dcr" ]
return pdList
end