サンプルイベントプロシージャ・ラベル編

マウスで選択可能なラベルにするには

# WSEV_MOUSE_PRESS(MOUSE-PRESS)トリガ、でラベルに設定します。
use mwt;

sub cbop {
  my ($object) = @_;
  #(0)マウスボタン１以外はリターン
  if ((mwt::WSGIappMouse()->getMouseStatus() & $mwt::WS_MOUSE_BTN1) == 0){
    return;
  }
  # (A)userValue プロパティに覚えている数字を取得
  $value = $object->getProperty("userValue");
  # (B)その数字をカウントアップ
  $val = $value->getLong() + 1;
  # (C)その数字の表示
  $object->setProperty("labelString",$val);
  # (D) userValue プロパティにカウントアップした数字を覚えておく
  $object->setProperty("userValue",$val);
  return;
}
1;

マウスで選択可能なラベルにするには

# WSEV_MOUSE_PRESS(MOUSE-PRESS)トリガでラベルに設定します。
use mwt;

sub cbop {
  my ($object) = @_;
  #(A) getVariantData() で覚えている値を取得
  $value = $object->getVariantData("STATUS");
  #(B) value が０だったら選択状態に、１だったら元の表示状態に戻す
  if ($value->getLong() == 0){
    #(C)元の色名称(文字列)を userString で覚えておく
    $color = $object->getProperty("backColor");
    $object->setProperty("userString",$color);
    #(D)選択色の表示状態にする
    $object->setProperty("backColor","slategray4");
    #(E)状態を覚えておく
    $object->setVariantData("STATUS",1);
  }else{
    #(F)元の色を取り出す
    $color =  $object->getProperty("userString");
    #(G)元の色の表示状態にする
    $object->setProperty("backColor",$color);
    #(H)状態を覚えておく
    $object->setVariantData("STATUS",0);
  }
}
1;

マウスでハイライトするラベルにするには

use mwt;
#サブEP1 #マウスイン
sub subop1 {
    my ($object) = @_;
    #(A)元の色名称を userString プロパティに覚えておく 
    $color = $object->getProperty("backColor");
    $object->setProperty("userString",$color);
    #(B)選択色の表示状態にする
    $object->setProperty("backColor","slategray4");
    return;
}

#サブEP2 #マウスアウト
sub subop2 {
    my ($object) = @_;
    #(C)元の色名称を取り出す
    $color = $object->getProperty("userString");
    #(D)元の色の表示状態にする
    $object->setProperty("backColor",$color);
}

#WSEV_INIT(INITIALIZE)トリガでラベルに設定します。
sub cbop {
   my ($object) = @_;
   #初期化トリガが発生して実行されると
   #サブEPを、それぞれ新しく設定します。
   #(E)イベントプロシージャの新規設定  #サブEP1
   #OP名称="ハイライトOP1"  関数=subop1  起動トリガ=WSEV_MOUSE_IN   
   $object->addProcedure("ハイライトOP1","subop1",$mwt::WSEV_MOUSE_IN);
   #(F)イベントプロシージャの新規設定  #サブEP2
   #OP名称="ハイライトOP2"  関数=subop2 起動トリガ=WSEV_MOUSE_OUT 
   $object->addProcedure("ハイライトOP2","subop2",$mwt::WSEV_MOUSE_OUT);
}
1;

マウスで選択可能なグループ化されたラベルにするには

user mwt;

# WSEV_MOUSE_PRESS(MOUSE-PRESS)トリガでラベルに設定します。
sub cbop {
  my ($object) = @_;
  #(A)userValue プロパティに設定されている値をIDとして使用する
  $val = $object->getProperty("userValue");
  #(B)選択された状態(陥没状態)にする
  $object->setProperty("shadowType",$mwt::WS_SHADOW_IN);
  #(C)親に覚えている選択されていたオブジェクトを取得する
  $parent = $object->getParent();
  $target = $parent->getVariantData("SelectedItem");
  #(D)その選択されていたオブジェクトの表示状態を元(突出状態)に戻す
  $target_obj = $target->getInstancePtr();
  if (mwt::WSGIappObjectList()->existInstance($target_obj)
            != $mwt::False){
    $target_obj->setProperty("shadowType",$mwt::WS_SHADOW_OUT);
  }
  if (mwt::WSGIappObjectList()->existInstance($target_obj) != $mwt::False &&
      $target_obj->getInstanceName() == $object->getInstanceName()){
    #(E)選択しているオブジェクトをもう一度つついた場合
    # 二度目の選択の場合は、覚えていた自分を０にして忘れる
    $parent->setVariantData("GroupValue",0);
    $parent->setVariantData("SelectedItem",0);
  }else{
    #(F)一度目の選択の場合は、自分を親に登録。
    $parent->setVariantData("GroupValue",val);      # ID
    $parent->setVariantData("SelectedItem",$object);  # WSCbaseインスタンス
  }
}
1;