テキストフィールドの右クリックメニューのカスタマイズ

Code:
{import * from CURL.DESKTOP.CLIPBOARD}



{define-class public CustomTextFieldUI {inherits SkinnableTextFieldUI}

  {constructor public {default ...}

    {construct-super {splice ...}}

  }



  {method open public {on-context-menu-event e:ContextMenuEvent}:void

    {if not e.consumed? then

        {if-non-null menu-pane =  self.context-menu-for-text-field then

            {e.consume}





            ||表示のみ状態のフィールドに対して、

            ||右クリックメニューからテキストのコピーができるよう修正

            let popup-custom-menu?:bool = false

            {type-switch self.control

             case tf:TextField do

                set popup-custom-menu? = not tf.enabled?





                {output tf.selection-context-active?}



            }



            {if popup-custom-menu? then

                def custom-menu =

                    {MenuPane

                        {MenuAction

                            label= "コピー",

                            {on Action do

                                def clipboard = {Clipboard.get-system-clipboard}

                                {clipboard.set-object tf.value}

                            }

                        }

                    }



                set menu-pane.enabled? = true

                {custom-menu.popup self, e.x, e.y}

             else



                ||enbled?=true の場合は通常のメニュー表示

                {menu-pane.popup self, e.x, e.y}

            }

        }

    }

  }

}



{def tf = {TextField ui-object = {CustomTextFieldUI}, value = "aaa"}}



{value tf}



{CheckButton

    label = "enabled?",

    {on ValueChanged at chkb:CheckButton do

        set tf.enabled? = not chkb.value

    }

}