BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildRequires: hivex-devel >= 1.2.4-3
-BuildRequires: libguestfs-devel >= 1.7.24
+BuildRequires: libguestfs-devel >= 1.9.11
BuildRequires: libvirt-devel
BuildRequires: ocaml
BuildRequires: ocaml-bitstring-devel
BuildRequires: /usr/bin/pod2man
BuildRequires: /usr/bin/pod2html
-Requires: libguestfs >= 1.7.24
+Requires: libguestfs >= 1.9.11
Requires: /usr/bin/gnome-open
Requires: /usr/bin/hivexregedit
(* Guestfs Browser.
- * Copyright (C) 2010 Red Hat Inc.
+ * Copyright (C) 2010-2011 Red Hat Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
(* g#set_verbose (verbose ());*)
(* Attach progress bar callback. *)
- g#set_progress_callback (
- fun proc_nr serial position total ->
- debug "progress callback proc_nr=%d serial=%d posn=%Ld total=%Ld"
- proc_nr serial position total;
- GtkThread.async !progress_hook (position, total)
+ ignore (
+ g#set_event_callback (
+ fun g event handle buf array ->
+ if event == G.EVENT_PROGRESS && Array.length array == 4 then (
+ let proc_nr = array.(0)
+ and serial = array.(1)
+ and position = array.(2)
+ and total = array.(3) in
+ debug "progress callback proc_nr=%Ld serial=%Ld posn=%Ld total=%Ld"
+ proc_nr serial position total;
+ GtkThread.async !progress_hook (position, total)
+ )
+ ) [ G.EVENT_PROGRESS ]
);
List.iter (