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
eserte · Mar 15, 2021 · 3509c76 · 3509c76
1 parent 1d43c8a
commit 3509c76
Showing 1 changed file with 5 additions and 2 deletions.
diff --git 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 *