git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mlvirtmanager renamed as virt-ctrl.
[virt-top.git]
/
virt-ctrl
/
vc_mainwindow.ml
diff --git
a/mlvirtmanager/mlvirtmanager_mainwindow.ml
b/virt-ctrl/vc_mainwindow.ml
old mode 100755
(executable)
new mode 100644
(file)
similarity index 97%
rename from
mlvirtmanager/mlvirtmanager_mainwindow.ml
rename to
virt-ctrl/vc_mainwindow.ml
index
918c9a6
..
3ed8add
--- a/
mlvirtmanager/mlvirtmanager_mainwindow.ml
+++ b/
virt-ctrl/vc_mainwindow.ml
@@
-109,7
+109,7
@@
let make ~open_connection
(* The treeview. *)
let (tree, model, columns, initial_state) =
(* The treeview. *)
let (tree, model, columns, initial_state) =
-
Mlvirtmanager
_connections.make_treeview
+
Vc
_connections.make_treeview
~packing:(vbox#pack ~expand:true ~fill:true) () in
ignore (start_button#connect#clicked
~packing:(vbox#pack ~expand:true ~fill:true) () in
ignore (start_button#connect#clicked
@@
-124,7
+124,7
@@
let make ~open_connection
(* Make a timeout function which is called once per second. *)
let state = ref initial_state in
let callback () =
(* Make a timeout function which is called once per second. *)
let state = ref initial_state in
let callback () =
- state :=
Mlvirtmanager
_connections.repopulate tree model columns !state;
+ state :=
Vc
_connections.repopulate tree model columns !state;
true
in
let timeout_id = GMain.Timeout.add ~ms:1000 ~callback in
true
in
let timeout_id = GMain.Timeout.add ~ms:1000 ~callback in