-(*
- val run_cli_request : window_state -> Cmdline.cli_request -> unit
-(** This function performs the {!Cmdline.cli_request} operation.
- The actual operation happens asynchronously after this function
- has returned. *)
-*)
+val set_statusbar : window_state -> string -> unit
+ (** This callback from the slave thread (invoked in the main thread)
+ updates the status bar when some slave operation starts or
+ stops. *)
+
+val progress : window_state -> int64 * int64 -> unit
+ (** This called whenever the progress bar should move. *)
+
+val run_cli_request : window_state -> Cmdline.cli_request -> unit
+ (** This function performs the {!Cmdline.cli_request} operation.
+ The actual operation happens asynchronously after this function
+ has returned. *)