ファイル選択ダイアログ

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

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

(*----------------------------------------------------------*)
(*Function for the event procedure                          *)
(*----------------------------------------------------------*)
open Swig
open Mwt
open Mwtlib

let btnep2 obj =
  (* do something...*)
  let fs = _WSGIappFileSelect '() in                           (* A *)
  fs->setProperty("maskFileName","ml");                        (* B *)
  fs->setProperty("defaultPosition",_True);                    (* C *)
  let ret = fs->popup() in                                     (* D *)
  let msg = _WSGIappMessageDialog '() in                       (* E *)
  msg->setProperty("width",500);                               (* F *)
  msg->setProperty("height",120);                              (* G *)
  msg->setProperty("defaultPosition",_True);                   (* H *)
  if get_int ret = get_int _WS_DIALOG_OK then begin            (* I *)
    let str = get_string(fs->getFileName()) ^ " が選択されました。" in
    ignore(msg->setProperty("labelString",(make_string(str))));
    ignore(msg->popup());
  end else
  if get_int ret = get_int _WS_DIALOG_NO then begin            (* J *)
    ignore(msg->setProperty("labelString","選択されませんでした。"));
    ignore(msg->popup());
  end else
  if get_int ret = get_int _WS_DIALOG_CANCEL then begin        (* K *)
    ignore(msg->setProperty("labelString","選択は取り消されました。"));
    ignore(msg->popup());
  end;

  ()
let _ = Callback.register "btnep2" btnep2