USING: kernel cocoa cocoa.application cocoa.standalone cocoa.types cocoa.classes cocoa.windows ; IN: webkit-demo FRAMEWORK: /System/Library/Frameworks/WebKit.framework IMPORT: WebView : rect ( -- rect ) 0 0 700 500 ; : ( -- id ) WebView -> alloc rect f f -> initWithFrame:frameName:groupName: ; : ( -- id ) rect ; : activate ( window -- ) [ f -> orderFront: ] [ -> makeKeyWindow ] bi ; : load-url ( window url -- ) [ -> contentView ] [ ] bi* -> setMainFrameURL: ; : webkit-demo ( -- ) [ -> center ] [ activate ] [ "http://factorcode.org" load-url ] tri ; : run-webkit-demo ( -- ) [ webkit-demo ] cocoa-app ; MAIN: run-webkit-demo