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/Internal.icl | 5 +++++
 1 file changed, 5 insertions(+)

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

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