From 037eddfe7830723598c0c1b7d4a223f2279b6fd2 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sat, 23 Nov 2019 15:00:16 +0100
Subject: Windows compatibility

---
 src/Gtk/Internal.icl                                      |  7 +++++++
 src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library | 15 +++++++++++++++
 src/Gtk/Widgets/Sheet/Internal.icl                        |  4 ++++
 3 files changed, 26 insertions(+)
 create mode 100644 src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library

(limited to 'src/Gtk')

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 89546ba..3a817cb 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -6,6 +6,7 @@ import StdDebug
 
 import System._Pointer
 
+// *Nix:
 import code from library "-lgtk-3"
 import code from library "-lgdk-3"
 import code from library "-lpangocairo-1.0"
@@ -18,6 +19,12 @@ import code from library "-lgio-2.0"
 import code from library "-lgobject-2.0"
 import code from library "-lglib-2.0"
 
+// Windows:
+import code from library "gdk_library"
+import code from library "glib_library"
+import code from library "gobject_library"
+import code from library "gtk_library"
+
 g_free :: !Pointer !.a -> .a
 g_free p env = code {
 	ccall g_free "p:V:A"
diff --git a/src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library b/src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library
new file mode 100644
index 0000000..41101a0
--- /dev/null
+++ b/src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library	
@@ -0,0 +1,15 @@
+libgtksheet-4-0.dll
+gtk_sheet_cell_clear
+gtk_sheet_cell_get_text
+gtk_sheet_column_set_justification
+gtk_sheet_freeze
+gtk_sheet_get_active_cell
+gtk_sheet_get_entry
+gtk_sheet_new
+gtk_sheet_range_set_css_class
+gtk_sheet_range_set_editable
+gtk_sheet_row_set_visibility
+gtk_sheet_set_active_cell
+gtk_sheet_set_cell_text
+gtk_sheet_set_column_title
+gtk_sheet_thaw
\ No newline at end of file
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index d465984..a341066 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -5,8 +5,12 @@ import StdMaybe
 
 import System._Pointer
 
+// *Nix:
 import code from library "-lgtksheet-4.0"
 
+// Windows:
+import code from library "gtksheet_library"
+
 gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a)
 gtk_sheet_new rows cols title env = new rows cols (packString title) env
 where
-- 
cgit v1.2.3