From ff7dbbe161cd87a157142ae1945e0f6c3ee8e556 Mon Sep 17 00:00:00 2001
From: Christopher Chavez <chrischavez@gmx.us>
Date: Mon, 15 Mar 2021 08:57:42 -0500
Subject: [PATCH] Tk.xs: Grab() method should not return anything

Address ParseXS warning:

Warning: Found a 'CODE' section which seems to be using 'RETVAL'
but no 'OUTPUT' section. in Tk.xs, line 1030
---
 Tk.xs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Tk.xs b/Tk.xs
index 61070650..106e00d2 100644
--- a/Tk.xs
+++ b/Tk.xs
@@ -1019,14 +1019,17 @@ CODE:
 OUTPUT:
  RETVAL
 
-int
+void
 Tk_Grab(win,global)
 SV *	win
 int	global
 CODE:
  {
   Lang_CmdInfo *info = WindowCommand(win,NULL,3);
-  RETVAL = Tk_Grab(info->interp,info->tkwin,global);
+  if (Tk_Grab(info->interp,info->tkwin,global) != TCL_OK)
+   {
+    croak("%s",Tcl_GetStringResult(info->interp));
+   }
  }
 
 SV *