F2キーが効かない？

[dyoshida]

ご希望のルックアンドフィールの反映方法ではないのですが、
レコードグリッドのセルがフォーカスを持っている場合も、F2キーのキー アクセラレータラの方を
有効にするのであれば、RecordGridUI.reserved-key?をオーバーライドしてF2を追加する
というのはどうでしょうか？

適切でない感があるコードですが・・・

Code:

{define-class public open MyRecordGridUI {inherits SkinnableRecordGridUI}
  
  {method public open {reserved-key? ev:KeyPress}:bool
    {return
        {super.reserved-key? ev} or
        (ev.value == KeyPressValue.f2)
    }
  }
}

{define-class public open MyRecordGrid {inherits RecordGrid}
  {constructor {default ...}
    {construct-super
        {splice ...},
        ui-object = {MyRecordGridUI}
    }
  }
}

{def rs =
    {RecordSet
        {RecordFields
            {RecordField "data1", default-value = ""},
            {RecordField "data2", default-value = "aaa"}
        },
        {RecordData}
    }
}

{let rg:MyRecordGrid =
    {MyRecordGrid
        record-source = rs
    }
}
{def vb = {VBox {TextField}, rg} }


{value vb}


{do
    ||F2 キーの押下イベント
    def handler =
        {on Action do
            {popup-message "F2 が押された"}
        }
    def key-accel = {KeyAccel key-accel-string = "F2", handler}
    def fm = {vb.get-focus-manager}
    {fm.add-key-accel key-accel}
}