diff options
Diffstat (limited to 'src/Gtk/Widgets/Sheet/Internal.icl')
| -rw-r--r-- | src/Gtk/Widgets/Sheet/Internal.icl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/Gtk/Widgets/Sheet/Internal.icl b/src/Gtk/Widgets/Sheet/Internal.icl index 060d6ab..11f5f5a 100644 --- a/src/Gtk/Widgets/Sheet/Internal.icl +++ b/src/Gtk/Widgets/Sheet/Internal.icl @@ -141,3 +141,19 @@ where push_a_b 0 pop_a 1 } + +gtk_sheet_range_set_editable :: !Pointer !(!Int,!Int) !(!Int,!Int) !Bool !.a -> .a +gtk_sheet_range_set_editable sheet (r1,c1) (r2,c2) setting env + # range = IF_INT_64_OR_32 {#c1<<32+r1,c2<<32+r2} {#r1,c1,r2,c2} + = set sheet (get_ptr range + IF_INT_64_OR_32 24 16) setting env +where + set :: !Pointer !Pointer !Bool !.a -> .a + set _ _ _ _ = code { + ccall gtk_sheet_range_set_editable "ppI:V:A" + } + + get_ptr :: !{#Int} -> Pointer + get_ptr _ = code { + push_a_b 0 + pop_a 1 + } |