Pharo StringMorph

Jimmy's papa參考petite-horloge這篇文章,自己稍微改寫一下,馬上就能在Pharo上看到成果!!!不過,多new幾個MyWatch後,時間的更新會出現落差,有點奇怪

宣告MyWatch類別

StringMorph subclas,s: #MyWatch
 instanceVariableNames: ''
 classVariableNames: ''
 poolDictionaries: ''
 category: 'Sandbox'

step是繼承而來的方法或訊息,顯示時時更新的內容

MyWatch>>step
 self contents: '***' , Time now printString , '***'.

以下4行指令則在WorkSpace視窗依序個別DoIt
首先讓MyWatch出現在世界

MyWatch new openInWorld.

然後暫停更新內容

MyWatch allInstances last stopStepping

然後開始更新內容

MyWatch allInstances last startStepping

然後刪除

MyWatch allInstances last delete

寄件者 scratchlab