diff options
author | Camil Staps | 2019-10-25 08:48:52 +0200 |
---|---|---|
committer | Camil Staps | 2019-10-25 08:48:52 +0200 |
commit | ecb68717b4fdc61090149bda2da126d4594ace85 (patch) | |
tree | 4461f55009eb83cf9a251d95e9e257585fec1c81 /src/Gtk/Internal.icl | |
parent | Remove specialized >>| for GtkM; enforce evaluation in >>= (diff) |
Add GtkCheckMenuItem
Diffstat (limited to 'src/Gtk/Internal.icl')
-rw-r--r-- | src/Gtk/Internal.icl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index dab7f62..d0993bf 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -41,6 +41,21 @@ gtk_box_pack_end box child expand fill spacing env = code { ccall gtk_box_pack_end "ppIII:V:A" } +gtk_check_menu_item_get_active :: !Pointer !.a -> (!Bool, !.a) +gtk_check_menu_item_get_active item env = code { + ccall gtk_check_menu_item_get_active "p:I:A" +} + +gtk_check_menu_item_new :: !.a -> (!Pointer, !.a) +gtk_check_menu_item_new env = code { + ccall gtk_check_menu_item_new ":p:A" +} + +gtk_check_menu_item_set_active :: !Pointer !Bool !.a -> .a +gtk_check_menu_item_set_active item setting env = code { + ccall gtk_check_menu_item_set_active "pI:V:A" +} + gtk_container_add :: !Pointer !Pointer !.a -> .a gtk_container_add container widget env = code { ccall gtk_container_add "pp:V:A" |