2009-03-18 20:58:05 -04:00
|
|
|
! Copyright (C) 2008, 2009 Slava Pestov.
|
2008-10-31 22:07:18 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: kernel
|
|
|
|
|
cocoa
|
|
|
|
|
cocoa.application
|
|
|
|
|
cocoa.types
|
|
|
|
|
cocoa.classes
|
2009-03-18 20:58:05 -04:00
|
|
|
cocoa.windows
|
|
|
|
|
core-graphics.types ;
|
2008-10-31 22:07:18 -04:00
|
|
|
IN: webkit-demo
|
|
|
|
|
|
|
|
|
|
FRAMEWORK: /System/Library/Frameworks/WebKit.framework
|
|
|
|
|
IMPORT: WebView
|
|
|
|
|
|
2009-03-18 20:58:05 -04:00
|
|
|
: rect ( -- rect ) 0 0 700 500 <CGRect> ;
|
2008-10-31 22:07:18 -04:00
|
|
|
|
|
|
|
|
: <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
|
