Applet 終了中にはサブアプレットを表示できない？

[umemura]

register-exit-proc を利用して、アプリケーション終了時にスプラッシュスクリーンを表示しようと思ったのですが、
「Applet creation disallowed while exiting」というメッセージが表示されます。
おそらく、アプリケーション終了時にはスプラッシュスクリーンを表示することはできない、ということでしょうか。

Code:

{import * from CURL.ENGINE.BROWSER}
{do
    ||アプリケーション終了時にログアウト処理を登録する
    {register-exit-proc
        {fn =>
            def a = 0
            {try
                {SplashScreen.setup
                    title = "Existing Applet ...",
                    footer = "Test Example ..."
                }
                || indeterminateなプログレスバーを表示します。
                {SplashScreen.set-progress-bar-indeterminate}
                || 作業が終わるまで2秒必要と仮定しています。
                {sleep 2s}
                {SplashScreen.set-progress-bar  max = 10.0}
                {sleep 1s}
                || ループに入り、ループの中でスリープし、
                || なんらかの作業をしているような状態にします。
                let val:double = 0
                {for i = 0 below 50 do
                    set val = val + 0.2
                    {SplashScreen.set-progress-bar-value val}
                    {sleep 0.1s}
                }
                || 完了したので、スプラッシュスクリーンを破棄します。
                {SplashScreen.destroy}
             catch ex:Exception do
                {popup-message ex.message}
            }
        }
    }
}

上記の問題に関連して、
アプリケーションが終了しようとしているかどうか、というのは、どのように判断すればよいでしょうか。

AppletData のプロパティにそれっぽいものがありますが、
get-the-applet で取得できるのはApplet なので、AppletData は取得できないという認識です。

「現在のアプレットの動作状態」を取得する方法があれば教えてください。

[dyoshida]

register-exit-proc はCurl IDE ドキュメントをみると
「一般的には、ダイアログ ボックスの作成およびイベントの処理は、exit-procs では避けるようにしてください。」
と書かれているので、この時点では終了処理が進みすぎてスプラッシュウィンドウを表示するには手遅れなのでは。

アプリケーションが終了しようとしていることを知る方法ですが、WindowClose イベントハンドラを実装しては
どうでしょうか？

他のウィンドウシステムでも、アプリケーションが終了のリクエストを察知して、終了処理に入る前になにか処理を
行ったり終了をキャンセルするのにウィンドウのcloseイベントを利用していたと思うので、Curlでも同じように
実現できるのでは。

試しに独立型アプレットで終了確認と、終了前にスプラッシュスクリーンを表示するコードを書いてみました。

Code:

{curl 8.0 applet}
{import * from CURL.ENGINE.BROWSER}

{do
def layout =
    {VBox
        width = 4cm, height = 1cm,
        halign="center",
        {CommandButton
            label = "Exit",
            {on Action at btn:CommandButton do
                def graphic-root = {btn.get-graphical-root}
                {type-switch graphic-root
                 case v:View do
                    {v.close}
                }
            }
        }        
    }

def v =
    {View
        layout,
        visibility = "normal",
        {on wc:WindowClose do
            let x:String =
                {popup-question
                    "Are you sure you want to exit?"
                }
            
            {if x == Dialog.yes then
                {SplashScreen.setup
                    title = "Existing Applet ...",
                    footer = "Test Example ..."
                }
                || We will now be in a loop and sleep in the loop to fake
                || some work..
                {for i = 0 below 5 do
                    {sleep 1s}
                }
                || We are done. Destroy the Splash Screen.
                {SplashScreen.destroy}
                
                {exit}
             else
                {wc.consume}
            }
        }
    }
}

v

[umemura]

ヘルプをよく確認していませんでした。
すいません。

やはり、exit-procs ではスプラッシュスクリーンは無理そうなのですね。

私のアプレットでは、いろいろなところからexit プロシージャでアプリケーションを終了しているのですが、
exit プロシージャを直接呼ぶのではなく、「終了処理」というプロシージャを作成し、
その中でのみ exit プロシージャを呼ぶようにするべきでした。

そうすれば、dyoshida さんのアドバイスに従って、View のクローズ時などから呼び出せますね。

ありがとうございました。