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