diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2006-01-04 16:55:50 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2006-01-04 16:55:50 +0000 |
| commit | 125ea40d4c63e7bae69e30c2b6ba2b598b1bd5c2 (patch) | |
| tree | 6884b9b9821851f7f57add043646b54fe4cc85f3 /otherlibs/labltk/examples_camltk | |
| parent | 3aaf0659a4c172c71cbf4828ed3bb6aa833c53e0 (diff) | |
fusion 3.09.0 -> 3.09.1
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7307 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/examples_camltk')
| -rw-r--r-- | otherlibs/labltk/examples_camltk/fileopen.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/examples_camltk/fileopen.ml b/otherlibs/labltk/examples_camltk/fileopen.ml index b7bd163f3..927c24851 100644 --- a/otherlibs/labltk/examples_camltk/fileopen.ml +++ b/otherlibs/labltk/examples_camltk/fileopen.ml @@ -25,7 +25,7 @@ let b = Button.create cvs [Text "Save"; Command - (function _ -> + (function _ -> let s = getSaveFile [Title "SAVE FILE TEST"; @@ -33,7 +33,7 @@ let b = FileTypes [ { typename= "just test"; extensions= [".foo"; ".test"]; mactypes= ["FOOO"; "BARR"] } ]; - InitialDir "/tmp"; + InitialDir Filename.temp_dir_name; InitialFile "hogehoge" ] in Label.configure t [Text s])];; |