diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 380e73f..51285e6 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -119,6 +119,14 @@ where ccall gtk_css_provider_load_from_path "psp:I:A" } +gtk_dialog_add_button :: !Pointer !String !Int !.a -> (!Pointer, !.a) +gtk_dialog_add_button dialog text response env = add dialog (packString text) response env +where + add :: !Pointer !String !Int !.a -> (!Pointer, !.a) + add _ _ _ _ = code { + ccall gtk_dialog_add_button "psI:p:A" + } + gtk_dialog_get_content_area :: !Pointer -> Pointer gtk_dialog_get_content_area dialog = code { ccall gtk_dialog_get_content_area "p:p" |