Begin export file dialogs.

[guestfs-browser.git] / window.ml

diff --git a/window.ml b/window.ml
index 10cae04..f5ec47d 100644 (file)
--- a/window.ml
+++ b/window.ml
@@ -146,6 +146,7 @@ let rec open_main_window () =
               let name = model#get ~row ~column in
               ds.set_statusbar (sprintf "Opening %s ..." name);
               ds.clear_notebook ();
+              Slave.discard_command_queue ();
               Slave.open_domain name (opened_domain ds))
   );
 
@@ -314,13 +315,17 @@ and got_volume ds rw vol =
 and connect_dialog ds () =
   debug "connect menu";
   (*ds.clear_notebook ();*)
-  failwith "XXX CONNECT DLG NOT IMPL"
+  (*Slave.discard_command_queue ();*)
+  (* XXX NOT IMPL XXX *)
+  ()
 
 (* Open the disk images dialog. *)
 and open_dialog ds () =
   debug "open menu";
   (*ds.clear_notebook ();*)
-  failwith "XXX OPEN DLG NOT IMPL"
+  (*Slave.discard_command_queue ();*)
+  (* XXX NOT IMPL XXX *)
+  ()
 
 (* The introductory text which appears in the tabbed notebook to
  * tell the user how to start.  XXX We should add images.