From 0d02a6b850e51f1e6e6efa438901a816b62e009d Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 30 Oct 2019 19:46:22 +0100
Subject: Add getEntry for GtkSheet

---
 src/Gtk/Widgets/Sheet.icl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Gtk/Widgets/Sheet.icl')

diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index 521e3ee..36d0b4d 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -102,6 +102,11 @@ setActiveCell row col sheet=:(GtkSheet s) =
 	toState (gtk_sheet_set_active_cell s row col) >>|
 	pure sheet
 
+getEntry :: !GtkSheet -> GtkM GtkEntry
+getEntry (GtkSheet s) =
+	toStateR (gtk_sheet_get_entry s) >>= \e ->
+	pure (GtkEntry e)
+
 instance tune GtkSheet GtkSheetColumnResizability
 where
 	tune setting sheet=:(GtkSheet s) =
-- 
cgit v1.2.3