4 files changed, 13 insertions, 0 deletions
diff --git a/src/Gtk/Internal.dcl b/src/Gtk/Internal.dcl
index 25cb7fe..7a70d85 100644
--- a/src/Gtk/Internal.dcl
+++ b/src/Gtk/Internal.dcl
@@ -151,6 +151,7 @@ gtk_widget_add_accelerator :: !Pointer !String !Pointer !Int !Int !Int !.a -> .a
 gtk_widget_destroy :: !Pointer !.a -> .a
 gtk_widget_get_screen :: !Pointer !.a -> (!Pointer, !.a)
 gtk_widget_get_style_context :: !Pointer !.a -> (!Pointer, !.a)
+gtk_widget_grab_focus :: !Pointer !.a -> .a
 gtk_widget_hide :: !Pointer !.a -> .a
 gtk_widget_set_halign :: !Pointer !Int !.a -> .a
 gtk_widget_set_hexpand :: !Pointer !Bool !.a -> .a
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index baa3be7..db2ef5a 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -713,6 +713,11 @@ gtk_widget_get_style_context widget env = code {
 	ccall gtk_widget_get_style_context "p:p:A"
 }
 
+gtk_widget_grab_focus :: !Pointer !.a -> .a
+gtk_widget_grab_focus widget env = code {
+	ccall gtk_widget_grab_focus "p:V:A"
+}
+
 gtk_widget_hide :: !Pointer !.a -> .a
 gtk_widget_hide widget env = code {
 	ccall gtk_widget_hide "p:V:A"
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl
index cbc8148..d604e9b 100644
--- a/src/Gtk/Widgets.dcl
+++ b/src/Gtk/Widgets.dcl
@@ -218,6 +218,7 @@ instance gtkWidget GtkWidget
 show :: !w -> GtkM w | gtkWidget w
 hide :: !w -> GtkM w | gtkWidget w
 destroy :: !w -> GtkM () | gtkWidget w
+grabFocus :: !w -> GtkM w | gtkWidget w
 
 addCSSClass :: !GtkCSSClass !w -> GtkM w | gtkWidget w
 removeCSSClass :: !GtkCSSClass !w -> GtkM () | gtkWidget w
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