Changeset 15426


Ignore:
Timestamp:
Jul 29, 2012, 12:37:07 AM (7 years ago)
Author:
gb
Message:

Add an IS-DUP slot to the HEMLOCK-FRAME window class; set it to true
iff the window is created by the #/duplicate: command.
#/setFrameAutosaveName: always returns false for duplicate windows,
which hopefully fixes ticket:996.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r15346 r15426  
    21892189     (pane :foreign-type :id)
    21902190     (echo-area-buffer :initform nil :accessor hemlock-frame-echo-area-buffer)
    2191      (echo-area-stream :initform nil :accessor hemlock-frame-echo-area-stream))
     2191     (echo-area-stream :initform nil :accessor hemlock-frame-echo-area-stream)
     2192     (is-dup :initform nil))
    21922193  (:metaclass ns:+ns-object))
    21932194(declaim (special hemlock-frame))
     2195
     2196(objc:defmethod (#/setFrameAutosaveName: #>BOOL) ((self hemlock-frame)
     2197                                                  string)
     2198  (unless (slot-value self 'is-dup)
     2199    (call-next-method string)))
    21942200
    21952201;;; If a window's document's edited status changes, update the modeline.
     
    31023108      (#/release controller)
    31033109      (#/setShouldCascadeWindows: controller nil)
     3110      (unless (eql dupcount 0)
     3111        (setf (slot-value window 'is-dup) t))
    31043112      (when path
    31053113        (unless (and (eql dupcount 0) (#/setFrameAutosaveName: window path))
Note: See TracChangeset for help on using the changeset viewer.