Make flicker free hack depend on command line parameter
authormalc <av1474@comtv.ru>
Wed, 16 Jan 2013 01:30:11 +0000 (16 05:30 +0400)
committermalc <av1474@comtv.ru>
Wed, 16 Jan 2013 01:30:11 +0000 (16 05:30 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 1337c44..91502e3 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -568,6 +568,8 @@ let defconf =
   }
 ;;
 
+let wtmode = ref false;;
+
 let findkeyhash c name =
   try List.assoc name c.keyhashes
   with Not_found -> failwith ("invalid mode name `" ^ name ^ "'")
@@ -1886,7 +1888,7 @@ let opendoc path password =
 
 let reload () =
   state.anchor <- getanchor ();
-  state.wthack <- true;
+  state.wthack <- !wtmode;
   opendoc state.path state.password;
 ;;
 
@@ -6973,6 +6975,8 @@ let () =
          ("-dest", Arg.String (fun s -> state.nameddest <- s),
          "<named destination> Set named destination");
 
+         ("-wtmode", Arg.Set wtmode, "wt mode");
+
          ("-v", Arg.Unit (fun () ->
            Printf.printf
              "%s\nconfiguration path: %s\n"