X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=main.ml;h=82e4603fc2f91a142cf9ba0faee04f2e1017993e;hb=3b2348f5f4b770e3e7f886d851eeadc59bbd2357;hp=25215ac78e21ce074c63c51b92129ae516481561;hpb=63477ec4c94146bae30af05022b5a064667949a8;p=guestfs-browser.git diff --git a/main.ml b/main.ml index 25215ac..82e4603 100644 --- a/main.ml +++ b/main.ml @@ -22,8 +22,7 @@ open Utils (* 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. @@ -38,10 +37,11 @@ let () = 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.