1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: cocoa cocoa.application cocoa.types cocoa.classes cocoa.windows
4 core-graphics.types kernel math.bitwise literals ;
7 FRAMEWORK: /System/Library/Frameworks/WebKit.framework
10 : rect ( -- rect ) 0 0 700 500 <CGRect> ;
14 rect f f -> initWithFrame:frameName:groupName: ;
16 CONSTANT: window-style
19 NSMiniaturizableWindowMask
24 : <WebWindow> ( -- id )
25 <WebView> rect window-style <ViewWindow> ;
27 : load-url ( window url -- )
28 [ -> contentView ] [ <NSString> ] bi* -> setMainFrameURL: ;
33 [ f -> makeKeyAndOrderFront: ]
34 [ "https://factorcode.org" load-url ] tri ;
36 : run-webkit-demo ( -- )
37 [ webkit-demo ] cocoa-app ;