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 | |
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.
-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 " " |