diff options
Diffstat (limited to 'ocaml-binary-annot/otherlibs/labltk/jpf/fileselect.mli')
| -rw-r--r-- | ocaml-binary-annot/otherlibs/labltk/jpf/fileselect.mli | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/ocaml-binary-annot/otherlibs/labltk/jpf/fileselect.mli b/ocaml-binary-annot/otherlibs/labltk/jpf/fileselect.mli new file mode 100644 index 0000000000..4412a41875 --- /dev/null +++ b/ocaml-binary-annot/otherlibs/labltk/jpf/fileselect.mli @@ -0,0 +1,37 @@ +(***********************************************************************) +(* *) +(* MLTk, Tcl/Tk interface of Objective Caml *) +(* *) +(* Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis *) +(* projet Cristal, INRIA Rocquencourt *) +(* Jacques Garrigue, Kyoto University RIMS *) +(* *) +(* Copyright 2002 Institut National de Recherche en Informatique et *) +(* en Automatique and Kyoto University. All rights reserved. *) +(* This file is distributed under the terms of the GNU Library *) +(* General Public License, with the special exception on linking *) +(* described in file LICENSE found in the Objective Caml source tree. *) +(* *) +(***********************************************************************) + +(* $Id$ *) + +(* This file selecter works only under the OS with the full unix support. + For the portability, Tk.getOpenFile and Tk.getSaveFile are recommended. *) + +open Support + +val f : + title:string -> + action:(string list -> unit) -> + filter:string -> file:string -> multi:bool -> sync:bool -> unit + +(* action + [] means canceled + if multi select is false, then the list is null or a singleton *) + +(* multi select + if true then more than one file are selectable *) + +(* sync it + if true then in synchronous mode *) |