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