[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Ocaml-tmk-devel] Handling xterm resizing
From: |
Erik de Castro Lopo |
Subject: |
[Ocaml-tmk-devel] Handling xterm resizing |
Date: |
Fri, 29 Oct 2010 16:40:21 +1100 |
HI all,
I have a trivial Ocaml/curses program below. I'd like for the program
to redraw its window when the window is resized, but this is not
happening. Clues?
Cheers,
Erik
let () =
Curses.ripoffline true ;
let w = Curses.initscr () in
( try Curses.winch_handler_on ()
with Invalid_argument "winch_handler_on" -> ()
) ;
let () = assert (Curses.start_color ()) in
assert (Curses.init_pair 1 Curses.Color.white Curses.Color.red) ;
assert (Curses.cbreak ()) ;
assert (Curses.noecho ()) ;
assert (Curses.intrflush w false) ;
assert (Curses.keypad w true) ;
Curses.border 0 0 0 0 0 0 0 0 ;
Curses.wborder w 0 0 0 0 0 0 0 0 ;
let (trows, tcols) = Curses.get_size () in
ignore (Curses.getch ()) ;
Curses.endwin () ;
Printf.printf "Term size : %d x %d\n" trows tcols ;
--
----------------------------------------------------------------------
Erik de Castro Lopo
http://www.mega-nerd.com/
- [Ocaml-tmk-devel] Handling xterm resizing,
Erik de Castro Lopo <=