21 lines
475 B
Text
21 lines
475 B
Text
include "Tlbx WebKit.incl"
|
|
|
|
_window = 1
|
|
begin enum 1
|
|
_webView
|
|
end enum
|
|
|
|
void local fn BuildWindow
|
|
CGRect r = ( 0, 0, 700, 400 )
|
|
window _window, @"WKWebView", r
|
|
|
|
wkwebview _webView, r
|
|
ViewSetAutoresizingMask( _webView, NSViewWidthSizable + NSViewHeightSizable )
|
|
CFURLRef url = fn URLWithString( @"https://search.yahoo.com/" )
|
|
URLRequestRef request = fn URLRequestWithURL( url )
|
|
fn WKWebViewLoadRequest( _webView, request )
|
|
end fn
|
|
|
|
fn BuildWindow
|
|
|
|
HandleEvents
|