diff options
Diffstat (limited to 'src/Gtk')
-rw-r--r-- | src/Gtk/Internal.icl | 7 | ||||
-rw-r--r-- | src/Gtk/Widgets/Sheet/Clean System Files/gtksheet_library | 15 | ||||
-rw-r--r-- | src/Gtk/Widgets/Sheet/Internal.icl | 4 |
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 |