blob: 9a9e6845caaa500e40b7489f958c42c36f1a3273 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* TEST
(* Tests from manual, section intf-c *)
(*
This test is currently skipped because there is no proper way to
figure out whether Curses is available or not. If it becomes possible
to figure that out, it would be nice to be able to check that the test
compiles. Executing seems lessrelevant.
*)
* skip
reason = "curses can not be properly detected at the moment"
*)
(* File prog.ml -- main program using curses *)
open Curses;;
let main_window = initscr () in
let small_window = newwin 10 5 20 10 in
mvwaddstr main_window 10 2 "Hello";
mvwaddstr small_window 4 3 "world";
refresh();
Unix.sleep 5;
endwin()
|
