--[ForgetWindow]
-- MIAWの親スクリプトとして設定します
property pMyWindow, pbClosed

on new(me, oWindow)
   pMyWindow = oWindow
   tell the stage to timeOut(me.string).new(0, #xNothing, me)
end

on exitFrame(me, oTimeOut)
   oTimeOut.forget()
   oTimeOut.target = void
   oTimeOut = void
   pMyWindow.close()
   pMyWindow.forget()
end

まず、'on new'ハンドラは、パラメータとして消去すべきウィンドウへの参照oWindowを受取ります。そして、第1ステートメントで、そのウィンドウへの参照をプロパティに設定します。

第2ステートメントでは、タイムアウトオブジェクトを作成します(タイムアウトオブジェクトについて、詳しくは『Lingo辞書』の'timeout()'関数および'new()'関数をご参照ください)。タイムアウトオブジェクト名はユニークな名前なら何でもよいので、親スクリプトのアドレス参照をストリングにして使っています。タイムアウト時間を0とすると無指定となり、'forget()'で明示的に削除するまでタイムアウトオブジェクトは存在し続けます(ドキュメント化されてはいません)。タイムアウトハンドラの#xNothingは、ダミーとして設定しました。このハンドラは、スクリプト中にありません。ターゲットオブジェクトはこの親スクリプトで生成した子オブジェクト('me')です。

'on new'ハンドラの最終ステートメントに、'return me'がありません。これは、生成された子オブジェクトを受取って変数に格納するという必要がないからです。子オブジェクトは、タイムアウトオブジェクトのターゲットオブジェクトとして参照されています。ですから、タイムアウトオブジェクトが存在する間、子オブジェクトも存在します。タイムアウトオブジェクトが消えれば、参照はなくなり、メモリから削除されます。

もうひとつ、'timeOut'オブジェクトは、ステージに対して('tell the stage to')生成しました。それは、タイムアウトオブジェクトが(ステージを含めた)ウィンドウごとに設定されるものだからです。MIAWを消去すると、タイムアウトオブジェクトも消滅してしまいます。今回は、MIAWを消去するスクリプトですから、それでも実際上は問題ないかもしれません。けれど、スクリプト中の正規の処理で自身を消去する方が、より安定したスクリプティングだといえます。

このスクリプトの処理の本体は、'on exitFrame'ハンドラです。ここで、ドキュメントに記載のない点が、2つあります。ひとつは、タイムアウトオブジェクトも通常のフレームイベントを受取ることです。もうひとつ、ハンドラは、第2パラメータとしてタイムアウトオブジェクトを受取ります。

第1ステートメントで、受取ったタイムアウトオブジェクトを'forget()'しています。したがって処理が終了すれば、子オブジェクトもメモリから消去されます。したがって、スクリプトは、一度だけしか実行されません。これが、タイムアウトオブジェクトを使う利点です。

第2ステートメントは、タイムアウトオブジェクトのターゲットオブジェクトに設定したこの親スクリプトへの参照を、破棄しています。これを実行しない場合には、MIAWへの参照がメモリに残り、同じMIAWを再び開くことができないという問題が確認されています。

第3ステートメントでは、タイムアウトオブジェクトの参照を破棄します。'forget()'は「[タイムアウトオブジェクト]をthe timeoutListから削除」(『Lingo辞書』の'forget()'の項)するだけで、タイムアウトオブジェクトそのものが消去される訳ではありません。何らかの問題が生じることを防ぐために、これを明示的に破棄しておきます。

第4および第5ステートメントは、プロパティに設定しておいたウィンドウの参照に対して、'close window'および'forget window'を実行します。これで、MIAWがメモリから削除されます。

実際に使う場合には、MIAWからこの親スクリプトの子オブジェクトを生成すればよいです。たとえば、MIAWのボタンに設定するビヘイビアは、以下のようになります。on xForgetハンドラは、念のため受取ったパラメータが(ウィンドウ)オブジェクトかどうかの確認をしています。

on mouseUp(me)
   me.xForget(the activeWindow)
end

on xForget(me, oWindow)
   if objectP(oWindow) then
     -- 親スクリプト"ForgetWindow"から子オブジェクトを生成
     script("ForgetWindow").new(oWindow)
   end if
end