From 49387859d56641e55fd2c6b65c632033cec53a81 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 24 Oct 2019 08:57:06 +0200
Subject: Add GtkJustification for columns of GtkSheet

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

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

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) >>|
-- 
cgit v1.2.3