[Openmcl-cvs-notifications] r12787 - /trunk/source/cocoa-ide/cocoa-listener.lisp

[rme at clozure.com]

Author: rme
Date: Tue Sep  8 12:56:55 2009
New Revision: 12787

Log:
In #/makeWindowControllers on hemlock-listener-document, set the window's
delegate to the window controller.

Modified:
    trunk/source/cocoa-ide/cocoa-listener.lisp

Modified: trunk/source/cocoa-ide/cocoa-listener.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-listener.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-listener.lisp Tue Sep  8 12:56:55 2009
@@ -468,6 +468,7 @@
       (dotimes (i (#/count layout-managers))
         (let* ((layout (#/objectAtIndex: layout-managers i)))
           (#/setBackgroundLayoutEnabled: layout nil))))
+    (#/setDelegate: window controller)
     (#/setDelegate: (text-pane-text-view (slot-value window 'pane)) self)
     (#/setShouldCascadeWindows: controller nil)
     (#/addWindowController: self controller)