From 5b6009d60b0f61770bf335bdc6eb8f3d75df0064 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Sun, 27 Oct 2019 14:06:51 +0100
Subject: Add newMessageDialog; add GtkTitle type and instance tune w GtkTitle
 | gtkWindow w

---
 src/Gtk/Internal.icl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Gtk/Internal.icl')

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"
-- 
cgit v1.2.3