ファイル選択ダイアログ

ファイル選択ダイアログの表示

［ファイル選択ダイアログ］

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mwt;

sub btnep2 {
  my ($object) = @_;
  # アプリケーションに1つあらかじめ用意されています。
  # ファイル選択ダイアログのインスタンスにアクセスします。
  $fs = mwt::WSGIappFileSelect();                               #(A)
  $fs->setProperty("maskFileName","pl");            #(B)
  $fs->setProperty("defaultPosition",$mwt::True);  #(C)
  $ret = $fs->popup();                         #(D)

  # アプリケーションに1つあらかじめ用意されている
  # メッセージダイアログのインスタンスを取得する。
  $msg = mwt::WSGIappMessageDialog();                           #(E)
  $msg->setProperty("width",500);                   #(F)
  $msg->setProperty("height",120);                  #(G)
  $msg->setProperty("defaultPosition",$mwt::True); #(H)

  if ($ret == $mwt::WS_DIALOG_OK){                    #(I)
    $str = sprintf("%s が選択されました。", $fs->getFileName() );
    $msg->setProperty("labelString",$str);
    $msg->popup();
  }elsif ($ret == $mwt::WS_DIALOG_NO){                #(J)
    $msg->setProperty("labelString","選択されませんでした。");
    $msg->popup();
  }elsif ($ret == $mwt::WS_DIALOG_CANCEL){               #(K)
    $msg->setProperty("labelString","選択は取り消されました。");
    $msg->popup();
  }
  return;
}
1;