[Ocaml-tmk-devel] Handling xterm resizing

[Erik de Castro Lopo]

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/