Curl標準の右クリックメニューの表示方法

【ご質問】
コンテナ上で特定操作を行った際に、TextFieldで右クリックした際に
表示される右クリックメニューを表示することは可能でしょうか。
例.Frame上をクリックしたらTextField用の右クリックメニューが表示されるような実装

【回答】
Curl標準の右クリックメニューの表示は以下の標準APIを使用することで実現可能です。
 default-context-menu-for-text-field-proc
 default-context-menu-for-view-proc

使用方法に関しては以下のサンプルを参考にして下さい。

{curl 8.0 applet}

{let v1:#View}
{let v2:#View}
{let fr1:Frame = {Frame
                   height = 5cm,
                   width = 5cm,
                   background = “yellow”,
                    {on e:AttachEvent at fr:Frame do
                        set v1 = {fr.get-view}
                    },
                    {on e:PointerRelease at fr:Frame do
                        let bmp:BaseMenuPane =
                            {View.default-context-menu-for-text-field-proc v1 asa View}
                        {bmp.popup fr, e.x, e.y}
                    }
                }
}
{let fr2:Frame = {Frame
                   height = 5cm,
                   width = 5cm,
                   background = “green”,
                    {on e:AttachEvent at fr:Frame do
                        set v2 = {fr.get-view}
                    },
                    {on e:PointerRelease at fr:Frame do
                        let bmp:BaseMenuPane =
                            {View.default-context-menu-for-view-proc v2 asa View}
                        {bmp.popup fr, e.x, e.y}
                    }
                }
}
{VBox
    fr1,
    fr2