From f03e02155bc82b5f8439e7195b543f8fda60b18e Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 29 Oct 2019 19:38:37 +0100
Subject: Add grabFocus

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

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

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
-- 
cgit v1.2.3