diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 976e6c3..380e73f 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -144,6 +144,29 @@ gtk_dialog_set_modal dialog setting env = code { ccall gtk_dialog_set_modal "pI:V:A" } +gtk_entry_get_text :: !Pointer !.a -> (!String, !.a) +gtk_entry_get_text entry env + # (ptr,env) = get entry env + = (derefString ptr, env) +where + get :: !Pointer !.a -> (!Pointer, !.a) + get _ _ = code { + ccall gtk_entry_get_text "p:p:A" + } + +gtk_entry_new :: !.a -> (!Pointer, !.a) +gtk_entry_new env = code { + ccall gtk_entry_new ":p:A" +} + +gtk_entry_set_text :: !Pointer !String !.a -> .a +gtk_entry_set_text entry text env = set entry (packString text) env +where + set :: !Pointer !String !.a -> .a + set _ _ _ = code { + ccall gtk_entry_set_text "ps:V:A" + } + gtk_events_pending :: !.a -> (!Bool, !.a) gtk_events_pending _ = code { ccall gtk_events_pending ":I:A" @@ -665,6 +688,11 @@ gtk_widget_set_halign widget align env = code { ccall gtk_widget_set_halign "pI:V:A" } +gtk_widget_set_hexpand :: !Pointer !Bool !.a -> .a +gtk_widget_set_hexpand widget align env = code { + ccall gtk_widget_set_hexpand "pI:V:A" +} + gtk_widget_set_margin_bottom :: !Pointer !Int !.a -> .a gtk_widget_set_margin_bottom widget padding env = code { ccall gtk_widget_set_margin_bottom "pI:V:A" @@ -700,6 +728,11 @@ gtk_widget_set_valign widget align env = code { ccall gtk_widget_set_valign "pI:V:A" } +gtk_widget_set_vexpand :: !Pointer !Bool !.a -> .a +gtk_widget_set_vexpand widget align env = code { + ccall gtk_widget_set_vexpand "pI:V:A" +} + gtk_widget_show :: !Pointer !.a -> .a gtk_widget_show widget env = code { ccall gtk_widget_show "p:V:A" |