summaryrefslogtreecommitdiff
path: root/src/Gtk/Widgets/Sheet.icl
diff options
context:
space:
mode:
authorCamil Staps2019-10-24 08:57:06 +0200
committerCamil Staps2019-10-24 08:57:06 +0200
commit49387859d56641e55fd2c6b65c632033cec53a81 (patch)
tree9626b5c527ef4cdc9b66a7270cbcde2014cdac26 /src/Gtk/Widgets/Sheet.icl
parentAdd GtkWrapMode for GtkTextView (diff)
Add GtkJustification for columns of GtkSheet
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 6d29575..5995f3e 100644
--- a/src/Gtk/Widgets/Sheet.icl
+++ b/src/Gtk/Widgets/Sheet.icl
@@ -63,6 +63,11 @@ setCellText row col text sheet =
toState (gtk_sheet_set_cell_text sheet row col text) >>|
pure sheet
+setColumnJustification :: !GtkJustification !Int !GtkSheet -> GtkM GtkSheet
+setColumnJustification justification col sheet =
+ toState (gtk_sheet_column_set_justification sheet col (toInt justification)) >>|
+ pure sheet
+
setCSSClassForRange :: !GtkCSSClass !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet
setCSSClassForRange (Class cls) top_left bottom_right sheet =
toState (gtk_sheet_range_set_css_class sheet top_left bottom_right cls) >>|