diff options
| author | Camil Staps | 2019-10-29 19:38:37 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-29 19:38:37 +0100 |
| commit | f03e02155bc82b5f8439e7195b543f8fda60b18e (patch) | |
| tree | db267ab51598eaba19537befa8103c205f7be0e9 /src/Gtk/Widgets.icl | |
| parent | Add general instance tune w GtkSizeRequest | gtkWidget w, remove size paramet... (diff) | |
Add grabFocus
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 |