git.annexia.org
/
guestfs-browser.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Disk usage dialog.
[guestfs-browser.git]
/
window.ml
diff --git
a/window.ml
b/window.ml
index
a5116fc
..
f5ec47d
100644
(file)
--- 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 rec open_main_window () =
let title = "Guest Filesystem Browser" in
- let window = GWindow.window ~width:
800 ~height:6
00 ~title () in
+ let window = GWindow.window ~width:
700 ~height:7
00 ~title () in
let vbox = GPack.vbox ~packing:window#add () in
(* Do the menus. *)
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 ();
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))
);
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 ();*)
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 ();*)
(* 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.
(* The introductory text which appears in the tabbed notebook to
* tell the user how to start. XXX We should add images.