Version 0.1.3.

[guestfs-browser.git] / filetree_ops.ml

diff --git a/filetree_ops.ml b/filetree_ops.ml
index 5946a81..801f50a 100644 (file)
--- a/filetree_ops.ml
+++ b/filetree_ops.ml
@@ -226,3 +226,16 @@ let display_inspection_data ({ model = model } as t) path () =
 
         model#set ~row ~column:t.name_col data
       )
+
+(* Copy registry key value to clipboard. *)
+let copy_regvalue ({ model = model } as t) path () =
+  let row = model#get_iter path in
+  let hdata = get_hdata t row in
+  match hdata with
+  | { content=RegValue value; hiveh = Some h } ->
+      let t, v = Hivex.value_value h value in
+      let v = printable_hivex_value t v in
+      let cb = GData.clipboard Gdk.Atom.clipboard in
+      cb#set_text v
+
+  | _ -> () (* not a registry value row, ignore *)