From aa61edd3095f082a2c717e67aeb9efe563e0cfc4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gr=C3=A9goire=20Jadi?= Date: Tue, 16 Jul 2013 19:39:19 +0200 Subject: [PATCH] * src/xwidget.c (Fxwidget_view_model, Fxwidget_view_window): Add accessors to xwidget_view components. --- src/xwidget.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/src/xwidget.c b/src/xwidget.c index 16678068c11..e716308e27f 100644 --- a/src/xwidget.c +++ b/src/xwidget.c @@ -1437,6 +1437,24 @@ DEFUN ("xwidget-view-info", Fxwidget_view_info , Sxwidget_view_info, 1, 1, 0, do return info; } +DEFUN ("xwidget-view-model", Fxwidget_view_model, Sxwidget_view_model, + 1, 1, 0, + doc: /* get xwidget view model */) + (Lisp_Object xwidget_view) +{ + CHECK_XWIDGET_VIEW (xwidget_view); + return XXWIDGET_VIEW (xwidget_view)->model; +} + +DEFUN ("xwidget-view-window", Fxwidget_view_window, Sxwidget_view_window, + 1, 1, 0, + doc: /* get xwidget view window */) + (Lisp_Object xwidget_view) +{ + CHECK_XWIDGET_VIEW (xwidget_view); + return XXWIDGET_VIEW (xwidget_view)->w; +} + DEFUN ("xwidget-send-keyboard-event", Fxwidget_send_keyboard_event, Sxwidget_send_keyboard_event, 2, 2, 0, doc:/* synthesize a kbd event for a xwidget. */ ) (Lisp_Object xwidget, Lisp_Object keydescriptor) @@ -1572,6 +1590,8 @@ syms_of_xwidget (void) defsubr (&Sxwidget_view_info); defsubr (&Sxwidget_resize); defsubr (&Sget_buffer_xwidgets); + defsubr (&Sxwidget_view_model); + defsubr (&Sxwidget_view_window); #ifdef HAVE_WEBKIT_OSR defsubr (&Sxwidget_webkit_goto_uri); -- 2.39.2