From 6eb82f6660f402f64049c0aa8dab6734b05dbf43 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 30 Oct 2019 19:45:59 +0100
Subject: Add GtkEntryCompletion

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

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

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index e9b7a27..987ae85 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -172,6 +172,11 @@ gtk_entry_new env = code {
 	ccall gtk_entry_new ":p:A"
 }
 
+gtk_entry_set_completion :: !Pointer !Pointer !.a -> .a
+gtk_entry_set_completion entry completion env = code {
+	ccall gtk_entry_set_completion "pp:V:A"
+}
+
 gtk_entry_set_text :: !Pointer !String !.a -> .a
 gtk_entry_set_text entry text env = set entry (packString text) env
 where
@@ -180,6 +185,31 @@ where
 		ccall gtk_entry_set_text "ps:V:A"
 	}
 
+gtk_entry_completion_new :: !.a -> (!Pointer, !.a)
+gtk_entry_completion_new env = code {
+	ccall gtk_entry_completion_new ":p:A"
+}
+
+gtk_entry_completion_set_inline_completion :: !Pointer !Bool !.a -> .a
+gtk_entry_completion_set_inline_completion completion setting env = code {
+	ccall gtk_entry_completion_set_inline_completion "pI:V:A"
+}
+
+gtk_entry_completion_set_inline_selection :: !Pointer !Bool !.a -> .a
+gtk_entry_completion_set_inline_selection completion setting env = code {
+	ccall gtk_entry_completion_set_inline_selection "pI:V:A"
+}
+
+gtk_entry_completion_set_model :: !Pointer !Pointer !.a -> .a
+gtk_entry_completion_set_model completion model env = code {
+	ccall gtk_entry_completion_set_model "pp:V:A"
+}
+
+gtk_entry_completion_set_text_column :: !Pointer !Int !.a -> .a
+gtk_entry_completion_set_text_column completion col env = code {
+	ccall gtk_entry_completion_set_text_column "pI:V:A"
+}
+
 gtk_events_pending :: !.a -> (!Bool, !.a)
 gtk_events_pending _ = code {
 	ccall gtk_events_pending ":I:A"
-- 
cgit v1.2.3