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")))
     (#/setFrameLoadDelegate: view (make-instance 'web-view-delegate))
     view)))