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

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

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

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

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

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
# オブジェクトを表示しなおすタイマープロシージャ
timer = nil
target = nil
def delayproc(object)
  if target != nil
    target.setVisible(Mwt::True) 
  end
end

# EXIT イベントプロシージャ本体
# 終了時にダイアログを表示する。
def exit_ep(object)
  if object.getVisible() != Mwt::False
    return 
  end
  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 == nil
    parent = object.getParentWindow() 
    timer = Mwt::WSCbase::getNewInstance("WSCvtimer",parent,"objname") 
    timer.init 
    timer.setProperty("interval",250) 
    timer.setProperty("cont",Mwt::False) 
    timer.addProcedure("delay-popup","delayproc",Mwt::WSEV_ACTIVATE) 
  end

  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)    # タイマーの起動
  end
end

［終了確認ダイアログ］