X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=window.ml;h=f5ec47d1047d0f7c76d7d2b6c70c4567ad55ecdb;hb=277d7009668cce99d0534d780c3984675bf20cd0;hp=a5116fc59fbdd533adb1194a0eabd00c331dc25c;hpb=b07102fda0034da5840a9f33bd6d404a195b8cc9;p=guestfs-browser.git

diff --git a/window.ml b/window.ml
index a5116fc..f5ec47d 100644
--- a/window.ml
+++ b/window.ml
@@ -40,7 +40,7 @@ type display_state = {
 
 let rec open_main_window () =
   let title = "Guest Filesystem Browser" in
-  let window = GWindow.window ~width:800 ~height:600 ~title () in
+  let window = GWindow.window ~width:700 ~height:700 ~title () in
   let vbox = GPack.vbox ~packing:window#add () in
 
   (* Do the menus. *)
@@ -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.