(* Main. *)
let () =
- (* XXX command line *)
- Utils.set_verbose_flag ();
+ let cli_request = Cmdline.command_line () in
(* If we're in verbose mode, print some debug information which
* could be useful in bug reports.
Slave.set_failure_hook (Window.failure ws);
Slave.set_busy_hook (Window.throbber_busy ws);
Slave.set_idle_hook (Window.throbber_idle ws);
+ Slave.set_status_hook (Window.set_statusbar ws);
+ Slave.set_progress_hook (Window.progress ws);
(* What did the user request on the command line? *)
- (*Window.run_cli_request ws cli_request;*)
+ Window.run_cli_request ws cli_request;
(* Run the main display thread. When this returns, the application
* has been closed.