buffery.txt

(defclass web-view-delegate (ns:ns-object)
  ()
  (:metaclass ns:+ns-object))

(objc:defmethod (#/webViewDidFinishLoad: :void) ((self web-view-delegate) web-view-firing-event)
  (print "called"))

(defun make-web-view ()
  (on-main-thread
   (let ((view
	  (make-instance
	   'ns:web-view
	   :frame-name #@"frame"
	   :group-name #@"group"
	   :delegate (make-instance 'web-view-delegate))))
     view)))


;; Documentation for reference
;; https://developer.apple.com/documentation/webkit/webview