diff options
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 6f54acc..aed7b79 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -256,6 +256,15 @@ gtk_menu_shell_append shell item env = code { ccall gtk_menu_shell_append "pp:V:A" } +gtk_message_dialog_new_with_markup :: !Pointer !Int !Int !Int !String !.a -> (!Pointer, !.a) +gtk_message_dialog_new_with_markup window flags type buttons text env = + new window flags type buttons (packString text) env +where + new :: !Pointer !Int !Int !Int !String !.a -> (!Pointer, !.a) + new _ _ _ _ _ _ = code { + ccall gtk_message_dialog_new "pIIIs:p:A" + } + gtk_paned_new :: !Bool !.a -> (!Pointer, !.a) gtk_paned_new vertical env = code { ccall gtk_paned_new "I:p:A" |