diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 30 |
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" |