implementation module Gtk.Widgets.Sheet.Internal

import System._Pointer

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"
}

gtk_sheet_columns_set_sensitivity :: !Pointer !Bool !.a -> .a
gtk_sheet_columns_set_sensitivity sheet setting env = code {
	ccall gtk_sheet_columns_set_sensitivity "pI:V:A"
}

gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a)
gtk_sheet_new rows cols title env = new rows cols (packString title) env
where
	new :: !Int !Int !String !.a -> (!Pointer, !.a)
	new _ _ _ _ = code {
		ccall gtk_sheet_new "IIs:p:A"
	}

gtk_sheet_rows_set_resizable :: !Pointer !Bool !.a -> .a
gtk_sheet_rows_set_resizable sheet setting env = code {
	ccall gtk_sheet_rows_set_resizable "pI:V:A"
}

gtk_sheet_rows_set_sensitivity :: !Pointer !Bool !.a -> .a
gtk_sheet_rows_set_sensitivity sheet setting env = code {
	ccall gtk_sheet_rows_set_sensitivity "pI:V:A"
}