From 27d2121e752f33a56ad2a4b4d0d84ff080171b76 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 28 Oct 2019 11:02:26 +0100
Subject: Add addButton for GtkDialog

---
 src/Gtk/Widgets.icl | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index de07c4f..80dad7a 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -94,6 +94,12 @@ runDialog dialog =
 	let (GtkDialog d) = gtkDialog dialog in
 	fromInt <$> toStateR (gtk_dialog_run d)
 
+addButton :: !String !GtkResponse !d -> GtkM GtkButton | gtkDialog d
+addButton text response dialog =
+	let (GtkDialog d) = gtkDialog dialog in
+	toStateR (gtk_dialog_add_button d text (toInt response)) >>= \b ->
+	pure (GtkButton b)
+
 getContentArea :: !d -> GtkBox | gtkDialog d
 getContentArea dialog =
 	let (GtkDialog d) = gtkDialog dialog in
-- 
cgit v1.2.3