[Openmcl-cvs-notifications] r12548 - in /trunk/source/cocoa-ide: cocoa-editor.lisp cocoa-listener.lisp

[gb at clozure.com]

Author: gb
Date: Thu Aug  6 18:51:31 2009
New Revision: 12548

Log:
Call #/synchronizeWindowTitleWithDocumentName in a few places, since
Cocotron (may) neglect to do so.  (This really should be done - and
done in a few more places - in Coco[a|tron]).

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

Modified: trunk/source/cocoa-ide/cocoa-editor.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-editor.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp Thu Aug  6 18:51:31 2009
@@ -2837,7 +2837,8 @@
         (#/cascadeTopLeftFromPoint: window *editor-cascade-point*))
       (let ((view (hemlock-view window)))
         (hi::handle-hemlock-event view #'(lambda ()
-                                           (hi::process-file-options))))))
+                                           (hi::process-file-options))))
+      (#/synchronizeWindowTitleWithDocumentName controller)))
 =

 =

 (objc:defmethod (#/close :void) ((self hemlock-editor-document))

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 Thu Aug  6 18:51:31 2009
@@ -487,7 +487,7 @@
         (let* ((new-point (#/cascadeTopLeftFromPoint: window current-point=
)))
           (setf *next-listener-x-pos* (ns:ns-point-x new-point)
                 *next-listener-y-pos* (ns:ns-point-y new-point)))))
-    =

+    (#/synchronizeWindowTitleWithDocumentName controller)
     controller))
 =

 (objc:defmethod (#/textView:shouldChangeTextInRange:replacementString: :<B=
OOL>)