From 850caedbe6f0cf860338f1d539fcde259b274b05 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Thu, 31 Oct 2019 15:58:52 +0100 Subject: Use import code from library instead of environments to link with Gtk and GtkSheet --- src/Gtk/Internal.icl | 11 +++++++++++ src/Gtk/Widgets/Sheet/Internal.icl | 2 ++ 2 files changed, 13 insertions(+) (limited to 'src') diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index c76f01a..8a32b2c 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -7,6 +7,17 @@ import StdDebug import System._Pointer import code from "clean_gtk_support." +import code from library "-lgtk-3" +import code from library "-lgdk-3" +import code from library "-lpangocairo-1.0" +import code from library "-lpango-1.0" +import code from library "-latk-1.0" +import code from library "-lcairo-gobject" +import code from library "-lcairo" +import code from library "-lgdk_pixbuf-2.0" +import code from library "-lgio-2.0" +import code from library "-lgobject-2.0" +import code from library "-lglib-2.0" g_free :: !Pointer !.a -> .a g_free p env = code { diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl index 9717cb1..d465984 100644 --- a/src/Gtk/Widgets/Sheet/Internal.icl +++ b/src/Gtk/Widgets/Sheet/Internal.icl @@ -5,6 +5,8 @@ import StdMaybe import System._Pointer +import code from library "-lgtksheet-4.0" + 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