From 0ae87275f761daad4431b28da8054cf9fb253107 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 31 Oct 2008 21:07:18 -0500
Subject: [PATCH] Add WebKit demo

---
 extra/webkit-demo/deploy.factor      | 15 ++++++++++++
 extra/webkit-demo/webkit-demo.factor | 35 ++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 extra/webkit-demo/deploy.factor
 create mode 100644 extra/webkit-demo/webkit-demo.factor

diff --git a/extra/webkit-demo/deploy.factor b/extra/webkit-demo/deploy.factor
new file mode 100644
index 0000000000..684bbc57b5
--- /dev/null
+++ b/extra/webkit-demo/deploy.factor
@@ -0,0 +1,15 @@
+USING: tools.deploy.config ;
+H{
+    { deploy-ui? f }
+    { deploy-compiler? t }
+    { deploy-c-types? f }
+    { deploy-reflection 1 }
+    { deploy-random? f }
+    { deploy-name "WebKit demo" }
+    { deploy-io 1 }
+    { deploy-math? f }
+    { deploy-word-props? f }
+    { "stop-after-last-window?" t }
+    { deploy-word-defs? f }
+    { deploy-threads? f }
+}
diff --git a/extra/webkit-demo/webkit-demo.factor b/extra/webkit-demo/webkit-demo.factor
new file mode 100644
index 0000000000..83f06ec137
--- /dev/null
+++ b/extra/webkit-demo/webkit-demo.factor
@@ -0,0 +1,35 @@
+! Copyright (C) 2008 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel
+cocoa
+cocoa.application
+cocoa.types
+cocoa.classes
+cocoa.windows ;
+IN: webkit-demo
+
+FRAMEWORK: /System/Library/Frameworks/WebKit.framework
+IMPORT: WebView
+
+: rect ( -- rect ) 0 0 700 500 <NSRect> ;
+
+: <WebView> ( -- id )
+    WebView -> alloc
+    rect f f -> initWithFrame:frameName:groupName: ;
+
+: <WebWindow> ( -- id )
+    <WebView> rect <ViewWindow> ;
+
+: load-url ( window url -- )
+    [ -> contentView ] [ <NSString> ] bi* -> setMainFrameURL: ;
+
+: webkit-demo ( -- )
+    <WebWindow>
+    [ -> center ]
+    [ f -> makeKeyAndOrderFront: ]
+    [ "http://factorcode.org" load-url ] tri ;
+
+: run-webkit-demo ( -- )
+    [ webkit-demo ] cocoa-app ;
+
+MAIN: run-webkit-demo