aboutsummaryrefslogtreecommitdiff
path: root/src/screen.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/screen.ml')
-rwxr-xr-xsrc/screen.ml5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/screen.ml b/src/screen.ml
index d168865..e11180b 100755
--- a/src/screen.ml
+++ b/src/screen.ml
@@ -173,7 +173,6 @@ let init () = begin
let init = Curses.keypad window true
&& Curses.noecho ()
&& Curses.start_color ()
- && Curses.use_default_colors ()
(* Build the color map *)
&& Curses.init_pair 1 Color.white Color.blue (* Titles *)
@@ -181,10 +180,10 @@ let init () = begin
&& Curses.init_pair 3 Color.black Color.white (* Selected cell *)
&& Curses.init_pair 4 Color.black Color.red (* referenced cell *)
&& Curses.init_pair 5 Color.black Color.green (* sink cell *)
- && Curses.curs_set 0 in
+ in
if not init then
- raise (Failure "Initialisation")
+ raise (Failure "Could not intialize the screen")
else
{
window = window;