diff options
| author | Camil Staps | 2019-10-30 11:05:20 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-30 11:05:20 +0100 |
| commit | 3318f0b372797d02f244cf4388b1cc5bdbf70ba6 (patch) | |
| tree | 4533f021f08a9a10e6e77f92a80dd54c48054d5a /src/Gtk/Widgets.icl | |
| parent | Add SheetActivateHandler for the activate signal on GtkSheet cells (diff) | |
Add isVisible for widgets
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 |