From 3318f0b372797d02f244cf4388b1cc5bdbf70ba6 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 30 Oct 2019 11:05:20 +0100
Subject: Add isVisible for widgets

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

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

diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl
index e457ee8..ff162cd 100644
--- a/src/Gtk/Widgets.icl
+++ b/src/Gtk/Widgets.icl
@@ -489,6 +489,11 @@ hide widget =
 	toState (gtk_widget_hide w) >>|
 	pure widget
 
+isVisible :: !w -> GtkM Bool | gtkWidget w
+isVisible widget =
+	let (GtkWidget w) = gtkWidget widget in
+	toStateR (gtk_widget_is_visible w)
+
 destroy :: !w -> GtkM () | gtkWidget w
 destroy widget =
 	let (GtkWidget w) = gtkWidget widget in
-- 
cgit v1.2.3