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
Internationalize virt-ctrl.
[virt-top.git]
/
virt-ctrl
/
vc_connection_dlg.ml
diff --git
a/virt-ctrl/vc_connection_dlg.ml
b/virt-ctrl/vc_connection_dlg.ml
index
9575efc
..
f072a1d
100644
(file)
--- a/
virt-ctrl/vc_connection_dlg.ml
+++ b/
virt-ctrl/vc_connection_dlg.ml
@@
-17,6
+17,8
@@
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*)
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*)
+open Virt_ctrl_gettext.Gettext
+
type name = string
type uri = string
type service = name * uri
type name = string
type uri = string
type service = name * uri
@@
-35,7
+37,7
@@
let icon_48x48_devices_computer_png = ref None
(* Open connection dialog. *)
let open_connection parent () =
(* Open connection dialog. *)
let open_connection parent () =
- let title = "Open connection to hypervisor" in
+ let title =
s_
"Open connection to hypervisor" in
let position = `CENTER_ON_PARENT in
let dlg = GWindow.dialog ~title ~position ~parent
let position = `CENTER_ON_PARENT in
let dlg = GWindow.dialog ~title ~position ~parent
@@
-57,7
+59,7
@@
let open_connection parent () =
(* Local connections. *)
let () =
let frame =
(* Local connections. *)
let () =
let frame =
- GBin.frame ~label:
"This machine"
~packing:vbox#pack () in
+ GBin.frame ~label:
(s_ "This machine")
~packing:vbox#pack () in
let hbox = GPack.hbox ~packing:frame#add () in
hbox#set_spacing 20;
ignore (
let hbox = GPack.hbox ~packing:frame#add () in
hbox#set_spacing 20;
ignore (
@@
-71,14
+73,14
@@
let open_connection parent () =
vbox#set_spacing 5;
let xen_button =
vbox#set_spacing 5;
let xen_button =
- GButton.button ~label:
"Xen hypervisor"
+ GButton.button ~label:
(s_ "Xen hypervisor")
~packing:vbox#pack () in
ignore (xen_button#connect#clicked
~callback:(fun () ->
uri := Some local_xen_uri;
dlg#destroy ()));
let qemu_button =
~packing:vbox#pack () in
ignore (xen_button#connect#clicked
~callback:(fun () ->
uri := Some local_xen_uri;
dlg#destroy ()));
let qemu_button =
- GButton.button ~label:
"QEMU or KVM"
+ GButton.button ~label:
(s_ "QEMU or KVM")
~packing:vbox#pack () in
ignore (qemu_button#connect#clicked
~callback:(fun () ->
~packing:vbox#pack () in
ignore (qemu_button#connect#clicked
~callback:(fun () ->
@@
-88,7
+90,7
@@
let open_connection parent () =
(* Network connections. *)
let () =
let frame =
(* Network connections. *)
let () =
let frame =
- GBin.frame ~label:
"Local network"
+ GBin.frame ~label:
(s_ "Local network")
~packing:(vbox#pack ~expand:true) () in
let hbox = GPack.hbox ~packing:frame#add () in
hbox#set_spacing 20;
~packing:(vbox#pack ~expand:true) () in
let hbox = GPack.hbox ~packing:frame#add () in
hbox#set_spacing 20;
@@
-129,9
+131,10
@@
let open_connection parent () =
let hbox = GPack.hbox ~packing:vbox#pack () in
let refresh_button =
let hbox = GPack.hbox ~packing:vbox#pack () in
let refresh_button =
- GButton.button ~label:"Refresh" ~stock:`REFRESH ~packing:hbox#pack () in
+ GButton.button ~label:(s_ "Refresh")
+ ~stock:`REFRESH ~packing:hbox#pack () in
let open_button =
let open_button =
- GButton.button ~label:
"Open"
~packing:hbox#pack () in
+ GButton.button ~label:
(s_ "Open")
~packing:hbox#pack () in
ignore (refresh_button#connect#clicked ~callback:refresh);
ignore (refresh_button#connect#clicked ~callback:refresh);
@@
-154,7
+157,7
@@
let open_connection parent () =
(* Custom connections. *)
let () =
let frame =
(* Custom connections. *)
let () =
let frame =
- GBin.frame ~label:
"URI connection"
~packing:vbox#pack () in
+ GBin.frame ~label:
(s_ "URI connection")
~packing:vbox#pack () in
let hbox = GPack.hbox ~packing:frame#add () in
hbox#set_spacing 20;
ignore (GMisc.image ~stock:`CONNECT ~packing:hbox#pack ());
let hbox = GPack.hbox ~packing:frame#add () in
hbox#set_spacing 20;
ignore (GMisc.image ~stock:`CONNECT ~packing:hbox#pack ());
@@
-164,7
+167,7
@@
let open_connection parent () =
GEdit.entry ~text:"xen://localhost/"
~packing:(hbox#pack ~expand:true ~fill:true) () in
let button =
GEdit.entry ~text:"xen://localhost/"
~packing:(hbox#pack ~expand:true ~fill:true) () in
let button =
- GButton.button ~label:
"Open"
~packing:hbox#pack () in
+ GButton.button ~label:
(s_ "Open")
~packing:hbox#pack () in
ignore (button#connect#clicked
~callback:(fun () ->
ignore (button#connect#clicked
~callback:(fun () ->
@@
-176,7
+179,7
@@
let open_connection parent () =
(* Just a cancel button in the action area. *)
let cancel_button =
(* Just a cancel button in the action area. *)
let cancel_button =
- GButton.button ~label:
"Cancel"
+ GButton.button ~label:
(s_ "Cancel")
~packing:dlg#action_area#pack () in
ignore (cancel_button#connect#clicked
~callback:(fun () ->
~packing:dlg#action_area#pack () in
ignore (cancel_button#connect#clicked
~callback:(fun () ->