From ecb68717b4fdc61090149bda2da126d4594ace85 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 25 Oct 2019 08:48:52 +0200
Subject: Add GtkCheckMenuItem

---
 src/Gtk/Internal.icl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src/Gtk/Internal.icl')

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"
-- 
cgit v1.2.3