diff options
| author | Camil Staps | 2019-10-28 11:02:26 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-28 11:04:05 +0100 |
| commit | 27d2121e752f33a56ad2a4b4d0d84ff080171b76 (patch) | |
| tree | 8033d22d7e4f8bfab5043cb22cbaeaeca439f52f /src/Gtk/Internal.icl | |
| parent | Remove ptr class (diff) | |
Add addButton for GtkDialog
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" |