From ac446c2e41d7eceda5dea6596a8b08a2a50a9a85 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 27 Oct 2019 10:09:43 +0100
Subject: Add getCellText for GtkSheet

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

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

diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index 5995f3e..f34aa4b 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -63,6 +63,9 @@ setCellText row col text sheet =
 	toState (gtk_sheet_set_cell_text sheet row col text) >>|
 	pure sheet
 
+getCellText :: !Int !Int !GtkSheet -> GtkM (Maybe String)
+getCellText row col sheet = toStateR (gtk_sheet_cell_get_text sheet row col)
+
 setColumnJustification :: !GtkJustification !Int !GtkSheet -> GtkM GtkSheet
 setColumnJustification justification col sheet =
 	toState (gtk_sheet_column_set_justification sheet col (toInt justification)) >>|
-- 
cgit v1.2.3