Fix constness of ptr argument to GuiListViewEx

Author: tjammer

CHANGES.md

@@ -1,3 +1,9 @@
+1.5.1 (2025-10-14)
+------------------
+
+* Fix constness of ptr argument to `GuiListViewEx`
+* Distingish msys and other mingw environments
+
 1.5.0 (2025-10-08)
 ------------------
 

dune-project

@@ -17,7 +17,7 @@
 
 (package
  (name raylib)
- (version 1.5.0)
+ (version 1.5.1)
  (description "OCaml bindings for raylib")
  (synopsis "OCaml bindings for raylib")
  (depends
@@ -55,7 +55,7 @@
 
 (package
  (name raygui)
- (version 1.5.0)
+ (version 1.5.1)
  (description "OCaml bindings for raygui")
  (synopsis "OCaml bindings for raygui")
  (depends
@@ -64,7 +64,7 @@
 
 (package
  (name raylib-callbacks)
- (version 1.5.0)
+ (version 1.5.1)
  (description "OCaml bindings for raygui")
  (synopsis "OCaml bindings for raygui")
  (depends

raygui.opam

@@ -1,6 +1,6 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-version: "1.5.0"
+version: "1.5.1"
 synopsis: "OCaml bindings for raygui"
 description: "OCaml bindings for raygui"
 maintainer: ["[email protected]"]

raylib-callbacks.opam

@@ -1,6 +1,6 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-version: "1.5.0"
+version: "1.5.1"
 synopsis: "OCaml bindings for raygui"
 description: "OCaml bindings for raygui"
 maintainer: ["[email protected]"]

raylib.opam

@@ -1,6 +1,6 @@
 # This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-version: "1.5.0"
+version: "1.5.1"
 synopsis: "OCaml bindings for raylib"
 description: "OCaml bindings for raylib"
 maintainer: ["[email protected]"]

src/c/raygui/functions.ml

@@ -171,8 +171,9 @@ module Functions (F : Ctypes.FOREIGN) = struct
   (*  List View with extended parameters *)
   let _list_view_ex =
     foreign "GuiListViewEx"
-      (Raylib.Rectangle.t @-> ptr string @-> int @-> ptr int @-> ptr int @-> int
-     @-> returning int)
+      (Raylib.Rectangle.t
+      @-> const (ptr string)
+      @-> int @-> ptr int @-> ptr int @-> int @-> returning int)
 
   (*  Message Box control, displays a message *)
   let _message_box =