diff options
Diffstat (limited to 'src/Gtk/Widgets/Sheet.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet.icl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet.icl b/src/Gtk/Widgets/Sheet.icl index e34a304..07789df 100644 --- a/src/Gtk/Widgets/Sheet.icl +++ b/src/Gtk/Widgets/Sheet.icl @@ -1,6 +1,7 @@ implementation module Gtk.Widgets.Sheet import StdEnv +import StdMaybe import Control.Monad import System._Pointer @@ -52,6 +53,18 @@ setCellText row col text sheet = toState (gtk_sheet_set_cell_text sheet row col text) >>| pure sheet +getActiveCell :: !GtkSheet -> GtkM (Maybe (Int,Int)) +getActiveCell sheet = + toStateR (gtk_sheet_get_active_cell sheet) >>= \cell=:(row,col) + | row < 0 || col < 0 + -> pure Nothing + -> pure (Just cell) + +setActiveCell :: !Int !Int !GtkSheet -> GtkM GtkSheet +setActiveCell row col sheet = + toState (gtk_sheet_set_active_cell sheet row col) >>| + pure sheet + instance tune GtkSheet GtkSheetColumnResizability where tune setting sheet = |