---

　　 将第一部分曾经使用过的“PreloaderInterface”行为作如下修改：

property myURL, myProgressBarObj

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

　　 现在，让我们看看所有代码的运行过程：

　　 （1）当“PreloaderInterface”行为被实例化并接收到了beginSprite事件时，会创建一个新的“Preloader”对象并指定预载完成或正在进行时需要调用的处理程序。

　　 （2）当“ProgressBar”行为被实例化之后，会发送一个带有其本身引用的mRegisterWidget消息，此外还有可能包括一个ID以便别的对象能够识别其组件类型。当“PreloaderInterface”对象收到此消息时，会将“ProgressBar”对象的引用存储在一个名为“myProgressBarObj”的变量中。

　　 （3）预载一旦进行，“Preloader”对象则开始给“PreloaderInterface”对象发送mShowProgress消息。然后，“PreloaderInterface”对象将会给“ProgressBar”对象发送mShowWorking和mShowProgress消息，不过这取决于预载是否已经真正开始。