summaryrefslogtreecommitdiff
path: root/src/Gtk/Widgets/Sheet.icl
diff options
context:
space:
mode:
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
-rw-r--r--src/Gtk/Widgets/Sheet.icl5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl
index e527137..d4625a3 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -58,6 +58,11 @@ setCSSClassForRange (Class cls) top_left bottom_right sheet =
toState (gtk_sheet_range_set_css_class sheet top_left bottom_right cls) >>|
pure sheet
+setRangeEditable :: !Bool !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet
+setRangeEditable setting top_left bottom_right sheet =
+ toState (gtk_sheet_range_set_editable sheet top_left bottom_right setting) >>|
+ pure sheet
+
getActiveCell :: !GtkSheet -> GtkM (Maybe (Int,Int))
getActiveCell sheet =
toStateR (gtk_sheet_get_active_cell sheet) >>= \cell=:(row,col)