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
Add file properties dialog.
[guestfs-browser.git]
/
main.ml
diff --git
a/main.ml
b/main.ml
index
439033d
..
69ee4e1
100644
(file)
--- a/
main.ml
+++ b/
main.ml
@@
-65,6
+65,8
@@
let () =
~callback:(Op_download_file.download_file tree));
ignore (tree#op_file_information
~callback:(Op_file_information.file_information tree));
~callback:(Op_download_file.download_file tree));
ignore (tree#op_file_information
~callback:(Op_file_information.file_information tree));
+ ignore (tree#op_file_properties
+ ~callback:(Op_file_properties.file_properties tree));
ignore (tree#op_inspection_dialog
~callback:(Op_inspection_dialog.inspection_dialog tree));
ignore (tree#op_view_file
ignore (tree#op_inspection_dialog
~callback:(Op_inspection_dialog.inspection_dialog tree));
ignore (tree#op_view_file
@@
-77,6
+79,11
@@
let () =
~callback:(w#connect_to (Some "xen:///")));
ignore (w#connect_none_signal
~callback:(w#connect_to None));
~callback:(w#connect_to (Some "xen:///")));
ignore (w#connect_none_signal
~callback:(w#connect_to None));
+ ignore (w#connect_uri_signal
+ ~callback:(Menu_open_uri.open_uri_dialog w));
+ ignore (w#open_disk_signal
+ ~callback:(Menu_open_disk.open_disk_dialog w));
+ ignore (w#reopen_signal ~callback:w#reopen);
ignore (
w#inspection_signal
~callback:(
ignore (
w#inspection_signal
~callback:(
@@
-89,6
+96,7
@@
let () =
Op_inspection_dialog.inspection_dialog tree os
)
);
Op_inspection_dialog.inspection_dialog tree os
)
);
+ ignore (w#about_signal ~callback:(Menu_about.open_about_dialog w));
(* What did the user request on the command line? *)
w#run_cli_request cli_request;
(* What did the user request on the command line? *)
w#run_cli_request cli_request;