Changeset 15030

Timestamp:

Oct 20, 2011, 11:58:05 AM (13 years ago)

Author:

gz

Message:

Add new-listener convenience function

File:

• trunk/source/cocoa-ide/cocoa-utils.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-utils.lisp

@@ -158 +158 @@
   (first-window-satisfying-predicate #'(lambda (w) (typep (#/windowController w) controller-type))))
 
+
+(defun new-listener ()
+  (let ((wptr (execute-in-gui (lambda ()
+                                (declare (special hemlock-listener-document))
+                                (#/newListener: (#/delegate *NSApp*) (%null-ptr))
+                                (let ((doc (#/topListener hemlock-listener-document)))
+                                  (unless (%null-ptr-p doc)
+                                    (#/window (#/lastObject (#/windowControllers doc)))))))))
+    (when wptr (hemlock-view wptr))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;