WindowClose event problem with Dialog class

[Takanobu Maekawa]

Hi.

I cannot handle and consume WindowClose event with Dialog,
using the bellow code.

When a dialog shows, I expect that I cannot close the dialog window
when I push the close button.

Please tell me where is wrong.

------------------------------------------------------------------------
{curl 3.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}

{import * from CURL.GUI.BASE}
{import * from CURL.GUI.CONTROL-BASE}

{do
    let dlg:Dialog = {Dialog}
    {dlg.add
        {Frame
            {VBox "this is test dialog"}
        }
    }

    {dlg.add-event-handler
        {on e:WindowClose do
            {e.consume}
        }
    }

    {dlg.show owner=null,modal?=false}
}
------------------------------------------------------------------------

--Maekawa

*******************************************
To unsubscribe from this list, send a mail to:
mailto:[EMAIL PROTECTED]
To contact a human list administrator, send a mail to:
mailto:[EMAIL PROTECTED]
To recieve a list of other options for this list, send a mail to:
mailto:[EMAIL PROTECTED]