From f4bba95a7a09519e8828a146dfd7cb57b7e7df73 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Fri, 28 Mar 2008 17:03:03 +0000
Subject: Internationalize virt-ctrl.

---
 virt-ctrl/vc_connection_dlg.ml | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

(limited to '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
--- 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.
 *)
 
+open Virt_ctrl_gettext.Gettext
+
 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 () =
-  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
@@ -57,7 +59,7 @@ let open_connection parent () =
   (* 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 (
@@ -71,14 +73,14 @@ let open_connection parent () =
     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 =
-      GButton.button ~label:"QEMU or KVM"
+      GButton.button ~label:(s_ "QEMU or KVM")
 	~packing:vbox#pack () in
     ignore (qemu_button#connect#clicked
 	      ~callback:(fun () ->
@@ -88,7 +90,7 @@ let open_connection parent () =
   (* 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;
@@ -129,9 +131,10 @@ let open_connection parent () =
 
     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 =
-      GButton.button ~label:"Open" ~packing:hbox#pack () in
+      GButton.button ~label:(s_ "Open") ~packing:hbox#pack () in
 
     ignore (refresh_button#connect#clicked ~callback:refresh);
 
@@ -154,7 +157,7 @@ let open_connection parent () =
   (* 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 ());
@@ -164,7 +167,7 @@ let open_connection parent () =
       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 () ->
@@ -176,7 +179,7 @@ let open_connection parent () =
 
   (* 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 () ->
-- 
cgit