Changeset 14660

Timestamp:

Feb 28, 2011, 3:33:58 PM (14 years ago)

Author:

Gary Byers

Message:

When modifying a document's textstorage on Cocotron, explicitly
call the document's #/updateChangeCount: method. (This ordinarily
is the responsibility of the document's NSUndoManager, but Cocotron's
NSUndoManager support is broken.)
This gives visual indication of the document's modified state in the
containing window's titlebar and modeline and notifies the document
controller that it should prompt to save modified documents. Since
NSRunAlertPanel() seems to now be usable on Cocotron (see ticket:818),
this fixes ticket:813.

File:

• trunk/source/cocoa-ide/cocoa-editor.lisp (modified) (3 diffs)

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

@@ -594 +594 @@
         (#/replaceCharactersInRange:withString:
          mirror replacerange replacestring))
+      #+cocotron
+      (#/updateChangeCount: document #$NSChangeDone)
       (when (and undo-mgr (not (#/isUndoing undo-mgr)))
         (#/replaceCharactersAtPosition:length:withString:
@@ -621 +623 @@
                                       range (- n))
       (#/deleteCharactersInRange: mirror range)
+      #+cocotron
+      (#/updateChangeCount: document #$NSChangeDone)      
       (when (and undo-mgr (not (#/isUndoing undo-mgr)))
         (#/replaceCharactersAtPosition:length:withString:
@@ -645 +649 @@
       (#/edited:range:changeInLength: self (logior #$NSTextStorageEditedCharacters
                                                    #$NSTextStorageEditedAttributes) range 0)
+      #+cocotron
+      (#/updateChangeCount: document #$NSChangeDone)      
       (when (and undo-mgr (not (#/isUndoing undo-mgr)))
         (#/replaceCharactersAtPosition:length:withString: