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. *)
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))
);
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.