24 lines
556 B
Factor
24 lines
556 B
Factor
|
IN: cocoa-webkit
|
||
|
|
USING: alien cocoa compiler io kernel math objc objc-NSObject
|
||
|
|
objc-NSURLRequest objc-NSWindow objc-WebFrame objc-WebView
|
||
|
|
parser sequences threads ;
|
||
|
|
|
||
|
|
: <NSURLRequest> ( string -- id )
|
||
|
|
NSURLRequest swap <CFURL> [requestWithURL:] ;
|
||
|
|
|
||
|
|
: <WebView> ( -- view )
|
||
|
|
WebView [alloc] 0 0 100 100 <NSRect> f f [initWithFrame:frameName:groupName:] ;
|
||
|
|
|
||
|
|
"WebKit demo" 10 10 600 600 <NSRect> <NSWindow>
|
||
|
|
dup
|
||
|
|
|
||
|
|
<WebView>
|
||
|
|
|
||
|
|
dup [mainFrame] "http://factorcode.org" <NSURLRequest> [loadRequest:]
|
||
|
|
|
||
|
|
[setContentView:]
|
||
|
|
|
||
|
|
dup f [makeKeyAndOrderFront:]
|
||
|
|
|
||
|
|
event-loop
|