summaryrefslogtreecommitdiff
path: root/src/Gtk/Widgets/Sheet
diff options
context:
space:
mode:
authorCamil Staps2019-10-21 19:59:33 +0200
committerCamil Staps2019-10-21 19:59:33 +0200
commitd23e852b6f4d29f88a859c3180b9cd7e14b5dad7 (patch)
tree8cd777c4ff59b89601a56b49b1076627c8ea3a33 /src/Gtk/Widgets/Sheet
parentSimplify tuning (diff)
Add tune instances to set row/column resizability/sensitivity on GtkSheet
Diffstat (limited to 'src/Gtk/Widgets/Sheet')
-rw-r--r--src/Gtk/Widgets/Sheet/Internal.dcl4
-rw-r--r--src/Gtk/Widgets/Sheet/Internal.icl20
2 files changed, 24 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet/Internal.dcl b/src/Gtk/Widgets/Sheet/Internal.dcl
index b356f5b..05f798c 100644
--- a/src/Gtk/Widgets/Sheet/Internal.dcl
+++ b/src/Gtk/Widgets/Sheet/Internal.dcl
@@ -2,4 +2,8 @@ definition module Gtk.Widgets.Sheet.Internal
from System._Pointer import :: Pointer
+gtk_sheet_columns_set_resizable :: !Pointer !Bool !.a -> .a
+gtk_sheet_columns_set_sensitivity :: !Pointer !Bool !.a -> .a
gtk_sheet_new :: !Int !Int !String !.a -> (!Pointer, !.a)
+gtk_sheet_rows_set_resizable :: !Pointer !Bool !.a -> .a
+gtk_sheet_rows_set_sensitivity :: !Pointer !Bool !.a -> .a
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl
index e0df1e5..4fcb3d9 100644
--- a/src/Gtk/Widgets/Sheet/Internal.icl
+++ b/src/Gtk/Widgets/Sheet/Internal.icl
@@ -2,6 +2,16 @@ 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
@@ -9,3 +19,13 @@ where
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"
+}