Changeset 12598

Timestamp:

Aug 16, 2009, 5:19:04 PM (15 years ago)

Author:

gz

Message:

Keep track of edit-count for xhemlock-text-storage, so that setSelectedRange knows when to be a noop

File:

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

trunk/source/cocoa-ide/hemlock-text.lisp

@@ -230 +230 @@
   (assume-cocoa-thread)
   (> (slot-value self 'edit-count) 0))
+
+(objc:defmethod (#/beginEditing :void) ((self xhemlock-text-storage))
+  (assume-cocoa-thread)
+  (with-slots (edit-count) self
+    #+debug
+    (#_NSLog #@"begin-editing")
+    (incf edit-count)
+    #+debug
+    (#_NSLog #@"after beginEditing on %@ edit-count now = %d" :id self :int edit-count)
+    (call-next-method)))
+
+(objc:defmethod (#/endEditing :void) ((self xhemlock-text-storage))
+  (assume-cocoa-thread)
+  (with-slots (edit-count) self
+    #+debug
+    (#_NSLog #@"end-editing")
+    (call-next-method)
+    (assert (> edit-count 0))
+    (decf edit-count)
+    #+debug
+    (#_NSLog #@"after endEditing on %@, edit-count now = %d" :id self :int edit-count)))
 
 (objc:defmethod (#/noteHemlockInsertionAtPosition:length: :void)