6 files changed, 30 insertions, 1 deletions
diff --git a/src/Gtk/Types.dcl b/src/Gtk/Types.dcl
index 31599a2..d82ca0c 100644
--- a/src/Gtk/Types.dcl
+++ b/src/Gtk/Types.dcl
@@ -21,6 +21,14 @@ from StdOverloaded import class fromInt, class toInt
 
 instance toInt GtkFileChooserAction
 
+:: GtkJustification
+	= JustifyLeft
+	| JustifyRight
+	| JustifyCenter
+	| JustifyFill
+
+instance toInt GtkJustification
+
 :: GtkLabel
 	= Label !String
 	| NoLabel
diff --git a/src/Gtk/Types.icl b/src/Gtk/Types.icl
index 5248ddd..0c6aed8 100644
--- a/src/Gtk/Types.icl
+++ b/src/Gtk/Types.icl
@@ -11,6 +11,14 @@ where
 		SelectFolderAction -> 2
 		CreateFolderAction -> 3
 
+instance toInt GtkJustification
+where
+	toInt justification = case justification of
+		JustifyLeft   -> 0
+		JustifyRight  -> 1
+		JustifyCenter -> 2
+		JustifyFill   -> 3
+
 margin :: !Int -> GtkMargins
 margin n =
 	{ left   = n
diff --git a/src/Gtk/Widgets/Sheet.dcl b/src/Gtk/Widgets/Sheet.dcl
index 45014ee..3643a7a 100644
--- a/src/Gtk/Widgets/Sheet.dcl
+++ b/src/Gtk/Widgets/Sheet.dcl
@@ -8,7 +8,7 @@ definition module Gtk.Widgets.Sheet
 
 from Gtk.State import :: GtkM
 from Gtk.Tune import class tune
-from Gtk.Types import :: GtkCSSClass
+from Gtk.Types import :: GtkCSSClass, :: GtkJustification
 from Gtk.Widgets import
 	class gtkWidget, :: GtkWidget,
 	class gtkContainer, :: GtkContainer
@@ -31,6 +31,8 @@ setRowTitle :: !Int !String !GtkSheet -> GtkM GtkSheet
 setRowTitles :: ![String] !GtkSheet -> GtkM GtkSheet
 
 setCellText :: !Int !Int !String !GtkSheet -> GtkM GtkSheet
+
+setColumnJustification :: !GtkJustification !Int !GtkSheet -> GtkM GtkSheet
 setCSSClassForRange :: !GtkCSSClass !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet
 setRangeEditable :: !Bool !(!Int,!Int) !(!Int,!Int) !GtkSheet -> GtkM GtkSheet
 
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) >>|
diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index 14499f5..aabe093 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -20,6 +20,7 @@ gtk_sheet_insert_columns :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_delete_columns :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_get_columns_count :: !Pointer !.a -> (!Int, !.a)
 gtk_sheet_set_column_title :: !Pointer !Int !String !.a -> .a
+gtk_sheet_column_set_justification :: !Pointer !Int !Int !.a -> .a
 gtk_sheet_columns_set_resizable :: !Pointer !Bool !.a -> .a
 gtk_sheet_columns_set_sensitivity :: !Pointer !Bool !.a -> .a
 
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index 11f5f5a..9cb4a83 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -88,6 +88,11 @@ where
 		ccall gtk_sheet_set_column_title "pIs:V:A"
 	}
 
+gtk_sheet_column_set_justification :: !Pointer !Int !Int !.a -> .a
+gtk_sheet_column_set_justification sheet col setting env = code {
+	ccall gtk_sheet_column_set_justification "pII:V:A"
+}
+
 gtk_sheet_columns_set_resizable :: !Pointer !Bool !.a -> .a
 gtk_sheet_columns_set_resizable sheet setting env = code {
 	ccall gtk_sheet_columns_set_resizable "pI:V:A"