X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-ctrl%2Fvc_helpers.ml;h=74e70cb4d0f55df80a55e6f98ebfb9ee7af86fd3;hb=479659599edaaf6cd9385ce00750407d61baf0f0;hp=859b8f20708a0f4266d0b41276aaf90a9eedec2d;hpb=d445e4f54fcfd19a98451eb0b5b5b5237bf9df78;p=virt-top.git

diff --git a/virt-ctrl/vc_helpers.ml b/virt-ctrl/vc_helpers.ml
index 859b8f2..74e70cb 100644
--- a/virt-ctrl/vc_helpers.ml
+++ b/virt-ctrl/vc_helpers.ml
@@ -1,4 +1,4 @@
-(* virt-manager-like graphical management tool.
+(* virt-ctrl: A graphical management tool.
    (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
    http://libvirt.org/
 
@@ -17,6 +17,8 @@
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *)
 
+open Virt_ctrl_gettext.Gettext
+
 module C = Libvirt.Connect
 module D = Libvirt.Domain
 module N = Libvirt.Network
@@ -47,13 +49,13 @@ let differences xs ys =
   d (List.sort compare xs, List.sort compare ys)
 
 let string_of_domain_state = function
-  | D.InfoNoState -> "unknown"
-  | D.InfoRunning -> "running"
-  | D.InfoBlocked -> "blocked"
-  | D.InfoPaused -> "paused"
-  | D.InfoShutdown -> "shutdown"
-  | D.InfoShutoff -> "shutoff"
-  | D.InfoCrashed -> "crashed"
+  | D.InfoNoState -> s_ "unknown"
+  | D.InfoRunning -> s_ "running"
+  | D.InfoBlocked -> s_ "blocked"
+  | D.InfoPaused -> s_ "paused"
+  | D.InfoShutdown -> s_ "shutdown"
+  | D.InfoShutoff -> s_ "shutoff"
+  | D.InfoCrashed -> s_ "crashed"
 
 (* Filter top level rows (only) in a tree_store.  If function f returns
  * true then the row remains, but if it returns false then the row is