Dialogの派生クラスで、shiftキーが押されたイベントを取得する方法

【ご質問】
Dialogの派生クラスで、shiftキーが押されたイベントを取得するには
どのような方法があるでしょうか？(on-raw-key-pressメソッドで取得できない？)

【回答】
特定のDialogのみで”キー押下時のイベント”を取得することはできません。

もし、アプレット全体でイベントを取得することが許されるのであれば、
GuiManagerにイベントを追加することで可能となります。

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{let frame:Frame = {Frame}}
{let dialog:Dialog = {Dialog
width = 5cm,
height = 5cm,
{VBox
“↓実行されたイベントを表示”,
frame
}
}
}
{let btn:CommandButton = {CommandButton
label = “ポップアップ表示”,
{on Action do
{dialog.show}
}
}
}

{let gm:GuiManager = {get-gui-manager}}
{gm.add-event-handler
{on raw-key-event:RawKeyPress do
{if raw-key-event.shift? == true then
{frame.add
replace? = true,
raw-key-event
}
{dump “TEST—“}
}
}
}

{VBox
btn
}