Add WebKit demo

diff --git a/extra/webkit-demo/deploy.factor b/extra/webkit-demo/deploy.factor
new file mode 100644 (file)
index 0000000..684bbc5
--- /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 (file)
index 0000000..83f06ec
--- /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