Add GtkEntryCompletion

1 files changed, 30 insertions, 0 deletions

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"