(* 'top'-like tool for libvirt domains.
- (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+ (C) Copyright 2007-2009 Richard W.M. Jones, Red Hat Inc.
http://libvirt.org/
This program is free software; you can redistribute it and/or modify
(* Display historical CPU time. *)
let () =
- let x, y = historical_cursor in (* Yes, it's a bug in ocaml-curses *)
+ let y, x = historical_cursor in
let maxwidth = cols - x in
let line =
String.concat " "