* xwidget.c (Fxwidget_embed_steal_window)

(Fxwidget_resize_internal, Fxwidget_set_keyboard_grab)
(Fxwidget_send_keyboard_event): Check lisp types.

1 files changed, 23 insertions, 8 deletions

diff --git a/src/xwidget.c b/src/xwidget.c
index 8a8e2bd2df4..c34327bb458 100644
--- a/src/xwidget.c
+++ b/src/xwidget.c
@@ -441,8 +441,12 @@ DEFUN ("xwidget-embed-steal-window", Fxwidget_embed_steal_window, Sxwidget_embed
   (Lisp_Object xwidget_id, Lisp_Object window_id)
 {
   struct xwidget *xw;
-  int xid = XFASTINT (xwidget_id);
-  int iwindow_id = XFASTINT (window_id);
+  int xid, iwindow_id;
+
+  CHECK_NUMBER (xwidget_id);
+  CHECK_NUMBER (window_id);
+  xid = XFASTINT (xwidget_id);
+  iwindow_id = XFASTINT (window_id);
   xw = &xwidgets[xid];
   printf ("  gtk_socket_add_id: %d %d\n", xid, iwindow_id);
   //  gtk_socket_steal(GTK_SOCKET(xw->widget),iwindow_id);
@@ -460,9 +464,14 @@ DEFUN ("xwidget-resize-internal", Fxwidget_resize_internal, Sxwidget_resize_inte
   (Lisp_Object xwidget_id, Lisp_Object new_width, Lisp_Object new_height)
 {
   struct xwidget *xw;
-  int xid = XFASTINT (xwidget_id);
-  int w = XFASTINT (new_width);
-  int h = XFASTINT (new_height);
+  int xid, w, h;
+
+  CHECK_NUMBER (xwidget_id);
+  CHECK_NUMBER (new_width);
+  CHECK_NUMBER (new_height);
+  xid = XFASTINT (xwidget_id);
+  w = XFASTINT (new_width);
+  h = XFASTINT (new_height);
   xw = &xwidgets[xid];
 
   printf("resize xwidget %d (%d,%d)->(%d,%d)",xid,xw->width,xw->height,w,h);
@@ -501,8 +510,12 @@ DEFUN ("xwidget-set-keyboard-grab", Fxwidget_set_keyboard_grab, Sxwidget_set_key
   (Lisp_Object xwidget_id, Lisp_Object kbd_grab)
 {
   struct xwidget *xw;
-  int xid = XFASTINT (xwidget_id);
-  int kbd_flag = XFASTINT (kbd_grab);
+  int xid, kbd_flag;
+
+  CHECK_NUMBER (xwidget_id);
+  CHECK_NUMBER (kbd_grab);
+  xid = XFASTINT (xwidget_id);
+  kbd_flag = XFASTINT (kbd_grab);
   xw = &xwidgets[xid];
 
   printf ("kbd grab: %d %d\n", xid, kbd_flag);
@@ -586,9 +599,11 @@ DEFUN ("xwidget-send-keyboard-event", Fxwidget_send_keyboard_event, Sxwidget_sen
   FRAME_PTR f;
   struct xwidget *xw;
   GdkWindow *window;
-  int xwid = XFASTINT (xwidget_id);
+  int xwid;
   XID xid;
 
+  CHECK_NUMBER (xwidget_id);
+  xwid = XFASTINT (xwidget_id);
   xw = &xwidgets[xwid];
 
   f = (FRAME_PTR) g_object_get_data (G_OBJECT (xw->widget), XG_FRAME_DATA);