diff options
| author | Camil Staps | 2019-10-23 20:21:41 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-23 20:21:41 +0200 |
| commit | bec9e255a435b3e687e7e611c2f140dab2f6bfdd (patch) | |
| tree | 20f0291f49230a74607ee6383299855a7e8aeb37 /src/Gtk/Widgets/Sheet.icl | |
| parent | Use gtk_sheet_cell_clear instead of _delete in setCellText (GtkSheet), to kee... (diff) | |
Add setRangeEditable for GtkSheet
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 5 |
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) |