summaryrefslogtreecommitdiff
path: root/src/Gtk
diff options
context:
space:
mode:
Diffstat (limited to 'src/Gtk')
-rw-r--r--src/Gtk/Internal.icl7
-rw-r--r--src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library15
-rw-r--r--src/Gtk/Widgets/Sheet/Internal.icl4
3 files changed, 26 insertions, 0 deletions
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