@@ -28,3 +28,4 @@ demo.app

 *.icns

 NSRect-Expose

 *.nib

+.*.sw?

@@ -11,9 +11,12 @@

             </connections>

         </customObject>

         <customObject id="-1" userLabel="First Responder" customClass="FirstResponder"/>

-        <customObject id="-3" userLabel="Application"/>

+        <customObject id="-3" userLabel="Application" customClass="NSObject"/>

         <customObject id="Voe-Tx-rLC" customClass="AppDelegate">

             <connections>

+                <outlet property="actionButton" destination="tsC-6t-n8w" id="1do-fU-4Vq"/>

+                <outlet property="alertButton" destination="B58-6z-vcj" id="sNy-nL-OXG"/>

+                <outlet property="profitButton" destination="kpz-zw-hNc" id="eR3-2l-bVP"/>

                 <outlet property="window" destination="QvC-M9-y7g" id="gIp-Ho-8D9"/>

             </connections>

         </customObject>

@@ -685,6 +688,7 @@

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

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

             <rect key="screenRect" x="0.0" y="0.0" width="1680" height="1050"/>

+            <value key="minSize" type="size" width="130" height="127"/>

             <view key="contentView" wantsLayer="YES" id="EiT-Mj-1SZ">

                 <rect key="frame" x="0.0" y="0.0" width="130" height="127"/>

                 <autoresizingMask key="autoresizingMask"/>

@@ -698,6 +702,9 @@

                     </button>

                     <button identifier="QButton" verticalHuggingPriority="750" translatesAutoresizingMaskIntoConstraints="NO" id="B58-6z-vcj">

                         <rect key="frame" x="14" y="46" width="102" height="32"/>

+                        <constraints>

+                            <constraint firstAttribute="height" constant="21" id="4bY-Mh-ivB"/>

+                        </constraints>

                         <buttonCell key="cell" type="push" title="???" bezelStyle="rounded" alignment="center" borderStyle="border" imageScaling="proportionallyDown" inset="2" id="fM6-sP-hqC">

                             <behavior key="behavior" pushIn="YES" lightByBackground="YES" lightByGray="YES"/>

                             <font key="font" metaFont="system"/>

@@ -712,21 +719,21 @@

                     </button>

                 </subviews>

                 <constraints>

-                    <constraint firstItem="kpz-zw-hNc" firstAttribute="leading" secondItem="EiT-Mj-1SZ" secondAttribute="leading" constant="20" id="FUw-ts-Dvv"/>

-                    <constraint firstItem="kpz-zw-hNc" firstAttribute="top" secondItem="B58-6z-vcj" secondAttribute="bottom" constant="12" id="Mo0-Fq-Ekv"/>

-                    <constraint firstAttribute="trailing" secondItem="B58-6z-vcj" secondAttribute="trailing" constant="20" id="PrU-3Q-xbT"/>

-                    <constraint firstItem="B58-6z-vcj" firstAttribute="top" secondItem="tsC-6t-n8w" secondAttribute="bottom" constant="12" id="R99-fb-R0a"/>

-                    <constraint firstAttribute="trailing" secondItem="kpz-zw-hNc" secondAttribute="trailing" constant="20" id="cXz-s9-bm0"/>

-                    <constraint firstItem="tsC-6t-n8w" firstAttribute="top" secondItem="EiT-Mj-1SZ" secondAttribute="top" constant="20" id="fgb-wQ-bYz"/>

-                    <constraint firstItem="tsC-6t-n8w" firstAttribute="leading" secondItem="EiT-Mj-1SZ" secondAttribute="leading" constant="20" id="gkO-dz-KSN"/>

-                    <constraint firstAttribute="trailing" secondItem="tsC-6t-n8w" secondAttribute="trailing" constant="20" id="kvv-3f-CPP"/>

-                    <constraint firstItem="B58-6z-vcj" firstAttribute="leading" secondItem="EiT-Mj-1SZ" secondAttribute="leading" constant="20" id="pxX-yN-nxG"/>

-                    <constraint firstItem="B58-6z-vcj" firstAttribute="width" secondItem="tsC-6t-n8w" secondAttribute="width" id="raD-LI-R65"/>

-                    <constraint firstItem="kpz-zw-hNc" firstAttribute="width" secondItem="B58-6z-vcj" secondAttribute="width" id="sko-eC-fdc"/>

-                    <constraint firstAttribute="bottom" secondItem="kpz-zw-hNc" secondAttribute="bottom" constant="20" id="zFb-Pu-3aJ"/>

+                    <constraint firstItem="kpz-zw-hNc" firstAttribute="leading" secondItem="B58-6z-vcj" secondAttribute="leading" id="5b9-mG-fdb"/>

+                    <constraint firstAttribute="trailing" secondItem="tsC-6t-n8w" secondAttribute="trailing" constant="20" id="698-FB-H88"/>

+                    <constraint firstItem="tsC-6t-n8w" firstAttribute="top" secondItem="EiT-Mj-1SZ" secondAttribute="top" constant="20" id="AU4-Qz-TKg"/>

+                    <constraint firstItem="B58-6z-vcj" firstAttribute="leading" secondItem="tsC-6t-n8w" secondAttribute="leading" id="FPZ-ws-33F"/>

+                    <constraint firstItem="B58-6z-vcj" firstAttribute="top" secondItem="tsC-6t-n8w" secondAttribute="bottom" constant="12" id="MRa-zq-5sy"/>

+                    <constraint firstItem="kpz-zw-hNc" firstAttribute="width" secondItem="B58-6z-vcj" secondAttribute="width" id="Nvf-uM-pjC"/>

+                    <constraint firstAttribute="bottom" secondItem="tsC-6t-n8w" secondAttribute="bottom" constant="86" id="OOB-Ll-lhm"/>

+                    <constraint firstItem="B58-6z-vcj" firstAttribute="width" secondItem="tsC-6t-n8w" secondAttribute="width" id="S8Y-hC-OzM"/>

+                    <constraint firstItem="kpz-zw-hNc" firstAttribute="top" secondItem="B58-6z-vcj" secondAttribute="bottom" constant="12" id="SpV-Go-sxH"/>

+                    <constraint firstAttribute="trailing" relation="greaterThanOrEqual" secondItem="kpz-zw-hNc" secondAttribute="trailing" constant="20" symbolic="YES" id="bgf-3t-GzH"/>

+                    <constraint firstItem="tsC-6t-n8w" firstAttribute="leading" secondItem="EiT-Mj-1SZ" secondAttribute="leading" constant="20" id="xdm-k8-1Yj"/>

+                    <constraint firstAttribute="trailing" relation="greaterThanOrEqual" secondItem="B58-6z-vcj" secondAttribute="trailing" constant="20" symbolic="YES" id="ygs-9c-Ai1"/>

                 </constraints>

             </view>

-            <point key="canvasLocation" x="-36" y="44.5"/>

+            <point key="canvasLocation" x="-36" y="48.5"/>

         </window>

     </objects>

 </document>

@@ -90,46 +90,88 @@

                               ,(coerce h 'double-float)))

                            '(:struct objc-runtime:ns-rect)))

-(defun show-alert (message)

+(defun show-alert (message &optional (informative-text "Informative Text!"))

   (let ((alert [[#@NSAlert @(alloc)] @(init)]))

-    [alert @(setMessageText:) :pointer @"message"]

-    [alert @(setInformativeText:) :pointer @"Informative text."]

+    [alert @(setMessageText:) :pointer (objc-runtime::make-nsstring message)]

+    [alert @(setInformativeText:) :pointer (objc-runtime::make-nsstring informative-text)]

     [alert @(addButtonWithTitle:) :pointer @"OK"]

     [alert @(addButtonWithTitle:) :pointer @"Cancel"]

     [alert @(runModal)]))

-(cffi:defcallback button-action :void ((a :pointer) (b :pointer) (sender :pointer))

+(cffi:defcallback do-things-action :void ((a :pointer) (b :pointer) (sender :pointer))

+  (declare (ignore a b sender))

+  (show-alert "Starting Swank"

+              "Loading Quicklisp from ~/quicklisp/setup.lisp + starting swank")

+

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

+  (funcall (intern "QUICKLOAD" (find-package :QL)) :swank)

+  (funcall (intern "CREATE-SERVER" (find-package :swank)) :port 5060 :dont-close t)

+  

+  (show-alert "Started swank on 5060"))

+

+(cffi:defcallback alert-action :void ((a :pointer) (b :pointer) (sender :pointer))

   (declare (ignore a b sender))

   (show-alert "Hello There!"))

-(defun make-button-delegate (button)

+(cffi:defcallback profit-action :void ((a :pointer) (b :pointer) (sender :pointer))

+  (declare (ignore a b sender))

+  (show-alert "That Was Profitable!"))

+

+(defun make-button-delegate (button cb)

   (let ((my-class (objc-runtime::objc-allocate-class-pair #@NSObject "ButtonDel" 0)))

     (with-selectors ((do-magic "doMagic:") (set-target "setTarget:") (set-action "setAction:")

                      alloc init)

-      (objc-runtime::class-add-method my-class do-magic (cffi:callback button-action)

-                                      "v@:@")

+      (objc-runtime::class-add-method my-class do-magic cb "v@:@")

       (fw.lu:prog1-bind (result [[my-class alloc] init])

         [button set-target :pointer result]

         [button set-action :pointer do-magic]))))

+(defun make-app-delegate-class (outlets)

+  (let ((app-delegate-class (objc-runtime::objc-allocate-class-pair

+                             #@NSObject "AppDelegate" 0)))

+    (objc-runtime::add-pointer-ivar app-delegate-class "window")

+    (objc-runtime::add-pointer-ivar app-delegate-class "delegate")

+

+    (loop for outlet in outlets do

+         (objc-runtime::add-pointer-ivar app-delegate-class outlet))

+

+    app-delegate-class))

+

+(defun load-nib (name)

+  ;; find and activate the nib

+  (let* ((bundle [#@NSBundle @(mainBundle)])

+         (nib [[#@NSNib @(alloc)] @(initWithNibNamed:bundle:)

+                                  :pointer (objc-runtime::make-nsstring name)

+                                  :pointer bundle]))

+    (cffi:with-foreign-object (p :pointer)

+      ;; TODO: is dropping p a problem here? The docs say something relevant.

+      ;;       must investigate.

+      [nib @(instantiateWithOwner:topLevelObjects:)

+           :pointer objc-runtime::ns-app

+           :pointer p])))

+

 (defun main ()

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

-    [#@NSAutoReleasePool @(new) ]

-    [#@NSApplication @(sharedApplication) ]

+    [#@NSAutoReleasePool @(new)]

+    [#@NSApplication @(sharedApplication)]

     [objc-runtime::ns-app @(setActivationPolicy:) :int 0]

-    (let ((app-delegate (objc-runtime::objc-allocate-class-pair

-                         #@NSObject "AppDelegate" 0)))

-      (objc-runtime::add-pointer-ivar app-delegate "window")

-      (objc-runtime::add-pointer-ivar app-delegate "delegate"))

-

-    (let* ((bundle [#@NSBundle @(mainBundle)])

-           (nib [[#@NSNib @(alloc)] @(initWithNibNamed:bundle:)

-                                    :pointer @"MainMenu"

-                                    :pointer bundle]))

-      (cffi:with-foreign-object (p :pointer)

-        [nib @(instantiateWithOwner:topLevelObjects:)

-             :pointer objc-runtime::ns-app

-             :pointer p]))

+    ;; Setup the app delegate class. We register this one because it's useful

+    ;; When debugging via something like lldb

+    (objc-runtime::objc-register-class-pair

+     (make-app-delegate-class '("actionButton"

+                                "alertButton"

+                                "profitButton")))

+

+    (load-nib "MainMenu")

+    

+    (let ((app-delegate [objc-runtime::ns-app @(delegate)]))

+      (make-button-delegate (value-for-key app-delegate "actionButton")

+                            (cffi:callback do-things-action))

+      (make-button-delegate (value-for-key app-delegate "alertButton")

+                            (cffi:callback alert-action))

+      (make-button-delegate (value-for-key app-delegate "profitButton")

+                            (cffi:callback profit-action)))

+    

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

-    [objc-runtime::ns-app @(run) ]))

+    [objc-runtime::ns-app @(run)]))