EXIT トリガによる終了イベントプロシージャでダイアログを表示するには

終了するか否かのダイアログを表示。

「OK」が選択された場合は、処理を行って終了。

「NO」が選択された場合は、処理を行わず終了。

「CANCEL」が選択された場合は、処理を行わず終了もしない。

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
# オブジェクトを表示しなおすタイマープロシージャ
use mwt;

$timer = 0;
$target = 0;
sub delayproc {
  my ($object) = @_;

  if ($target != 0){
    $target->setVisible($mwt::True);
  }
  return;
}

# EXIT イベントプロシージャ本体
# 終了時にダイアログを表示する。
sub exit_ep {
  my ($object) = @_;
  if ($object->getVisible() != $mwt::False){
    return;
  }
  $msg = mwt::WSGIappMessageDialog(); #A
  $msg->setProperty("width",500);
  $msg->setProperty("no",$mwt::True);
  $msg->setProperty("defaultPosition",$mwt::True);
  $msg->setProperty("labelString",
    "Exit and save data?\n If you do not want to save and exit,push NO...");

  # ダイアログの表示
  $ret = $msg->popup(); #B

  # 初回実行時、タイマーを作成
  if ($timer == 0){
    $timer = new mwt::WSCvtimer($object,"objname");
    $timer->init();
    $timer->setProperty("interval",250);
    $timer->setProperty("cont",$mwt::False);
    $timer->addProcedure("delay-popup","delayproc",$mwt::WSEV_ACTIVATE);
  }
  if ($ret == $mwt::WS_DIALOG_OK){         # OKボタンがおされた場合 C
    # saving some data ...
    exit(0);
  }elsif ($ret == $mwt::WS_DIALOG_NO){       # NOボタンがおされた場合 D
    exit(0);
  }elsif ($ret == $mwt::WS_DIALOG_CANCEL){   # CANCELボタンが押された場合 E
    $target = $object;
    $timer->setProperty("running",$mwt::True);   # タイマーの起動
  }
  return;
}
1;

［終了確認ダイアログ］