Add progress bar.

[guestfs-browser.git] / filetree.ml

diff --git a/filetree.ml b/filetree.ml
index 0368d53..af871a7 100644 (file)
--- a/filetree.ml
+++ b/filetree.ml
@@ -239,7 +239,8 @@ and add_top_level_os ({ model = model; hash = hash } as t) name os =
 
 and add_top_level_vol ({ model = model; hash = hash } as t) name dev =
   let markup =
-    sprintf "<b>%s: %s</b>" (markup_escape name) (markup_escape dev) in
+    sprintf "<b>%s</b>\n<small>from %s</small>"
+      (markup_escape dev) (markup_escape name) in
 
   let row = model#append () in
   make_node t row (Top (Slave.Volume dev));