src/Gtk/Widgets/Sheet/Internal.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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