diff options
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 5 |
1 files changed, 5 insertions, 0 deletions
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 |