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

[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