Commit 88c01e2c authored by MARCHE Claude's avatar MARCHE Claude

reading config

parent dce31a1b
......@@ -222,7 +222,10 @@ let resize_images size =
image_transf := image ~size iconname_transf;
()
let () = resize_images 20
let () =
eprintf "reading icons...@?";
resize_images 20;
eprintf " done.@."
......
......@@ -47,7 +47,11 @@ let set_file f = match !file with
end;
file := Some f
let () = Arg.parse spec set_file usage_str
let () =
eprintf "Parsing command line...@?";
Arg.parse spec set_file usage_str;
eprintf " done.@."
let fname = match !file with
| None ->
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment