add an option to hide the completion bar

src/lib/uTop.ml

@@ -65,6 +65,7 @@ type syntax =
   | Camlp4r
 
 let hide_reserved, get_hide_reserved, set_hide_reserved = make_variable true
+let show_box, get_show_box, set_show_box = make_variable true
 let syntax, get_syntax, set_syntax = make_variable Normal
 let phrase_terminator, get_phrase_terminator, set_phrase_terminator = make_variable ";;"
 let auto_run_lwt, get_auto_run_lwt, set_auto_run_lwt = make_variable true

src/lib/uTop.mli

@@ -47,6 +47,15 @@ val get_hide_reserved : unit -> bool
 val set_hide_reserved : bool -> unit
   (** Modifies {!hide_reserved}. *)
 
+val show_box : bool signal
+  (** If [true] (the default) the completion bar is displayed. *)
+
+val get_show_box : unit -> bool
+  (** Returns the value of {!show_box}. *)
+
+val set_show_box : bool -> unit
+  (** Modifies {!show_box}. *)
+
 (** Syntax. *)
 type syntax =
   | Normal

src/lib/uTop_main.ml

@@ -179,6 +179,8 @@ class read_phrase ~term = object(self)
     in
     self#set_completion pos words
 
+  method show_box = UTop.get_show_box ()
+
   initializer
     (* Set the source signal for the size of the terminal. *)
     UTop_private.set_size self#size;