Changeset 12787

Timestamp:

Sep 8, 2009, 9:56:55 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

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

File:

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

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

@@ -469 +469 @@
         (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)