1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
(*************************************************************************)
(* *)
(* OCaml LablTk library *)
(* *)
(* Jacques Garrigue, Kyoto University RIMS *)
(* *)
(* Copyright 1999 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. *)
(* *)
(*************************************************************************)
(* $Id$ *)
val f :
title:string ->
action:(string list -> unit) ->
?dir:string ->
?filter:string ->
?file:string ->
?multi:bool -> ?sync:bool -> ?usepath:bool -> unit -> unit
(* action
[] means canceled
if multi select is false, then the list is null or a singleton *)
(* multi
If true then more than one file are selectable *)
(* sync
If true then synchronous mode *)
(* usepath
Enables/disables load path search. Defaults to true *)
val caml_dir : string -> string
(* Convert Windows-style directory separator '\' to caml-style '/' *)
|
