From 606ca0f5b7d9c1f031e558c17d66591daa04e3a4 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Sat, 4 Feb 2017 20:32:45 +0300
Subject: [PATCH] Just use a copy
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Tusen takk til Stig Erik Sandø.
---
 wsi/osx/wsi.mli | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 64 insertions(+), 1 deletion(-)
 rewrite wsi/osx/wsi.mli (100%)
 mode change 120000 => 100644

diff --git a/wsi/osx/wsi.mli b/wsi/osx/wsi.mli
deleted file mode 120000
index 24b8bda..0000000
--- a/wsi/osx/wsi.mli
+++ /dev/null
@@ -1 +0,0 @@
-/home/malc/xsrc/llpp/wsi/x11/wsi.mli
\ No newline at end of file
diff --git a/wsi/osx/wsi.mli b/wsi/osx/wsi.mli
new file mode 100644
index 0000000..7eadfc4
--- /dev/null
+++ b/wsi/osx/wsi.mli
@@ -0,0 +1,64 @@
+type cursor =
+  | CURSOR_INHERIT
+  | CURSOR_INFO
+  | CURSOR_CYCLE
+  | CURSOR_FLEUR
+  | CURSOR_TEXT
+;;
+
+type winstate =
+  | MaxVert
+  | MaxHorz
+  | Fullscreen
+;;
+
+type visiblestate =
+  | Unobscured
+  | PartiallyObscured
+  | FullyObscured
+;;
+
+class type t =
+  object
+    method display  : unit
+    method map      : bool -> unit
+    method expose   : unit
+    method visible  : visiblestate -> unit
+    method reshape  : int -> int -> unit
+    method mouse    : int -> bool -> int -> int -> int -> unit
+    method motion   : int -> int -> unit
+    method pmotion  : int -> int -> unit
+    method key      : int -> int -> unit
+    method enter    : int -> int -> unit
+    method leave    : unit
+    method winstate : winstate list -> unit
+    method quit     : 'a. 'a
+    method scroll   : int -> int -> unit
+    method zoom     : float -> int -> int -> unit
+    method opendoc  : string -> unit
+  end;;
+
+val setcursor : cursor -> unit;;
+val settitle : string -> unit;;
+val swapb : unit -> unit;;
+val readresp : Unix.file_descr -> unit;;
+val init : t -> int -> int -> int
+           -> Utils.platform -> Unix.file_descr * int * int;;
+val fullscreen : unit -> unit;;
+val reshape : int -> int -> unit;;
+val activatewin : unit -> unit;;
+val mapwin : unit -> unit;;
+val withalt : int -> bool;;
+val withctrl : int -> bool;;
+val withshift : int -> bool;;
+val withmeta : int -> bool;;
+val withnone : int -> bool;;
+val metamask : int;;
+val altmask : int;;
+val shiftmask : int;;
+val ctrlmask : int;;
+val keyname : int -> string;;
+val namekey : string -> int;;
+val setwinbgcol : int -> unit;;
+val fontsizefactor : unit -> int;;
+val kc2kt : int -> Keys.t;;
-- 
2.11.4.GIT