From b380a76ffbf54594dfd6fc3d932983ac0439d07f Mon Sep 17 00:00:00 2001
From: Joakim Verona
Date: Tue, 28 Jun 2011 21:42:45 +0200
Subject: proof of concept webkit xwidget

---
 src/xwidget.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/xwidget.c b/src/xwidget.c
index 870054469c0..14110af7fce 100644
--- a/src/xwidget.c
+++ b/src/xwidget.c
@@ -105,7 +105,7 @@ Lisp_Object Qxwidget_info;
 Lisp_Object Qxwidget_resize_internal;
 Lisp_Object Qxwidget_send_keyboard_event;
 
-Lisp_Object Qbutton, Qtoggle, Qslider, Qsocket, Qcairo, QCplist;
+Lisp_Object Qbutton, Qtoggle, Qslider, Qsocket, Qcairo, Qwebkit, QCplist;
 
 
 extern Lisp_Object  QCtype;   
@@ -339,6 +339,13 @@ xwidget_init_view (
         clutter_actor_show (stage);        
 #endif        
         
+  } else if (EQ(xww->type, Qwebkit)) {
+#ifdef HAVE_WEBKIT
+        xv->widget = webkit_web_view_new();
+        webkit_web_view_load_uri(xv->widget, "http://www.fsf.org"); 
+#endif        
+
+
   } else return NULL;
   
   //widget realization
@@ -722,7 +729,8 @@ syms_of_xwidget (void)
   DEFSYM (Qslider, "slider");  
   DEFSYM (Qsocket, "socket");
   DEFSYM (Qcairo, "cairo");
-  
+  DEFSYM (Qwebkit ,"webkit");
+    
   DEFSYM (QCplist, ":plist");  
 
   Fprovide (intern ("xwidget-internal"), Qnil);
-- 
cgit v1.2.1