インプットフィールドでキー入力を選別するには

# キーフックのイベントプロシージャのサンプル
# WSEV_KEY_HOOKトリガで設定します。
use mwt;

sub hookop {
  my ($object) = @_;
  # 何か処理を記述して下さい
  $key = mwt::WSDkeyboard_getKey( mwt::WSGIappKeyboard() );
  if  (($key >= $mwt::WSK_0    && $key <= $mwt::WSK_9   ) ||
       ($key >= $mwt::WSK_KP_0 && $key <= $mwt::WSK_KP_9) ||
        $key == $mwt::WSK_plus      || $key == $mwt::WSK_minus  ||
        $key == $mwt::WSK_BackSpace || $key == $mwt::WSK_Delete ||
        $key == $mwt::WSK_Insert    || $key == $mwt::WSK_space  ||
        $key == $mwt::WSK_Up        || $key == $mwt::WSK_Down   ||
        $key == $mwt::WSK_Left      || $key == $mwt::WSK_Right  ||
        $key == $mwt::WSK_Return ){
    # 数字キーは処理を通す
    return;
  }
  # それ以外は捨てる
  mwt::WSDkeyboard_setKey( mwt::WSGIappKeyboard(), 0);
  return;
}
1;