@@ -683,7 +683,12 @@

             </items>

             <point key="canvasLocation" x="117" y="-135"/>

         </menu>

-        <window title="demo-app" allowsToolTipsWhenApplicationIsInactive="NO" autorecalculatesKeyViewLoop="NO" releasedWhenClosed="NO" animationBehavior="default" id="QvC-M9-y7g">

+        <window title="demo-app"

+                allowsToolTipsWhenApplicationIsInactive="NO"

+                autorecalculatesKeyViewLoop="NO"

+                releasedWhenClosed="NO"

+                animationBehavior="default"

+                id="QvC-M9-y7g">

             <windowStyleMask key="styleMask" titled="YES" closable="YES" miniaturizable="YES" resizable="YES"/>

             <windowPositionMask key="initialPositionMask" leftStrut="YES" rightStrut="YES" topStrut="YES" bottomStrut="YES"/>

             <rect key="contentRect" x="335" y="390" width="130" height="127"/>

@@ -11,20 +11,20 @@ demo-app: dylib

 demo-app.iconset: demo-app.svg

 	rm -rf demo-app.iconset

 	mkdir -p demo-app.iconset

-	rsvg-convert -w 16   -h 16   demo-app.svg > demo-app.iconset/icon_16x16.png

-	rsvg-convert -w 32   -h 32   demo-app.svg > demo-app.iconset/icon_16x16@2x.png

-	rsvg-convert -w 32   -h 32   demo-app.svg > demo-app.iconset/icon_32x32.png

-	rsvg-convert -w 64   -h 64   demo-app.svg > demo-app.iconset/icon_32x32@2x.png

-	rsvg-convert -w 64   -h 64   demo-app.svg > demo-app.iconset/icon_64x64.png

-	rsvg-convert -w 128	-h 128	demo-app.svg > demo-app.iconset/icon_64x64@2x.png

-	rsvg-convert -w 128	-h 128	demo-app.svg > demo-app.iconset/icon_128x128.png

-	rsvg-convert -w 256	-h 256	demo-app.svg > demo-app.iconset/icon_128x128@2x.png

-	rsvg-convert -w 256	-h 256	demo-app.svg > demo-app.iconset/icon_256x256.png

-	rsvg-convert -w 512	-h 512	demo-app.svg > demo-app.iconset/icon_256x256@2x.png

-	rsvg-convert -w 512	-h 512	demo-app.svg > demo-app.iconset/icon_512x512.png

-	rsvg-convert -w 1024	-h 1024	demo-app.svg > demo-app.iconset/icon_512x512@2x.png

-	rsvg-convert -w 1024	-h 1024	demo-app.svg > demo-app.iconset/icon_1024x1024.png

-	rsvg-convert -w 2048	-h 2048	demo-app.svg > demo-app.iconset/icon_1024x1024@2x.png

+	zsh convert.sh demo-app.svg   16   demo-app.iconset/icon_16x16.png

+	zsh convert.sh demo-app.svg   32   demo-app.iconset/icon_16x16@2x.png

+	zsh convert.sh demo-app.svg   32   demo-app.iconset/icon_32x32.png

+	zsh convert.sh demo-app.svg   64   demo-app.iconset/icon_32x32@2x.png

+	zsh convert.sh demo-app.svg   64   demo-app.iconset/icon_64x64.png

+	zsh convert.sh demo-app.svg  128   demo-app.iconset/icon_64x64@2x.png

+	zsh convert.sh demo-app.svg  128  demo-app.iconset/icon_128x128.png

+	zsh convert.sh demo-app.svg  256  demo-app.iconset/icon_128x128@2x.png

+	zsh convert.sh demo-app.svg  256  demo-app.iconset/icon_256x256.png

+	zsh convert.sh demo-app.svg  512  demo-app.iconset/icon_256x256@2x.png

+	zsh convert.sh demo-app.svg  512  demo-app.iconset/icon_512x512.png

+	zsh convert.sh demo-app.svg 1024  demo-app.iconset/icon_512x512@2x.png

+	zsh convert.sh demo-app.svg 1024 demo-app.iconset/icon_1024x1024.png

+	zsh convert.sh demo-app.svg 2048 demo-app.iconset/icon_1024x1024@2x.png

 mkapp: dylib demo-app demo-app.iconset

 	rm -rf demo.app

@@ -219,6 +219,7 @@

   (cls objc-runtime::o-class)

   (sel objc-runtime::o-selector)

   (value :pointer))

+

 (defun set-string-value (control string)

   (prog1 control

     (%set-string-value control @(setStringValue:)

@@ -259,7 +260,9 @@

 (defun task-thread ()

   (bt:make-thread (lambda ()

+                    #+(or)

                     (trivial-main-thread:with-body-in-main-thread (:blocking t)

+                      [#@NSEvent @(stopPeriodicEvents)]

                       [#@NSEvent @(startPeriodicEventsAfterDelay:withPeriod:) :double 0.0d0 :double 0.01d0])

                     (loop

                       (trivial-main-thread:with-body-in-main-thread (:blocking t)

@@ -268,16 +271,6 @@

 ;;#+nil

 (defun old-main ()

-  (load "~/quicklisp/setup.lisp")

-  (funcall (intern "QUICKLOAD"

-                   (find-package :QL))

-           :swank)

-  #+nil

-  (funcall (intern "CREATE-SERVER"

-                   (find-package :swank))

-           :port 5060

-           :dont-close t)

-

   (trivial-main-thread:with-body-in-main-thread (:blocking nil)

     #+sbcl

     (sb-int:set-floating-point-modes :traps '())

@@ -317,3 +310,58 @@

           [the-window @(makeKeyAndOrderFront:) :pointer (cffi:null-pointer)]

           [ objc-runtime::ns-app @(activateIgnoringOtherApps:) :boolean t]

           (task-thread))))))

+

+(cffi:defcfun (%get-view-frame "objc_msgSend_stret")

+    :void

+  (out (:pointer (:struct objc-runtime:ns-rect)))

+  (class :pointer)

+  (sel :pointer))

+

+(cffi:defcfun (%init-with-frame "objc_msgSend")

+    :pointer

+  (class :pointer)

+  (sel :pointer)

+  (frame (:struct objc-runtime:ns-rect)))

+

+(defmacro new-msg-send (selector ((&rest arg-types) return-type))

+  (let ((arg-syms (mapcar (lambda (_) (gensym (symbol-name _)))

+                          arg-types)))

+    `(lambda ,(cons 'target arg-syms)

+       (cffi:foreign-funcall "objc_msgSend"

+                             :pointer target

+                             :pointer ,selector

+                             ,@(mapcan #'list arg-types arg-syms)

+                             ,return-type))))

+

+(defmacro make-view-dictionary (&rest objc-values)

+  (alexandria:with-gensyms (selector)

+    `(let ((,selector (new-msg-send @(dictionaryWithObjectsAndKeys:)

+                          ((,@(mapcar (lambda (_) _ :pointer) objc-values) :pointer)

+                           :pointer))))

+       (funcall ,selector ,@objc-values (cffi:null-pointer)))))

+

+#+(or)

+(defun text-view (parent-view)

+  (let ((text-view [#@NSTextView @(alloc)]))

+

+    

+    

+

+

+    (trivial-main-thread:with-body-in-main-thread (:blocking nil)

+      (cffi:with-foreign-pointer (v (cffi:foreign-type-size '(:struct objc-runtime::ns-rect)))

+        (%get-view-frame v *window-view* @(frame))

+        (init-with-frame *text-view* v))

+      [*window-view* @(addSubview:) :pointer *text-view*]?)

+

+    (defparameter *view-dictionary* 

+      )

+    ))

+

+#+(or)

+(progn

+  (defparameter *window-view*

+    [(main-view *application-shim*) @(superview)])

+  (trivial-main-thread:with-body-in-main-thread (:blocking nil)

+    [(main-view *application-shim*) @(removeFromSuperview)]?

+    ))