サンプルイベントプロシージャ・インプットフィールド編

リターンキーで特定のイベントプロシージャを実行するには

use mwt;
# WSEV_KEY_HOOKトリガで WSCvifield インスタンスに設定します。
sub cbop {
  my ($object) = @_;
  # (A)入力されつつあるキーを取得。
  $key = mwt::WSGIappKeyboard()->getKey();

  # (B)キーがリターンキーであれば
  if ($key == $mwt::WSK_Return){
    # "入力確定"なる名称をもつイベントプロシージャを実行。
    $object->execProcedure("入力確定");
  }
  return;
}
1;

初期時入力で前回入力文字列をクリアするには

• (1)フォーカスが新たにあたった場合、クリアフラグを立てます。
  
  
• (2)マウスがクリックされた場合、クリアフラグを立てます。
  
  
• (3)キー入力された場合、クリアフラグがたっていたら、クリアします。
  
  
• (1),(2),(3)のサブイベントプロシージャを張り付けて初期化します。

use mwt;
# フォーカスがあたっていたインプットフィールドを保持する変数
$focus_if = 0;

# WSEV_FOCUS_CH トリガで起動するサブEP
sub _focus_ch_ {
  my ($object) = @_;
  # (A) フォーカスが移動して来たのかを調査
  if ($focus_if != 0 &&
      $focus_if->getInstanceName() != $object->getInstanceName() &&
      $object->getFocus() != &mwt::False ){

    # (B)他のオブジェクトからフォーカスが移動してきた場合、
    # クリアするタイミング。そのことをフラグに覚えておく
    $object->setVariantData("CLEAR TIMING",1);
    # (C)新たにフォーカスがあたったのは、自分。
    $focus_if = $object;
  }
  return;}
#WSEV_MOUSE_PRESS トリガで起動するサブEP
sub _btn_press_ {
  my ($object) = @_;
  # (D) マウスでクリックされたら
  # クリアするタイミング。そのことをフラグに覚えておく
  $object->setVariantData("CLEAR TIMING",1);
  $object->setProperty("cursorPos",0);
  # (E)新たにフォーカスがあたったのは、自分。
  $focus_if = $object;
  return;
}
# WSEV_KEY_PRESS トリガで起動するサブEP
sub _key_hook_ {
  my ($object) = @_;
  # (F) キー入力時に、クリアタイミングかどうか調査
  $fl = $object->getVariantData("CLEAR TIMING");
  if ($fl->getLong() == 1){
    $key = WSGIappKeygoard()->getKey();
    # (G)クリアタイミングで、移動キーでなければ
    if ($key != $mwt::WSK_Tab &&
        $key != $mwt::WSK_Up &&
        $key != $mwt::WSK_Down &&
        $key != $mwt::WSK_Left &&
        $key != $mwt::WSK_Right ){
      # (H)クリア。
      $object->setProperty("labelString","");
    }else{
      return;
    }
  }
  # (I)クリアタイミングフラグを落とす。
  $object->setVariantData("CLEAR TIMING",0);
  return;
}

# 前回入力文字列クリア本体
# WSEV_INITIALIZE トリガでインプットフィールドに設定します。
sub ifdclr {
  my ($object) = @_;
  # フォーカスがあたったときに起動するサブEPを設定
  $object->addProcedure("ac1","_focus_ch_",$mwt::WSEV_FOCUS_CH);

  # マウスがクリックされたときに起動するサブEPを設定
  $object->addProcedure("ac2","_btn_press_",$mwt::WSEV_MOUSE_PRESS);

  # キー入力されたときに起動するサブEPを設定
  $object->addProcedure("ac3","_key_hook_",$mwt::WSEV_KEY_HOOK);
}
1;