[Openmcl-cvs-notifications] r7550 - /trunk/ccl/cocoa-ide/cocoa-typeout.lisp

[gb at clozure.com]

Author: gb
Date: Tue Oct 30 05:59:11 2007
New Revision: 7550

Log:
Rename #/insertText: to #/insertString:, since the text system calls #/inse=
rtText: on key events even if the text view isn't editable (and gets confus=
ed if out #/insertText: makes it editable on the fly.)  See ticket:121 .

Modified:
    trunk/ccl/cocoa-ide/cocoa-typeout.lisp

Modified: trunk/ccl/cocoa-ide/cocoa-typeout.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/ccl/cocoa-ide/cocoa-typeout.lisp (original)
+++ trunk/ccl/cocoa-ide/cocoa-typeout.lisp Tue Oct 30 05:59:11 2007
@@ -27,9 +27,9 @@
   (#/selectAll: self +null-ptr+)
   (#/delete: self +null-ptr+))
 =

-(objc:defmethod (#/insertText: :void) ((self typeout-text-view) text)
+(objc:defmethod (#/insertString: :void) ((self typeout-text-view) text)
   (#/setEditable: self t)
-  (call-next-method text)
+  (#/insertText: self text)
   (#/setEditable: self nil))
 =

 =

@@ -174,7 +174,7 @@
          (text-view (slot-value the-typeout-view 'text-view)))
     (#/performSelectorOnMainThread:withObject:waitUntilDone:
      text-view
-     (@selector #/insertText:)
+     (@selector #/insertString:)
      (%make-nsstring (get-output-stream-string (slot-value stream 'string-=
stream))) =

      t)))
   =