diff options
Diffstat (limited to 'otherlibs/labltk/examples_camltk/fileopen.ml')
| -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])];; |