diff options
author | Richard Jones <rjones@redhat.com> | 2010-09-02 09:00:35 +0100 |
---|---|---|
committer | Richard Jones <rjones@redhat.com> | 2010-09-02 09:00:35 +0100 |
commit | 0f6282595fbd36e53f25e42ab451a582818171b8 (patch) | |
tree | 0a43338f2a043e9926708a0c7e2d768c149cb5c6 /virt-top | |
parent | 5c42729478c134fb1c124c54aaf68fde816f8c44 (diff) | |
download | virt-top-0f6282595fbd36e53f25e42ab451a582818171b8.tar.gz virt-top-0f6282595fbd36e53f25e42ab451a582818171b8.tar.xz virt-top-0f6282595fbd36e53f25e42ab451a582818171b8.zip |
Change order of return values from getyx - fixes display of historical CPU.
In this commit:
http://cvs.savannah.gnu.org/viewvc/ocaml-tmk/functions.c?root=ocaml-tmk&r1=1.2&r2=1.3
Sam changed (fixed) the order that the coordinates are returned
from the ncurses 'getyx' call. Since this commit was made 3 years
ago it should be safe to assume everyone is using the new ocaml-ncurses
by now.
This meant the historical %CPU was being displayed off the bottom of
the screen instead of on the top row at the right. Now it is displayed
in the correct place.
Diffstat (limited to 'virt-top')
-rw-r--r-- | virt-top/virt_top.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml index 36b7e17..3990b55 100644 --- a/virt-top/virt_top.ml +++ b/virt-top/virt_top.ml @@ -1174,7 +1174,7 @@ let redraw = (* 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 " " |