diff options
author | Camil Staps | 2019-10-21 10:26:13 +0200 |
---|---|---|
committer | Camil Staps | 2019-10-21 10:26:13 +0200 |
commit | 4d9b0222942bd11c490d476ae60f3709017b804b (patch) | |
tree | 3cd20e0792c42429d786d5f38383d6996241a1a3 /src/Gtk/Widgets/Sheet/Internal.icl | |
parent | Add GtkScrolledWindow (diff) |
Add GtkSheet
Diffstat (limited to 'src/Gtk/Widgets/Sheet/Internal.icl')
-rw-r--r-- | src/Gtk/Widgets/Sheet/Internal.icl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl new file mode 100644 index 0000000..e0df1e5 --- /dev/null +++ b/src/Gtk/Widgets/Sheet/Internal.icl @@ -0,0 +1,11 @@ +implementation module Gtk.Widgets.Sheet.Internal + +import System._Pointer + +gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a) +gtk_sheet_new rows cols title env = new rows cols (packString title) env +where + new :: !Int !Int !String !.a -> (!Pointer, !.a) + new _ _ _ _ = code { + ccall gtk_sheet_new "IIs:p:A" + } |