diff options
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index b59006e..cf11914 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -482,6 +482,12 @@ destroy widget = let (GtkWidget w) = gtkWidget widget in toState (gtk_widget_destroy w) +grabFocus :: !w -> GtkM w | gtkWidget w +grabFocus widget = + let (GtkWidget w) = gtkWidget widget in + toState (gtk_widget_grab_focus w) >>| + pure widget + addCSSClass :: !GtkCSSClass !w -> GtkM w | gtkWidget w addCSSClass (Class cls) widget = let (GtkWidget w) = gtkWidget widget in |